VisualBasic60实现网络通讯程序设计.doc

VB网络通讯程序设计 WinSock控件能够通过UDP协议（用户数据报协议）或TCP协议（数据传输协议）连接到远程的机器并进行数据交换。这两种协议都能用来创建客户端和服务端应用程序。就像定时器控件一样，WinSock控件运行时没有一个可视的界面。 第一步：建立连接 主要过程是：由客户端程序向服务端程序发出连接请求，服务端程序收到并接受连接请求，至此客户机与服务器创建了数据交流通道。 第二步：开始聊天 主要过程是：在客户机的“发送的信息”文本框中输入文字时，服务器端的“收到的信息”文本框中就会实时地显示相同的文字，反之亦然。 服务器的界面设计 1.创建一个“标准 EXE”工程，选中“工程”菜单的“部件”，在控件中找到Microsoft Winsock Control并将其选中。 2.将Form1的名称改为Form_Load()，并在其中添加两个命令按钮（Command1的Caption属性为“退出”，Command2的Caption属性为“发送”）。 3.在窗体是添加三个TextBox控件，其名称分别为txtServerIP，txtSend和txtReceive。 4.在窗体上添加一个Winsock控件，将其Protocol（协议）属性设置为0（即sckTCPProtocol）。 服务器端的源代码： Private Sub Form_Load() 设置侦听端口 WinsockServer.LocalPort = 10001 读取服务器的IP地址 txtServerIP.Text = WinsockServer.LocalIP 开始侦听 WinsockServer.Listen End Sub Private Sub Command1_Click() 点击“退出”按钮后关闭应用程序 Unload Me End Sub Private Sub Command2_Click() 只要txtSend文本框的内容写好以后就由WinsockServer控件发送 WinsockServer.SendData txtSend.Text End Sub Private Sub WinsockServer_ConnectionRequest(ByVal requestID As Long) 当收到连接请求时，Winsock处于侦听状态 此时应该使用Close方法关闭Winsock，然后使用Accept方法接受连接请求 WinsockServer.Close WinsockServer.Accept requestID End Sub Private Sub WinsockServer_DataArrival(ByVal BytesTotal As Long) 当客户端有信息发送来时，利用WinsockServer控件的GatData方法读取数据 并将其显示在txtReceive文本框中 Dim MyStr As String WinsockServer.GetData MyStr txtReceive.Text = MyStr End Sub 运行界面如下图： 客户端的界面设计 1.创建一个新的“标准 EXE”工程，并添加Winsock 控件。 2.将Form1的名称改为Form_Load()，并在其中添加两个命令按钮（Command1的Caption属性为“退出”， Command2的Caption属性为“连接服务器” ，Command3的Caption属性为“发送”）。 3.在窗体是添加四个TextBox控件，其名称分别为txtClientIP，txtServerIP，txtSend和txtReceive。 4.在窗体上添加一个Winsock控件，将其Protocol（协议）属性设置为0（即sckTCPProtocol）。 客户端的源代码： Private Sub Form_Load() 设置聊天服务器的侦听端口 WinsockClient.RemotePort = 10001 读取本机的IP地址 txtClientIP.Text = WinsockClient.LocalIP End Sub Private Sub Command1_Click() 点击“退出”按钮后关闭应用程序 Unload Me End Sub Private Sub Command2_Click() 根据txtServerIP文本框中输入的服务器IP，连接聊天服务器 WinsockClient.RemoteHost = txtServerIP.Text WinsockClient.