利用WinSock实现简单网络编程

利用WinSock可以实现TCP、UDP协议通信。我们知道，网络通信要找三个地址即网络地址、主机地址、服务地址（端口号）。通过机器的IP地址和子网掩码计算可以得到网络和主机地址。而每个机器的服务地址（端口号）有65536个。下面就谈一下怎样利用WinSock实现网络通信。

服务器端程序编写：建立一个窗体，添加一个Text控件用于存放发送信息的内容、一个命令按钮(cmdSend)用于发送信息、两个WinSock控件(sckListen,sckServer)，一个用于监听、一个用于接受。把sckServer的Localport 属性设为8001（一定不要和sckListen的端口号一样即可）。

程序代码如下：

Private Sub cmdSend_Click()

sckServer.SendData Text1.Text

End Sub



Private Sub Form_Load()

sckListen.LocalPort = 8000

sckListen.Listen

End Sub



Private Sub sckListen_ConnectionRequest(ByVal requestID As Long)

sckServer.Accept requestID

cmdSend.Enabled = True

End Sub



Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)

Dim s As String

sckServer.GetData s, vbString, bytesTotal

MsgBox s

End Sub

工作站端程序编写：建立一个窗体，添加一个Text控件用于存放发送信息的内容、一个命令按钮(cmdSend)用于发送信息、一个WinSock控件(sckClient)用于接受信息。把sckClient的Localport 属性设为8002。

程序代码如下：

Private Sub cmdSend_Click()

sckClient.SendData Text1.Text

End Sub



Private Sub Form_Load()

Dim sIP As String

sIP = InputBox("Please Input IP address", sckClient.LocalIP)

sckClient.Connect sIP, 8000

End Sub



Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)

Dim s As String

sckClient.GetData s, vbString, bytesTotal

MsgBox s

End Sub

使用方法：在服务器端启动服务程序，运行工作站程序，输入服务器主机的IP地址，在Text 框中输入要发送的内容，单击发送命令按钮，此时服务器就会接受到信息。这时在服务器的文本框输入发送的内容，单击发送命令按钮，此时工作站就会接受到信息。

当然，这只是个简单的测试程序，在实际应用中可以利用变量、数据库等做很多事情。同时这个程序只能一对一的传送，想实现一个服务器多个工作站方式，可以在服务器端多建立几个Winsock接收控件，一个控件对应一个工作站，但要注意，Winsock控件的Localport 属性要不一样。即一个端口对应一个服务。