文档介绍：

利用VB进行服务器编程实例汇总现在大多数语言都支持客户-服务器模式编程,其中VB给我们提供了很好的客户-服务器编程方式。下面我们用VB来实现TCP/IP网络编程。 TCP/最重要的协议。VB提供了WinSock控件,用于在TCP/IP的基础上进行网络通信。当两个应用程序使用Socket进行网络通信时,其中一个必须创建Socket服务器侦听,而另一个必须创建Socket客户去连接服务器。这样两个程序就可以进行通信了。 1.创建服务器,首先创建一个服务端口号。并开始侦听是否有客户请求连接。建立一窗体,并向其增加一个Winsock控件(可在工程菜单中的部件项来添加此控件),添加两文本框Text1,Text2,mand1。 PrivateSubForm_Load() SockServer.LocalPort=2000′服务器端口号,最好大于1000 SockServer.Listen′开始侦听 EndSub PrivateSubForm_Unload(CancelAsInteger) SockServer.Close EndSub PrivateSubSockServer_Close() SockServer.Close EndSub PrivateSubSockServer_ConnectionRequest(ByValrequestIDAsLong) SockServer.Close SockServer.AcceptrequestID′表示客户请求连接的ID号 EndSub ′当客户向服务器发送数据到达后,产生DataArrival事件,在事件中接收数据,GetData方法接收数据。 PrivateSubSockServer_Data Arrival(ByValbytesTotalAsLong) DimsAsString SockServer.GetDatas Text1.Text=s EndSub 当我需要向客户发送数据时,只需调用SendData方法。 mand1_Click() SockServer.SendDataText2.Text EndSub 2.创建客户。要创建客户连接服务器,首先设置服务器主机名,如IP地址、域名或计算机名,然后设置服务器端口,最后连接服务器。建立一窗体,并向其增加一个Winsock控件(可在工程菜单中的部件项来添加此控件),取名为:SockC1。添加两文本框Text1,Text2,mand1。 PrivateSubForm_Load() SockCl.RemoteHost=′127.0.0.1″′表示服务器主机名 SockCl.RemotePort=2000 ′表示服务器端口名 SockCl.Connect ′连接到服务器EndSub PrivateSubForm_Unload(CancelAsInteger) SockCl.Close EndSub PrivateSubSockCl_Close() SockCl.Close EndSub PrivateSubSockCl_DataArrival(ByValbytesTotalAsLong) DimsAsString SockCl.GetDatas′接收数据到文本框中 Text1.Text=s EndSub mand1_Click() SockCl.SendDataText2.Text′向服务器发送数据 EndSub 3.进行通信。把这两个窗体分别编译成两个EXE文件,服务器Server.exe和客户Client.exe程序,并把它们分别安装在服务器端和客户端,这样就可以实现两者通信了。VBSocket编程(Winsock控件创建TCP/IP客户机/服务器程序)Winsock控件建立在TCP、UDP协议的基础上,完成与远程计算机的通信。即使对TCP/IP不太熟悉的用户,使用该控件也可以在十几分钟内创建一个简单的客户机/服务器程序。下面我们对Winsock控件的事件、方法、属性按其在程序中出现的顺序分别作详细的介绍,以便更好地理解程序源代码。下面是Winsock控件的相关属性,方法和事件。(略去一些暂用不到的)*属性-------------------------------------------------------------------------LocalHostName|本地机器名LocalIP|本地机器IP地址LocalPort|本地机器通信程序的端口(0

内容来自淘豆网www.taodocs.com转载请标明出处.