- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]这个能用于pc端使用吗？利用UDP与APP或VB.net等软件在内网可以正常通信 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140955)
-- 发布时间：2019/9/18 10:14:00
-- [求助]这个能用于pc端使用吗？利用UDP与APP或VB.net等软件在内网可以正常通信
利用UDP与APP或VB.net等软件在内网可以正常通信http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107115
-- 发布时间：2019/9/18 10:35:00
--
可以，这种问题自己试试不就知道了
-- 发布时间：2019/9/18 13:47:00
--
| 下载信息 [文件大小：201.1 KB 下载次数：77] | |
 点击浏览该文件:udp通信1.zip |
这个我已经做好了，怎么接收信息？
-- 发布时间：2019/9/18 14:15:00
--
http://www.foxtable.com/webhelp/topics/3004.htm
-- 发布时间：2019/9/19 9:20:00
--
“管理项目”功能区，单击“网络监视器”，设置UDPClient的ReceivedMessage事件代码：
我没有高开版
-- 发布时间：2019/9/19 9:37:00
--
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
这代码就什么都没有
-- 发布时间：2019/9/19 11:09:00
--
那就升级到高级开发版