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

最新推荐文章于 2021-08-01 05:01:41 发布

tmd007

最新推荐文章于 2021-08-01 05:01:41 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

文章标签： integer string

本文链接：https://blog.youkuaiyun.com/tmd007/article/details/1438874

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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"
    winsockclient.RemotePort = 1004
    winsockclient.SendData Text1.Text
End Sub

Private Sub Text2_Change(Index As Integer)
winsockserver1(Index).SendData Text2(Index).Text
End Sub

Private Sub winsockclient_DataArrival(ByVal bytesTotal As Long)
Dim strdate As String
winsockclient.GetData strdate
Text1.Text = strdate
End Sub

Private Sub winsockserver1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strdate As String
winsockserver1(Index).GetData strdate
Text2(Index).Text = strdate
End Sub