如何获取服务器的反馈信息.

Question

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
On Error Resume Next
Winsock1.GetData strData
txtResponse = txtResponse & strData
End Sub

Answer 1

Private Sub Form_Load()
With udpPeerB
.RemoteHost = "192.168.0.230"               '要连接到计算机的IP地址
.RemotePort = 1011                          '要连接到的端口号
.LocalPort = 1010
'该Winsock控制将使用的本地端口号，便于其它方与之通讯
.Bind 1010
'将该Winsock控制绑定到该本地端口
End With
End Sub
Private Sub txtSend_Change()
udpPeerB.SendData txtSend.Text                  '发送文本
End Sub
Private Sub udpPeerB_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData, vbString
txtOutput.Text = strData
End Sub