VB实现UDP通信

新建标准EXE工程

image.png

选中窗体，右键，选择添加，选择添加窗体

image.png
image.png
调整窗口大小和位置
image.png

选择工程菜单，选择部件

image.png
image.png
image.png
在Form1中依次拖入控件Winsock,ListBox,TextBox,CommandButton
在Form2中依次拖入控件Winsock,ListBox,TextBox,CommandButton
下面修改Form1,Form2中Winsock控件的属性 选中Winsock控件右键，选中属性，协议选择sckUDPProtocol（Form1,Form2都要修改）
image.png
image.png
在窗体Form1，Form2中填写代码如下：

窗体Form1中代码如下：
'当单击command1控件的时候，将txtBox中的数据发送到远程计算机
Private Sub Command1_Click()
Winsock1.SendData Text1.Text
Text1.Text = ""
End Sub

Private Sub Form_Load()
'控件的名字为 Winsock1
With Winsock1
'重点:必须将 RemoteHost 的值
'修改为计算机的名字。
.RemoteHost = "BMHD9PKW7XD37J9"
.RemotePort = 1001   '连接的端口号。
.Bind 1002                '绑定到本地的端口。
End With
Form2.Show
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
'用GetData方法将从远程计算机接收到的数据放入s中
Winsock1.GetData s
List1.AddItem "" & Index & " " & Trim(s)
End Sub

--------------------------------------------------------------------------------

窗体Form2中代码如下：
Private Sub Form_Load()
'控件的名字为 Winsock1。
With Winsock1
'重点:必须将 RemoteHost 的值改为
'计算机的名字。
.RemoteHost = "BMHD9PKW7XD37J9"
.RemotePort = 1002    '要连接的端口。
.Bind 1001                '绑定到本地的端口上。
End With
End Sub
Private Sub Command1_Click()
Winsock1.SendData Text1.Text
Text1.Text = ""
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
'用GetData方法将从远程计算机接收到的数据放入s中
Winsock1.GetData s
List1.AddItem "" & Index & " " & Trim(s)
End Sub

image.png

修改后点击运行

image.png
image.png