vb socket通信(TCP/UDP)一对一、多对一

前端之家收集整理的这篇文章主要介绍了vb socket通信(TCP/UDP)一对一、多对一前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

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 协议不需要显式的连接。要在两个控件中间发送数据,需要完成以下的三步(在连接的双方):

    1. 将 RemoteHost 属性设置为另一台计算机的名称

    2. 将 RemotePort 属性设置为第二个控件的 LocalPort 属性

    3. 调用 Bind 方法,指定使用的 LocalPort。(下面将详细地讨论该方法。)
    4. @H_404_610@

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

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

      1. 创建一个新的 Standard EXE 工程。
      2. 将缺省的窗体的名称修改为 frmPeerA。
      3. 将窗体的标题修改为“Peer A”。
      4. 在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerA。
      5. 在“属性”页上,单击“协议”并将协议修改为 UDPProtocol。
      6. 在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。
      7. 为窗体增加如下的代码
      8. @H_404_610@
        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 伙伴,请按照以下步骤执行:

        1. 在工程中添加一个标准窗体。
        2. 将窗体的名字修改为 frmPeerB。
        3. 将窗体的标题修改为“Peer B”。
        4. 在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerB。
        5. 在“属性”页上,单击“协议”并将协议修改为“UDPProtocol”。
        6. 在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。
        7. 在窗体中添加如下的代码
        8. @H_404_610@
          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
    复制代码

    猜你在找的VB相关文章