Question

vb中Winsock简单连接

只要一个功能，就是客户端和服务端的TEXT1一样，一个变两个都变。别的什么都不要，越简单越好

Answer 1

服务端代码：

Private Sub Form_Load()
Winsock1.Protocol = sckUDPProtocol
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = 8765
Winsock1.Bind 5678
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Winsock1.SendData Text1.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock1.GetData s
Text1.Text = s
End Sub

客户端代码：

Private Sub Form_Load()
Winsock1.Protocol = sckUDPProtocol
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = 5678
Winsock1.Bind 8765
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Winsock1.SendData Text1.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock1.GetData s
Text1.Text = s
End Sub

以上代码是用在服务端和客户端在同一台电脑上的情况，如果要在局域网内不同的电脑上进行测试，请把Winsock1.RemoteHost的值改为对方电脑的IP地址或电脑名。