这是个简单聊天程序:
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
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
//客户端,服务器不能再1台机器
什么意思啊?
请问什么意思啊?我生成了.exe文件还要vb环境吗?
internet上的机器,还是局域网里的,还是本地机器。
别告诉我你俩通过的是internet互相聊天,然后用这个.RemoteHost = "192.168.0.42",IP