vb winsock 怎样让客户与客户对话，给点注解啊，

来源：百度知道 编辑：UC知道 时间：2024/06/23 03:14:14
大家帮帮忙啊，我困惑我好久了，哪位大侠帮帮忙啊，先谢谢了
就是我是服务器，让两个客户端对话

用UDP协议很简单
服务器端：
Private Sub Command1_Click()
Winsock1.SendData Text1.text '发送文本
End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = "10.75.138.50" '要连接到的计算机名
.RemotePort = 1010 '要连接到的端口号
.LocalPort = 1011 '该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯
.Bind 1011 '将该Winsock控制绑定到该本地端口
End With
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData, vbString
text2.Text = strData
End Sub

客户端：
Private Sub Form_Load()
With Winsock1
.RemoteHost=“197.1.1.2” '要连接到计算机的IP地址
.RemotePort=1011 '要连接到的端口号
.LocalPort=1010 '该Winsock控制将使用的本地端口号，便于其它方与之通讯
.Bind 1010 '将该Winsock控制绑定到该本地端口
End With
End Sub
Private Sub txtSend_Change()
Winsock1.SendD