利用Winsock控件实现局域网通信

 

       

    对于局域网用户中的编程爱好者来说，如果能自己编一个局域网通信程序，那么这一切将是多么美妙！可是，如果要从头开始完全由自己来编写一段用于通信的程序，必须对相关的网络协议及其他的一些较底层的技术有较深入的了解，这可不是一件容易的事。而现在有了Winsock控件，一切就不同了，它已经替你封装了所有烦琐的技术细节，并提供了访问TCP和UDP网络服务的方便途径。你只需通过设置控件的属性并调用其方法就可轻易连接到一台远程计算机中，并且还可以双向交换数据，而这一切都不需你了解TCP的细节或调用低级的Winsock APIs。 

　　Winsock控件可以供Microsoft Acess、Visual Basic，Visual C++或Visual Foxpro的开发人员使用。本文以Visual Basic 6企业版为开发环境来向大家介绍一下Winsock控件的初步应用。 

 

　　Winsock控件可以使用两种协议：TCP协议和UDP协议，下面来分别介绍。 

 

　　TCP协议即数据传输协议，它允许创建和维护与远程计算机的连接，使其彼此可以进行数据传输。利用TCP协议通讯必须分别建立客户应用程序和服务器应用程序。 

 

　　在创建客户应用程序时，必须知道服务器计算机名或其IP地址(存于RemoteHost属性)、及服务器计算机进行侦听的端口(存于RemotePort属性），然后调用Connect方法。 

 

　　创建服务器应用程序时，就应相应设置一个侦听端口(LocalPort属性)并调用listen方法。当客户机需要连接时(connect)，就会发生ConnectionRequest事件。为了完成连接，你可以在ConnectionRequest事件中调用Accept方法。建立连接后，任何一方计算机都可以发送、接收对方数据。如果你要发送数据，需调用SendData方法。当接收到数据时，会发生DataArrival事件，调用DataArrival事件中的GetData方法就可以获得对方传送的数据。 

 

　　说了这么多，大家可能还是不太了解，让我用程序来详细说明。 

 

　　如果只有两台计算机，那十分容易。假设甲机为客户机，乙机为服务器，且其IP为192.192.192.1，接收端口为1200(任意选一个未被使用的端口即可)。首先在甲机客户端程序中加入一个Winsock控件，起名为sckconnect，并设置其属性：RemoteHost=“192.192.192.1”，（即甲机IP地址）， RemotePort=1200（即甲机侦听端口）；再在乙机服务器程序中假如一个名为sckserver(0)的Winsock控件，其LocalPort=1200， 

 

　　在乙机服务器程序中Form_Load()加入 

 

　　sckserver(0).bind sckserver(0).LocalPort 与本地端口绑定 

 

　　sckserver(0).listern  侦听 

 

　　如果要传输数据，两机必须先建立连接。建立连接的程序如下： 

 

　　甲机客户机要先请求连接 

 

　　sckconnect.connect sckconnect.RemoteHost, sckconnect.RemotePort 

 

　　此句执行时会触发服务器程序中的ConnectRequest事件，在此过程中决定是否建立连接，其代码如下： 

 

　　Private sub sckserver_connectionrequest(index as Integer,Byval requestid as long) 

 

　　if sckserver.count=1 then 

 

　　load sckserver(1) 

 

　　sckserver(1).accept requestId 

 

　　end if 

 

　　end sub 

 

　　连接建立好以后，甲机或乙机都可以应用SendData方法来传送数据。例如，如果是甲机要传送一个叫string的字符串，只需在代码中加入： 

 

　　sckconnect.SendData string 

 

　　甲机传送数据后，会触发乙机的DataArrival事件，在其过程中用GetData方法可以收到传送的数据： 

 

　　Private sub sckserver_DataArrival(Index as integer,Byval BytesTotal as long) 

 

　　dim sdata as string 

 

　　sckserver(1).GetData sdata,vbstring 

 

　　end sub 

 

　　最后别忘了在关闭程序前要先关闭Winsock控件 

 

　　privat sub form_unload(cancel as integer) 

 

　　if sckconnect.state <>sckclosed then 

 

　　sckconnect.close 

 

　　end if 

 

　　end sub 

 

　 

 

补充：软件开发 , Vb ,
上一个：如何从 Internet 上取回某一个网页的內容？
下一个：利用Visual Basic实现无线通讯
更多图片编程知识:

想找找相关VB脚本编写和JAVA开发的学习资料！

新人求指教，如何实现类似360安仔小精灵的桌面管家？

跪求GDI+在VB6.0环境下 画扇形的函数及使用方法

自动引发RowColChange事件的处理

怎么把VB的选项卡弄成这样啊？

VB打印
  
更多VB疑问解答：
vb把图片转换成 base64代码
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果
cloudStack 如何实现 vSphere的DRS功能
和难缠客户的那些事儿
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果