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

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

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