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

《VisualBasic实现网络通讯程序设计.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Visual-Basic-实现网络通讯程序设计————————————————————————————————作者：————————————————————————————————日期：VB网络通讯程序设计WinSock控件能够通过UDP协议（用户数据报协议）或TCP协议（数据传输协议）连接到远程的机器并进行数据交换。这两种协议都能用来创建客户端和服务端应用程序。就像定时器控件一样，WinSock控件运行时没有一个可视的界面。下面就是分别用TCP和UDP协议来创建的网络聊天软件。TCP协议网络聊天程序的运行过程及原理第一步：建立连接主要

2、过程是：由客户端程序向服务端程序发出连接请求，服务端程序收到并接受连接请求，至此客户机与服务器创建了数据交流通道。第二步：开始聊天主要过程是：在客户机的“发送的信息”文本框中输入文字时，服务器端的“收到的信息”文本框中就会实时地显示相同的文字，反之亦然。服务器的界面设计1.创建一个“标准EXE”工程，选中“工程”菜单的“部件”，在控件中找到MicrosoftWinsockControl并将其选中。2.将Form1的名称改为Form_Load()，并在其中添加两个命令按钮（Command1的Caption属性为“退出”，Command2的

3、Caption属性为“发送”）。3.在窗体是添加三个TextBox控件，其名称分别为txtServerIP，txtSend和txtReceive。4.在窗体上添加一个Winsock控件，将其Protocol（协议）属性设置为0（即sckTCPProtocol）。服务器端的源代码：PrivateSubForm_Load()'设置侦听端口WinsockServer.LocalPort=10001'读取服务器的IP地址txtServerIP.Text=WinsockServer.LocalIP'开始侦听WinsockServer.Listen

4、EndSubPrivateSubCommand1_Click()'点击“退出”按钮后关闭应用程序UnloadMeEndSubPrivateSubCommand2_Click()'只要txtSend文本框的内容写好以后就由WinsockServer控件发送WinsockServer.SendDatatxtSend.TextEndSubPrivateSubWinsockServer_ConnectionRequest(ByValrequestIDAsLong)'当收到连接请求时，Winsock处于侦听状态'此时应该使用Close方法关闭Wi

5、nsock，然后使用Accept方法接受连接请求WinsockServer.CloseWinsockServer.AcceptrequestIDEndSubPrivateSubWinsockServer_DataArrival(ByValBytesTotalAsLong)'当客户端有信息发送来时，利用WinsockServer控件的GatData方法读取数据'并将其显示在txtReceive文本框中DimMyStrAsStringWinsockServer.GetDataMyStrtxtReceive.Text=MyStrEndSub运

6、行界面如下图：客户端的界面设计1.创建一个新的“标准EXE”工程，并添加Winsock控件。2.将Form1的名称改为Form_Load()，并在其中添加两个命令按钮（Command1的Caption属性为“退出”，Command2的Caption属性为“连接服务器”，Command3的Caption属性为“发送”）。3.在窗体是添加四个TextBox控件，其名称分别为txtClientIP，txtServerIP，txtSend和txtReceive。4.在窗体上添加一个Winsock控件，将其Protocol（协议）属性设置为0（即

7、sckTCPProtocol）。客户端的源代码：PrivateSubForm_Load()'设置聊天服务器的侦听端口WinsockClient.RemotePort=10001'读取本机的IP地址txtClientIP.Text=WinsockClient.LocalIPEndSubPrivateSubCommand1_Click()'点击“退出”按钮后关闭应用程序UnloadMeEndSubPrivateSubCommand2_Click()'根据txtServerIP文本框中输入的服务器IP，连接聊天服务器WinsockClient

8、.RemoteHost=txtServerIP.TextWinsockClient.ConnectEndSubPrivateSubCommand3_Click()'输入txtSend文本框的内容后由Wins