VB 使用winsock 给固定IP 固定端口 发送信息：

Question

VB 使用winsock 给固定IP 192.168.5.251 固定端口 2222 发送信息：随便什么信息都行
对方电脑上监听了2222 这个端口了 我该怎么写代码发送信息通知让他能接受的到？

Answer 1

Private Sub InitWinsockSend()
With Winsock1
.Protocol = sckUDPProtocol
.RemoteHost = "192.168.5.251" '对方IP
.LocalPort = 2222
.RemotePort = 2221
.Bind 2222
End With
End Sub
Private Sub InitWinsockGet()
With Winsock2
.Protocol = sckUDPProtocol
.RemoteHost = "192.168.5.251" '对方IP
.LocalPort = 2221
.RemotePort = 2222
.Bind 2221
End With
End Sub

Private Sub Command2_Click() '发送
Winsock1.SendData "你好"
End Sub

Private Sub Form_Load()
Call InitWinsockSend
Call InitWinsockGet
End Sub

Answer 2

用SendData发送，监听方在DataArrival事件中，通过GetData方法获取。