这是个简单聊天程序:
Private Sub Command1_Click()
sockB.SendData txt1.Text '发送文本
End Sub
Private Sub Form_Load()
With sockB
.RemoteHost = "192.168.0.42" '要连接到计算机的IP地址
.RemotePort = 1011 '要连接到的端口号
.LocalPort = 1010 '该Winsock控制将使用的本地端口号,便于其它方与之通讯
.Bind 1010 '将该Winsock控制绑定到该本地端口
End With
End Sub
Private Sub udpPeerB_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData, vbString
txt2.Text = strData
End Sub
这个是客机端。