Winsock控件疑问……

[isostar]

Private Sub Form_Load()
With Winsock1
.LocalPort = 1001
.Bind 1001
.RemoteHost = .LocalHostName
.RemotePort = 1002
.Winsock1.SendData "hi"
End With
with winsock2
.LocalPort = 1002
.Bind 1002
.RemoteHost = .LocalHostName
.RemotePort = 1002
end with

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
MsgBox "winsock1接收到消息" '用于判断是否收到信息
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
MsgBox "winsock2接收到消息" '用于判断是否收到信息
End Sub
;运行后，为何我收到的信息为“winsock1接收到消息”而不是“winsock2接收到消息”，为什么？

[iambluebird]

我修改了一下，你的断口绑定的时候有点混乱，WINSOCK2绑定到自己的断口上去了，不能发送到WINSOCK1，并且不能在WINSOCK1下直接发送消息，这样WINSOCK2并没有绑定好，会出错


Private Sub Form_Load()
With Winsock1
.LocalPort = 1001
.Bind 1001
.RemoteHost = .LocalHostName
.RemotePort = 1002

End With
With Winsock2
.LocalPort = 1002
.Bind 1002
.RemoteHost = .LocalHostName
.RemotePort = 1001
End With
Winsock1.SendData "hi"
Winsock2.SendData "a"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Tem As String
Winsock1.GetData Tem
MsgBox "winsock1接收到消息" & Tem '用于判断是否收到信息
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim Tem As String
Winsock2.GetData Tem
MsgBox "winsock2接收到消息" & Tem '用于判断是否收到信息
End Sub

这样就可以检查了
我这里测试出来是正确的，先是WINSOCK2收到消息
然后是WINSOCK1收到消息

[l_h_pengwei]

Private Sub Command1_Click()
Winsock1.SendData "hi"
End Sub

Private Sub Form_Activate()
With Winsock1
.LocalPort = 1001
.Protocol = sckUDPProtocol
.Bind 1001
.RemoteHost = "192.168.2.106"
.RemotePort = 1002
End With
With Winsock2
.LocalPort = 1002
.Protocol = sckUDPProtocol
.Bind 1002
.RemoteHost = "192.168.2.106"
.RemotePort = 1002
End With

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
MsgBox "winsock1接收到消息" '用于判断是否收到信息
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
MsgBox "winsock2接收到消息" '用于判断是否收到信息
End Sub

测试通过，没有问题

[isostar]

多谢二位仁兄