VB Socket编程(Winsock控件创建TCP/IP客户机/服务器程序)
Winsock控件建立在TCP、UDP协议的基础上，完成与远程计算机的通信。即使对TCP/IP不太熟悉的用户，使用该控件也可以在十几分钟内创建一 个简单的客户机/服务器程序。下面我们对Winsock控件的事件、方法、属性按其在程序中出现的顺序分别作详细的介绍，以便更好地理解程序源代码。
下面是Winsock控件的相关属性，方法和事件。(略去一些暂用不到的)
*属性
-------------------------------------------------------------------------
LocalHostName>
先在一台计算机上运行服务器程序，此时窗口上只有一个“退出”按钮。 再在另一台计算机上运行客户机程序，在“连接”按钮右边的文本框中输入服务器的主机名后单击“连接”按钮。如果连接成功，则服务器和客户机程序窗口都会出 现两个文本框。这时，两端都可以在上面的文本框中输入文字，这些文字会立即在下面的文本框中出现。
服务器程序使用的控件如下：
（1）Command1：退出按钮；
（2）textsend：发送数据文本框；
（3）Winsockserver： 服务器Winsock；
（4）textget ：接收数据文本框。
服务器程序的界面如图所示。
服务器程序的源代码如下：
客户机程序使用的控件如下：
（1）Command1：退出按钮；
（2）Command2：连接按钮；
（3）Winsockclient：客户Winsock；
（4）Text1：主机名文本框；
（5）Textsend：发送数据文本框；
（6）Textget：接收数据文本框；
客户机程序的源代码如下：
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。（下面将详细地讨论该方法。） @H_404_610@
- 创建一个新的 Standard EXE 工程。
- 将缺省的窗体的名称修改为 frmPeerA。
- 将窗体的标题修改为“Peer A”。
- 在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerA。
- 在“属性”页上，单击“协议”并将协议修改为 UDPProtocol。
- 在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。
- 为窗体增加如下的代码。 @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
- 在工程中添加一个标准窗体。
- 将窗体的名字修改为 frmPeerB。
- 将窗体的标题修改为“Peer B”。
- 在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerB。
- 在“属性”页上，单击“协议”并将协议修改为“UDPProtocol”。
- 在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。
- 在窗体中添加如下的代码。 @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
因为两台计算机的地位可以看成“平等的”，这种应用程序也被称为点到点的。为了具体说明这个问题，下面将创建一个“聊天”应用程序，两个人可以通过它进行实时的交谈。
要创建一个 UDP 伙伴，请按照以下步骤执行：
要创建第二个 UDP 伙伴，请按照以下步骤执行：
如果要试用上面的例子，按 F5 键运行工程，然后在两个窗体的 txtSend TextBox 中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox 中。
关于 Bind 方法
在上面的代码中，在创建 UDP 应用程序时调用了 Bind 方法，这是必须的。Bind 方法的作用是为控件“保留”一个本地端口。例如，如果将控件绑定到 1001 号端口，那么其它应用程序将不能使用该端口进行“监听”。该方法阻止其它应用程序使用同样的端口。
Bind 方法的第二个参数是任选的。如果计算机上存在多个网络适配器，可以用 LocalIP 参数来指定使用哪一个适配器。如果忽略该参数，控件使用的将是计算机上“控制面板”设置中“网络”控制面板对话框中列出的第一个适配器。
在使用 UDP 协议的时候，可以任意地改变 RemoteHost 和 RemotePort 属性，同时始终保持绑定在同一个 LocalPort 上。TCP 协议与此不同，在改变 RemoteHost 和 RemotePort 属性之前，必须先关闭连接。
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 复制代码