VB数据收发

求一个可以用VB进行数据包收发的程序,要求在指定的IP之间进行

---

帮顶

---

UP

---

我在网上看到一个聊天的简单程序,执行后没有反应,Winsock1_DataArrival事件没有发生,不知道是什么问题,大家帮忙看看吧:

Private Sub Form_Load()
Dim my As String
Winsock1.Protocol = sckUDPProtocol '设置为UDP协义
Winsock1.LocalPort = 10 '设置计算机的端口，随便设置，不过两个要一样
Winsock1.RemotePort = 10
my = Winsock1.LocalIP '取得自己的IP地址，是不要的
Winsock1.RemoteHost = my '这里应该是设置为别人计算机的IP地址，由于自己是单机，所以就设置成自己的，自己给自己发信息
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生
Dim Tmp As String
Winsock1.GetData Tmp, vbString '取得数据
Tmp = "对方位址:" + Winsock1.RemoteHostIP + "发言内容为-->" + Tmp
txtMess.Text = Tmp + Chr$(13) + Chr$(10) + txtMess.Text
End Sub

Private Sub Command1_Click() '发送信息
Winsock1.SendData txtSend.Text
End Sub

---

我试了下， 这个事件是有发生的 ，不知道你有没有添加Winsock1控件上去

---

.BIND Winsock1.LocalPort