vb socket通信（TCP/UDP）一对一、多对一

发布时间：2020-12-17 08:03:21 所属栏目：百科来源：网络整理

导读：VB Socket编程(Winsock控件创建TCP/IP客户机/服务器程序) Winsock控件建立在TCP、UDP协议的基础上，完成与远程计算机的通信。即使对TCP/IP不太熟悉的用户，使用该控件也可以在十几分钟内创建一个简单的客户机/服务器程序。下面我们对Winsock控件的事件、方

VB Socket编程(Winsock控件创建TCP/IP客户机/服务器程序)

Winsock控件建立在TCP、UDP协议的基础上，完成与远程计算机的通信。即使对TCP/IP不太熟悉的用户，使用该控件也可以在十几分钟内创建一个简单的客户机/服务器程序。下面我们对Winsock控件的事件、方法、属性按其在程序中出现的顺序分别作详细的介绍，以便更好地理解程序源代码。
下面是Winsock控件的相关属性，方法和事件。(略去一些暂用不到的)
*属性

-------------------------------------------------------------------------
LocalHostName>
先在一台计算机上运行服务器程序，此时窗口上只有一个“退出”按钮。再在另一台计算机上运行客户机程序，在“连接”按钮右边的文本框中输入服务器的主机名后单击“连接”按钮。如果连接成功，则服务器和客户机程序窗口都会出现两个文本框。这时，两端都可以在上面的文本框中输入文字，这些文字会立即在下面的文本框中出现。
服务器程序使用的控件如下：
（1）Command1：退出按钮；
（2）textsend：发送数据文本框；
（3）Winsockserver：服务器Winsock；
（4）textget ：接收数据文本框。
服务器程序的界面如图所示。

服务器程序的源代码如下：

[vb] view>False

textget.Visible=False

Winsockserver.LocalPort=1001

Winsockserver.Listen

EndSub

PrivateSubtextsend_Change()

Winsockserver.SendDatatextsend.Text

EndSub

PrivateSubWinsockserver_Close()

Winsockserver.Close

End

EndSub

PrivateSubWinsockserver_ConnectionRequest(ByValrequestIDAsLong)

textsend.Visible=True

textget.Visible=True

IfWinsockserver.State<>sckClosedThenWinsockserver.Close

Winsockserver.AcceptrequestID

EndSub

PrivateSubWinsockserver_DataArrival(ByValbytesTotalAsLong)

DimtmpstrAsString

Winsockserver.GetDatatmpstr

textget.Text=tmpstr

EndSub

客户机程序使用的控件如下：
（1）Command1：退出按钮；
（2）Command2：连接按钮；
（3）Winsockclient：客户Winsock；
（4）Text1：主机名文本框；
（5）Textsend：发送数据文本框；
（6）Textget：接收数据文本框；　　
客户机程序的源代码如下：

[vb] view>False

textget.Visible=False

Winsockclient.RemotePort=1001

Winsockclient.RemoteHost="sccdsz"

EndSub

PrivateSubText1_Change()

Winsockclient.RemoteHost=Text1.Text

EndSub

PrivateSubtextsend_Change()

Winsockclient.SendDatatextsend.Text

EndSub

PrivateSubWinsockclient_Close()

Winsockclient.Close

End

EndSub

PrivateSubwinsockclient_Connect()

textsend.Visible=True

textget.Visible=True

Command2.Visible=False

EndSub

PrivateSubwinsockclient_DataArrival(ByValbytesTotalAsLong)

DimtmpstrAsString

Winsockclient.GetDatatmpstr

textget.Text=tmpstr

EndSub

建立多个客户端

Private intMax As Long

Private Sub Form_Load()
   intMax = 0
   sckServer(0).LocalPort = 1001
   sckServer(0).Listen
End Sub

Private Sub sckServer_ConnectionRequest _
(Index As Integer,ByVal requestID As Long)
   If Index = 0 Then
      intMax = intMax + 1
      Load sckServer(intMax)
      sckServer(intMax).LocalPort = 0
      sckServer(intMax).Accept requestID
      Load txtData(intMax)
   End If
End Sub

UDP 初步

创建 UDP 应用程序比创建 TCP 应用程序还要简单，因为 UDP 协议不需要显式的连接。在上面的 TCP 应用程序中，一个 Winsock 控件必须显式地进行“监听”，另一个必须使用 Connect 方法初始化连接。

UDP 协议不需要显式的连接。要在两个控件中间发送数据，需要完成以下的三步（在连接的双方）：

将 RemoteHost 属性设置为另一台计算机的名称。
将 RemotePort 属性设置为第二个控件的 LocalPort 属性。
调用 Bind 方法，指定使用的 LocalPort。（下面将详细地讨论该方法。）

因为两台计算机的地位可以看成“平等的”，这种应用程序也被称为点到点的。为了具体说明这个问题，下面将创建一个“聊天”应用程序，两个人可以通过它进行实时的交谈。

要创建一个 UDP 伙伴，请按照以下步骤执行：

创建一个新的 Standard EXE 工程。
将缺省的窗体的名称修改为 frmPeerA。
将窗体的标题修改为“Peer A”。
在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerA。
在“属性”页上，单击“协议”并将协议修改为 UDPProtocol。
在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。
为窗体增加如下的代码。

VBScript code 复制代码

Private Sub Form_Load()
    '控件的名字为 udpPeerA
    With udpPeerA
        '重点:必须将 RemoteHost 的值
        '修改为计算机的名字。
        .RemoteHost = "PeerB"
        .RemotePort = 1001 '连接的端口号。
        .Bind 1002 '绑定到本地的端口。
    End With
    frmPeerB.Show '显示第二个窗体。
End Sub

Private Sub txtSend_Change()
    '在键入文本时，立即将其发送出去。
   >Text
End Sub

Private Sub udpPeerA_DataArrival _
        (ByVal bytesTotal As Long)
    Dim strData As String
   >Text = strData
End Sub

要创建第二个 UDP 伙伴，请按照以下步骤执行：

在工程中添加一个标准窗体。
将窗体的名字修改为 frmPeerB。
将窗体的标题修改为“Peer B”。
在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerB。
在“属性”页上，单击“协议”并将协议修改为“UDPProtocol”。
在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。
在窗体中添加如下的代码。

VBScript code 复制代码

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

Private Sub txtSend_Change()
    '在键入后立即发送文本。
   >Text
End Sub

Private Sub udpPeerB_DataArrival _
        (ByVal bytesTotal As Long)
    Dim strData As String
   >Text = strData
End Sub

如果要试用上面的例子，按 F5 键运行工程，然后在两个窗体的 txtSend TextBox 中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox 中。

关于 Bind 方法

在上面的代码中，在创建 UDP 应用程序时调用了 Bind 方法，这是必须的。Bind 方法的作用是为控件“保留”一个本地端口。例如，如果将控件绑定到 1001 号端口，那么其它应用程序将不能使用该端口进行“监听”。该方法阻止其它应用程序使用同样的端口。

Bind 方法的第二个参数是任选的。如果计算机上存在多个网络适配器，可以用 LocalIP 参数来指定使用哪一个适配器。如果忽略该参数，控件使用的将是计算机上“控制面板”设置中“网络”控制面板对话框中列出的第一个适配器。

在使用 UDP 协议的时候，可以任意地改变 RemoteHost 和 RemotePort 属性，同时始终保持绑定在同一个 LocalPort 上。TCP 协议与此不同，在改变 RemoteHost 和 RemotePort 属性之前，必须先关闭连接。

————————————————————————————————————————————————————————————————————-

以上为介绍，可以有个大概的了解，也是转载的，不过当时情况混乱，没有附链接……

以下为完整的一个多对一的TCP通信实例，感谢原作者的帮助！转自： http://www.cnblogs.com/findw/archive/2012/06/22/2558876.html

—————————————————————————————————————————————————————————————————————

 1 通信程序通常都是采用Client/Server形式。这就要求作为服务器的主机可以同时处理多个客户的请求。因此在编写服务器程序时要添加多个Winsock控件。在开始我们先加入两个Winsock控件。其中一个用来侦听网上请求信号，取名为Listener；另外一个为初始的连接口，取名叫Sock（0）。注意，后一个控件要设为动态数组的形式，以后当客户增多时，可在这个控件基础上动态增加。由于受资源限制，我们在本例中设定最多可以同时接纳15个客户。客户机一般只与一个主机相连，因此程序只须一个Winsock进行连接就足够了。这个程序要用到的控件较少，除了Winsock和Form控件外，只须再添加Commmand控件即可。下面是具体程序和详细注释。 
  2 ****************************** 
  3 '服务器程序 
  4 ****************************** 
  5 Option Explicit 
  6 定义常量 
  7 Const BUSY As Boolean = False 
  8 Const FREE As Boolean = True 
  9 定义连接状态 
 10 Dim ConnectState() As Boolean 
 11 Private Sub Form_Load() 
 12 ReDim Preserve ConnectState(0 To 1) 
 13 On Error Resume Next 
 14 ConnectState(0) = FREE 
 15 ConnectState(1) = FREE 
 16 '指定网络端口号 
 17 Listener.LocalPort = 1011 
 18 '开始侦听 
 19 Listener.Listen 
 20 End Sub 
 21 Private Sub Listener_ConnectionRequest(ByVal requestID As Long) 
 22 Dim SockIndex As Integer 
 23 Dim SockNum As Integer 
 24 On Error Resume Next 
 25 Form1.Print requestID & "连接请求" 
 26 '查找连接的用户数 
 27 SockNum = UBound(ConnectState) 
 28 If SockNum > 14 Then 
 29 Form1.Print SockIndex & "" 
 30 Exit Sub 
 31 End If 
 32 '查找空闲的sock 
 33 SockIndex = FindFreeSocket() 
 34 '如果已有的sock都忙，而且sock数不超过15个，动态添加sock 
 35 If SockIndex > SockNum Then 
 36 Load Sock(SockIndex) 
 37 End If 
 38 ConnectState(SockIndex) = BUSY 
 39 Sock(SockIndex).Tag = SockIndex 
 40 '接受请求 
 41 Sock(SockIndex).Accept (requestID) 
 42 Form1.Print SockIndex & "接受请求" 
 43 End Sub 
 44 
 45 '客户断开，关闭相应的sock 
 46 Private Sub Sock_Close(Index As Integer) 
 47 If Sock(Index).State <> sckClosed Then 
 48 Sock(Index).Close 
 49 End If 
 50 ConnectState(Index) = FREE 
 51 Form1.Print Index & "close" 
 52 End Sub 
 53 
 54 '接收数据 
 55 Private Sub Sock_DataArrival(Index As Integer,ByVal bytesTotal As Long) 
 56 Dim dx As Double 
 57 Form1.Print "数据来自" & Index 
 58 Sock(Index).GetData dx,vbDouble 
 59 Form1.Print "dx=" & dx 
 60 End Sub 
 61 
 62 '寻找空闲的sock 
 63 Public Function FindFreeSocket() 
 64 Dim SockCount,i As Integer 
 65 SockCount = UBound(ConnectState) 
 66 For i = 0 To SockCount 
 67 If ConnectState(i) = FREE Then 
 68 FindFreeSocket = i 
 69 Exit Function 
 70 End Ifs 
 71 Next i 
 72 ReDim Preserve ConnectState(0 To SockCount + 1) 
 73 FindFreeSocket = UBound(ConnectState) 
 74 End Function 
 75 
 76 *************************** 
 77 '客户程序 
 78 ’*************************** 
 79 Option Explicit 
 80 '发送数据 
 81 Private Sub command1_Click() 
 82 Dim dx As Double 
 83 dx = 23.9 
 84 sock.SendData dx 
 85 MsgBox ("data sended") 
 86 End Sub 
 87 
 88 Private Sub Form_Load() 
 89 '远程主机名 
 90 sock.RemoteHost = "media2" 
 91 '网络端口 
 92 sock.RemotePort = 1011 
 93 '发出连接命令 
 94 sock.Connect 
 95 Command1.Enabled = False 
 96 End Sub 
 97 
 98 '服务器关闭 
 99 Private Sub sock_Close() 
100 MsgBox ("socket closed") 
101 End Sub 
102 
103 '连接成功 
104 Private Sub sock_Connect() 
105 MsgBox ("socket connected") 
106 Command1.Enabled = True 
107 End Sub
复制代码

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!