Dim udp As New System.Net.Sockets.UdpClient(0)
Dim ip As New System.Net.IPEndPoint(System.Net.IPAddress.Parse("127.0.0.1"), 52178)
Dim bytes() As Byte = System.Text.Encoding.Unicode.GetBytes("#PD01#PD02#PD03#")
udp.Send(bytes, bytes.Length, ip)
Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(5) '等到5秒
If udp.Available > 0 Then
Dim remoteIp As New System.Net.IPEndPoint(System.Net.IPAddress.Any, 0)
Dim rbytes() As Byte = udp.Receive(remoteIp)
Dim rev As String = System.Text.Encoding.Unicode.GetString(rbytes)
MessageBox.Show(rev)
End If
End While
udp.Close
这代码就什么都没有
加好友 
发短信
Post By：2019/9/18 10:14:00 [显示全部帖子]
