首 页 网络编程
网页制作 图形图象 操作系统 冲浪宝典
软件教学 认证考试

网络安全 网络办公 行业资讯 评测对比
您当前位置:站长天空 -> 操作系统
利用winsock控件实现局域网通信_visualbasic教程
作者:网友供稿 点击:0
推荐
西部数码-全国虚拟主机10强!20余项虚拟主机管理功能,全国领先!第6代双线路虚拟主机,南北访问畅通无阻!可在线rar解压,自动数据恢复设置虚拟目录等.免费赠送访问统计,企业邮局.Cn域名注册10元/年,自助建站480元起,免费试用7天,满意再付款!P4主机租用799元/月.月付免压金
站内搜索
文章页数:[1] 
对于局域网用户中的编程爱好者来说,如果能自己编一个局域网通信程序,那么这一切将是多么美妙!可是,如果要从头开始完全由自己来编写一段用于通信的程序,必须对相关的网络协议及其他的一些较底层的技术有较深入的了解,这可不是一件容易的事。而现在有了Winsock控件,一切就不同了,它已经替你封装了所有烦琐的技术细节,并提供了访问TCP和UDP网络服务的方便途径。你只需通过设置控件的属性并调用其方法就可轻易连接到一台远程计算机中,并且还可以双向交换数据,而这一切都不需你了解TCP的细节或调用低级的WinsockAPIs。

  Winsock控件可以供MicrosoftAcess、VisualBasic,VisualC 或VisualFoxpro的开发人员使用。本文以VisualBasic6企业版为开发环境来向大家介绍一下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).bindsckserver(0).LocalPort与本地端口绑定

  sckserver(0).listern侦听

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

  甲机客户机要先请求连接

  sckconnect.connectsckconnect.RemoteHost,sckconnect.RemotePort

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

->Privatesubsckserver_connectionrequest(indexasInteger,Byvalrequestidaslong)
ifsckserver.count=1then
loadsckserver(1)
sckserver(1).acceptrequestId
endif
endsub
->

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

  sckconnect.SendDatastring

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

->Privatesubsckserver_DataArrival(Indexasinteger,ByvalBytesTotalaslong)
dimsdataasstring
sckserver(1).GetDatasdata,vbstring
endsub
->

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

->privatsubform_unload(cancelasinteger)
ifsckconnect.state<>sckclosedthen
sckconnect.close
endif
endsub
->
  这只是最简单的情况,如果有多台计算机,那就稍微复杂一些,客户端程序可以不做改动,而服务器端程序需要略做改动:

->Privatesubsckserver_connectrequest(IndexasInteger,Byvalrequestidaslong)
dimsipasstring
dimIasinteger
sip=sckserver(0).RemoteHostIP获得登录者的IP地址
I=1
DowhileI<=sckserver.ubound检查是否已经有该地址的记录
Ifsckserver(I).RemoteHostIP=sipthen如有,不必加载新的控件
Sckserver(I).Acceptrequestid
Exitsub
Endif
I=I 1
Loop
Loadsckserver(I)否则,加载新的控件
Scksrver(I).acceptrequestID
Endsub
->
  注意到:以上的信息交谈实际上都发生在客户机与服务器之间,如果要做成聊天室那样,每个人的话都可以被别人“听到”,那就要在服务器端的DataArrival事件中,把接收到的客户机传来的数据,转发给所有客户机即可。

  其循环转发信息的代码如下:

->ForI=1tosckserver.count
ifsckserver(I).state<>sckclosedthen
sckserver(I).SendDatasdata
endif
nextI
->
  怎么样,这样我们就作好了自己的通信软件!
  不过,不知大家注意到没有,上述程序都需要有一台计算机做为服务器,但如果我们的局域网中没有哪台计算机是可以常开的,也就是说,如果服务器端程序没有运行的话,其他客户端程序也没有办法通信。而这种情况却可能是经常出现的!至少,我所用的局域网那就是这样的。难道这样我们就无法享受局域网通信的乐趣了吗?

  不要急,记得吗,我们的Winsock控件还有另一个主角:UDP协议。

  UDP协议也称为用户数据报文协议,是一个无连接协议。何谓无连接协议?就是说利用此协议连接时,不必象TCP协议那样:需要服务器端侦听,客户机端请求连接,服务器端建立连接后双方才能通信。另外,UDP应用程序可以是客户机,也可以是服务器程序,而不必向TCP应用程序那样必须分别建立客户机程序和服务器程序。

  下面,来简述一下UDP协议通信的过程:UDP协议中,为了在甲乙两机中传输数据,必须先分别设置两机的LocalPort属性;再将甲机的RemoteHost属性设置为乙机的IP地址,RemotePort属性设置为乙机的LocalPort属性值,此时甲机调用SendData方法就可以传送数据了,乙机同样使用DataArrival事件中的GetData方法来获取甲机发送给乙机的信息。如想乙机向甲机传送数据,只需仿照上面的过程设置即可。

  用UDP协议来传输信息较TCP协议来说简单的多,它无须侦听(LISTEN),也无须请求连接(CONNECT),就象我们平时发信一样,只要写好地址及收信人姓名并发送出去即可。我们可以借此来编写一个局域网中的信息传送程序,下面来简单介绍以下程序中想实现的功能及其基本思想:

  首先,我们一定想让程序的图标显示在systemtray中而不显示在任务栏中吧!这要是自己编程实现可不是太容易,幸好VB光盘中在common\tools\vb\unsupport\systemTray中有一个现成的程序,我们只要把它编译成systray.ocx控件,然后在编写自己的程序时添加此控件即可。其使用方法十分简单,它已经定义好了鼠标单击、双击等事件,你只需编写相应的鼠标事件即可,这里不再多说。

  程序的关键是:UDP协议在通讯时要知道对方的IP和Port,这要如何实现呢?最简单的方法是建立一个配置文件,里面放置了局域网上每台计算机的名字、IP和Port,在程序初始化时读出所有信息,在程序中只要知道向谁通信,读出其对应的IP和Port即可。

  我们知道了每台计算机的IP和Port,但我们怎样才能知道其它计算机是否在线呢,否则发出信息别人收不到怎么办?我们可以把此程序放在启动菜单中,让其一开机就自动启动,并最小化,放于窗口右下角的systemtray中。在程序刚开始运行时,它会自动向它从配置文件中所知道的所有IP发一条信息:“我来了!”,如果有计算机在线,它会自动返回一条信息:“欢迎!”,如此则两机通信成功,它们会分别把对方的名字加入到自己的可通信人名单中去;如果有计算机关机,程序在退出之前会自动向所有人告别:“再见!”,接收到此信息的计算机会自动把发送信息的计算机的名称从自己的可通信人名单中去除。这样,如果某人不在线,你将无法发送信息给它;如果除了你以外,其他人都没有开机,那你的可发送人名单中将没有任何人。而其它人只要一上线,会自动去你那里“登记”,其他人只要一离线,会自动去你那里“告别”,你可以据此知道他人是否正在使用计算机,你甚至可以以此程序来统计他人的每天上机时间,不错吧!

  好了,一个局域网通信的程序的基本模型已经有了,并不复杂吧!大家赶快动手吧,来享受用自己的程序来聊天的乐趣!

  不过,要想编写一个出色的程序,不光是要有良好的创意与功能,更重要的是程序的兼容性与容错性。本例中,对错误处理没有做详细的解释,关于这一点,大家可以在Winsock控件的error事件及其帮助中找到满意的答案。

  另外,还可以从以下几方面来考虑功能的扩充:如传送图形、声音等多媒体信息、局域网互传文件(主动传送)、历史通话记录、系统日志、个人上机时间统计等等,而所有的这一切仅仅取决于你的想象力与你的聪明才智!下面,笔者以传送文件为例来讲一讲其功能实现的代码。

  你可以把本地的文件(图形、声音等可以先存成临时文件)以二进制文件的方式来打开它,将其内容全部读入一个byte类型的数组中,本地机代码如下:

->dimmyfile()asbyte
dimpositionaslong
open"filename"forbinaryas#1
position=0
dowhilenoteof(1)
position=positon 1
redimpreservemyfile(1toposition)
get#1,,myfile(position)
loop
close#1
->
  再向远程机传送这个字节数组

  sckserver.SendDatamyfile

  远程机收到这个数组之后,再以二进制文件的方式打开一个新目标文件,将数组内容写入这个新打开的文件,如果是bmp图片就将其放入picture图片框中,如果是wav文件,就播放。这样,局域网中的两个人就可以通过语言、图片、文字来交流了。

  远程机代码如下:

->Privatesubsckconnect_DataArrival(byvalbytestotalaslong)
dimreceivefile(1tobytestotal)asbyte
sckconnect.GetDatareceivefile,vbarray vbbyte
告诉Winsock控件收到的是字节数组类型的数据
open"c:\temp\文件名"forbinaryas#1
forI=1tobytestotal
put#1,,remotearray(I)
nextI
clost#1
endsub
->->


文章整理:站长天空 网址:http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

文章页数:[1] 


放大字体显示 缩小字体显示 打印文章 推荐给朋友
热门文章
·在.Net中嵌入资源文件到程序集中-.NET教程,VB.Net语言
·字符串转换成十六进制-.NET教程,算法/线程
·获得网卡MAC地址和IP地址(VB.net)-.NET教程,VB.Net语言
·.Net框架程序设计(一)----进阶-.NET教程,.NET Framework
·我是否可以将Excel数据导入?-ASP教程,数据库相关
·封面的最佳设计-.NET教程,评论及其它
·使用C#控制远程计算机的服务-.NET教程,C#语言
·利用XMLHTTP下载文件-ASP教程,XML相关
·关于VB.net中无法使用VB6控件-.NET教程,VB.Net语言
·.NET里面的Interop太烂了-.NET教程,.NET Framework
最新文章
·windowsxp sp3 概览里面到底有什么?_windows xp
·让vista系统停止讨厌的报告程序问题_windows vista
·如果你有100万流量如何赚钱_网赚技巧
·携程海归派ceo梁建章:天才整合旅游业_站长访谈
·狂热+坚持=成功 博客园ceo dudu访谈_站长访谈
·php5对mysql5的任意数据库表的管理代码示例(三) _php技巧
·php5对mysql5的任意数据库表的管理代码示例(一)_php技巧
·好的产品才是最好的推广_站长心得
·视频网站的媒体传播现状走向_站长心得
·点评一下目前国内各站长类网站发展现状_站长心得
相关主题
  • 利用windows系统自带命令手工搞定病毒_病毒防治教程
  • 利用winsock控件实现局域网通信_visualbasic教程
  • 利用Winsock下载文件(支持断点续传)-数据库专栏,SQL Server
  • 利用Windows 2000 Server的RRAS实现软路由-网管专栏,操作系统
  • 利用Windows 2000 Server的RRAS实现VPN服务器-网管专栏,操作系统
  • 西部数码虚拟主机

    友情链接
    CNNIC 西部数码
    万网 自助建站
    虚拟主机 asp空间
    域名注册 域名
    域名申请 主页空间
    论坛空间 网站空间
    国际域名 虚拟空间
    空间租用 DDOS防火墙
    成都主机托管 四川主机托管
    主机租用 服务器租用
    网站目录 自助建站
    虚拟主机 网址大全
    软件下载
    自助链接
    虚拟主机资讯 特价虚拟主机
    版权申明:本站文章均来自网络,如有侵权,请联系我们,我们收到后立即删除,谢谢!
    关于我们:站长天空:专业提供最新的站长资讯、在线教程、虚拟主机权威评测、虚拟主机性能对比、网站制作教程,开发教程,站长工具。包括网页制作教程、冲浪宝典、编程参考、操作系统、软件教学、行业动态等。
    特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有。
    发表评论 打印  刷新     关闭