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。(下面将详细地讨论该方法。)

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

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

    1. 创建一个新的 Standard EXE 工程。
    2. 将缺省的窗体的名称修改为 frmPeerA。
    3. 将窗体的标题修改为“Peer A”。
    4. 在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerA。
    5. 在“属性”页上,单击“协议”并将协议修改为 UDPProtocol。
    6. 在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。
    7. 为窗体增加如下的代码
    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. 在窗体中添加如下的代码
    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
    复制代码
    原文链接:https://www.f2er.com/vb/258267.html

    猜你在找的VB相关文章