如何用Winsock控件或别的控件向一个域名发送一报文？

[tang688]

如何用Winsock控件或别的控件向一个域名发送一报文？
如向：http://122.122.122.122地址发送一个JSON报文？
请给一段参考代码。

[Tiger_Zhao]

关键是服务端要有响应的处理啊。
参考在VB中使用Winsock实现通信 2.2 TCP客户端 部分

[X-i-n]

tcp远不如xmlhttp来得省心，一般处理这种问题，优先选更高层的解决方案，不然的话需要你自己额外去实现底层的东西 JSON报文手工拼出来，然后往这个URL去POST数据（也可能是GET，看服务器支持哪个） 代码是抄的，http://www.jb51.net/article/53060.htm。你也可以自己去搜 vb6 post get

'==========================================================
'| 模 块 名 | XMLHTTP
'| 说  明 | 替代Inet控件，实现数据通讯
'==========================================================Public Enum DataEnum
  ResponseText = 1
  ResponseBody = 2
End Enum
  
Public Function GetData(ByVal Url As String, ByVal DataStic As DataEnum) As Variant
   
  On Error GoTo ERR:
  Dim XMLHTTP As Object
  Dim DataS As String
  Dim DataB() As Byte
   
  Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
   
  XMLHTTP.Open "get", Url, True
  XMLHTTP.send
   
  While XMLHTTP.ReadyState <> 4
    DoEvents
  Wend
  '--------------------------------------函数返回
  Select Case DataStic
  Case ResponseText
    '--------------------------------直接返回字符串
    DataS = XMLHTTP.ResponseText
    GetData = DataS
  Case ResponseBody
    '--------------------------------直接返回二进制
    DataB = XMLHTTP.ResponseBody
    GetData = DataB
  Case ResponseBody + ResponseText
    '------------------------------二进制转字符串[直接返回字串出现乱码时尝试]
    DataS = BytesToStr(XMLHTTP.ResponseBody)
    GetData = DataS
  Case Else
    '--------------------------------无效的返回
    GetData = ""
  End Select
  '--------------------------------------释放空间
  Set XMLHTTP = Nothing
  Exit Function
ERR:
  GetData = ""
End Function
  
Public Function PostData(ByVal StrUrl As String, ByVal StrData As String, ByVal DataStic As DataEnum) As Variant
  On Error GoTo ERR:
   
  Dim XMLHTTP As Object
  Dim DataS As String
  Dim DataB() As Byte
   
  Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
   
  XMLHTTP.Open "POST", StrUrl, True
  XMLHTTP.setRequestHeader "Content-Length", Len(PostData)
  XMLHTTP.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
  XMLHTTP.send (StrData)
   
  Do Until XMLHTTP.ReadyState = 4
    DoEvents
  Loop
  '-----------------------------函数返回
  Select Case DataStic
  Case ResponseText
    '--------------------------------直接返回字符串
    DataS = XMLHTTP.ResponseText
    PostData = DataS
  Case ResponseBody
    '--------------------------------直接返回二进制
    DataB = XMLHTTP.ResponseBody
    PostData = DataB
  Case ResponseBody + ResponseText
    '---------------------------二进制转字符串[直接返回字串出现乱码时尝试]
    DataS = BytesToStr(XMLHTTP.ResponseBody)
    PostData = DataS
  Case Else
    '--------------------------------无效的返回
    PostData = ""
  End Select
  '------------------------------------释放空间
  Set XMLHTTP = Nothing
  Exit Function
ERR:
  PostData = ""
End Function
  
Function BytesToStr(ByVal vIn) As String
  strReturn = ""
  For i = 1 To LenB(vIn)
    ThisCharCode = AscB(MidB(vIn, i, 1))
    If ThisCharCode < &H80 Then
      strReturn = strReturn & Chr(ThisCharCode)
    Else
      NextCharCode = AscB(MidB(vIn, i + 1, 1))
      strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
      i = i + 1
    End If
  Next
  BytesToStr = strReturn
End Function

[tang688]

给的代码很有效。