VB Socket编程(Winsock控件创建TCP/IP客户机/服务器程序)
Winsock控件建立在TCP、UDP协议的基础上,完成与远程计算机的通信。即使对TCP/IP不太熟悉的用户,使用该控件也可以在十几分钟内创建一 个简单的客户机/服务器程序。下面我们对Winsock控件的事件、方法、属性按其在程序中出现的顺序分别作详细的介绍,以便更好地理解程序源代码。
下面是Winsock控件的相关属性,方法和事件。(略去一些暂用不到的)
*属性
-------------------------------------------------------------------------
LocalHostName >
先在一台计算机上运行服务器程序,此时窗口上只有一个“退出”按钮。 再在另一台计算机上运行客户机程序,在“连接”按钮右边的文本框中输入服务器的主机名后单击“连接”按钮。如果连接成功,则服务器和客户机程序窗口都会出 现两个文本框。这时,两端都可以在上面的文本框中输入文字,这些文字会立即在下面的文本框中出现。
服务器程序使用的控件如下:
(1)Command1:退出按钮;
(2)textsend:发送数据文本框;
(3)Winsockserver: 服务器Winsock;
(4)textget :接收数据文本框。
服务器程序的界面如图所示。
服务器程序的源代码如下:
- 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:接收数据文本框;
客户机程序的源代码如下:
- 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 协议不需要显式的连接。要在两个控件中间发送数据,需要完成以下的三步(在连接的双方):
- 将 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 属性之前,必须先关闭连接。
- 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
- 复制代码