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  End Sub    Private Sub textsend_Change()      Winsockserver.SendData textsend.Text  End Sub  Private Sub Winsockserver_Close()      Winsockserver.Close      End  End Sub    Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long)      textsend.Visible = True      textget.Visible = True      If Winsockserver.State <> sckClosed Then Winsockserver.Close      Winsockserver.Accept requestID  End Sub    Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long)      Dim tmpstr As String            Winsockserver.GetData tmpstr      textget.Text = tmpstr  End Sub  

客户机程序使用的控件如下:
(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"  End Sub  Private Sub Text1_Change()      Winsockclient.RemoteHost = Text1.Text  End Sub  Private Sub textsend_Change()      Winsockclient.SendData textsend.Text  End Sub  Private Sub Winsockclient_Close()      Winsockclient.Close      End  End Sub  Private Sub winsockclient_Connect()      textsend.Visible = True      textget.Visible = True      Command2.Visible = False  End Sub  Private Sub winsockclient_DataArrival(ByVal bytesTotal As Long)      Dim tmpstr As String      Winsockclient.GetData tmpstr      textget.Text = tmpstr  End Sub  

建立多个客户端

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
复制代码


展开阅读全文

没有更多推荐了,返回首页