一客户端多服务端UDP本地连接代码(同时发送)

最新推荐文章于 2022-06-21 17:24:30 发布

tmd007

最新推荐文章于 2022-06-21 17:24:30 发布

阅读量1.2k

点赞数

文章标签： integer string

本文链接：https://blog.csdn.net/tmd007/article/details/1438874

版权

这个示例代码展示了如何使用VB实现一个客户端同时连接到多个本地UDP服务器并进行数据传输。客户端通过Winsock组件设置不同的远程端口与服务器建立连接，并在Text1文本框内容改变时，将数据发送到所有服务器。服务器接收到数据后，将其显示在相应的Text2文本框中。

摘要由CSDN通过智能技术生成

Option Explicit
Dim i
Private Sub Form_Load()
    winsockclient.RemoteHost = "127.0.0.1"
    winsockserver1(0).RemoteHost = "127.0.0.1"
    winsockserver1(0).RemotePort = "1002"
    winsockserver1(0).Bind 1001
    winsockserver1(1).RemoteHost = "127.0.0.1"
    winsockserver1(1).RemotePort = "1002"
    winsockserver1(1).Bind 1003
    winsockserver1(2).RemoteHost = "127.0.0.1"
    winsockserver1(2).RemotePort = "1002"
    winsockserver1(2).Bind 1004
End Sub

Private Sub Text1_Change()
    winsockclient.RemoteHost = "127.0.0.1"
    winsockclient.RemotePort = 1001
    winsockclient.SendData Text1.Text
    winsockclient.RemoteHost = "127.0.0.1"
    winsockclient.RemotePort = 1003
    winsockclient.SendData Text1.Text
    winsockclient.RemoteHost = "127.0.0.1