说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
VB利用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

 

  这只是最简单的情况,如果有多台计算机,那就稍微复杂一些,客户端程序可以不做改动,而服务器端程序需要略做改动:

  Private sub sckserver_connectrequest(Index as Integer,Byval requestid as long)

  dim sip as string

  dim I as integer

  sip=sckserver(0).RemoteHostIP '获得登录者的IP地址

  I=1

  Do while I<=sckserver.ubound '检查是否已经有该地址的记录

  If sckserver(I).RemoteHostIP=sip then '如有,不必加载新的控件

  Sckserver(I).Accept requestid

  Exit sub

  End if

  I=I+1

  Loop

  Load sckserver(I) '否则,加载新的控件

  Scksrver(I).accept requestID

  End sub

  注意到:以上的信息交谈实际上都发生在客户机与服务器之间,如果要做成聊天室那样,每个人的话都可以被别人“听到”,那就要在服务器端的DataArrival事件中,把接收到的客户机传来的数据,转发给所有客户机即可。

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

  For I=1 to sckserver.count

  if sckserver(I).state<>sckclosed then

  sckserver(I).SendData sdata

  end if

  next I

 

  怎么样,这样我们就作好了自己的通信软件!

 

  不过,不知大家注意到没有,上述程序都需要有一台计算机做为服务器,但如果我们的局域网中没有哪台计算机是可以常开的,也就是说,如果服务器端程序没有运行的话,其他客户端程序也没有办法通信。而这种情况却可能是经常出现的!至少,我所用的局域网那就是这样的。难道这样我们就无法享受局域网通信的乐趣了吗?

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

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

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

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

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

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

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

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

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

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

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

  dim myfile () as byte

  dim position as long

  open "filename" for binary as #1

  position=0

  do while not eof(1)

  position=positon+1

  redim preserve myfile (1 to position)

  get #1,,myfile(position)

  loop

  close #1

  再向远程机传送这个字节数组

  sckserver.SendData myfile

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

  远程机代码如下:

  Private sub sckconnect_DataArrival(byval bytestotal as long)

  dim receivefile(1 to bytestotal)as byte

  sckconnect.GetData receivefile,vbarray+vbbyte

  '告诉Winsock控件收到的是字节数组类型的数据

  open "c:\temp\文件名" for binary as #1

  for I=1 to bytestotal

  put #1,,remotearray(I)

  next I

  clost #1

  end sub
Gmail新设计影响邮件营销 Fcaebook间接获利 百度高德小米网易杭研讲师登场 SDCC 2013第二批议题发布(图) [开源推荐]JS-Git:一款纯JavaScript实现的Git项目 良心企业Lavabit、Slient Mail相继关闭,美国云安全已死? 一周观察:LXC真的是PaaS的未来吗? [企业开源系列]Google背后的开源力量 合作: “云”潮中淘金的金钥匙 Windows 8.1尚未发布 Build 9471版遭泄露网爆高清大图 Imangi创始人:我眼中的App Store 职业设计生涯:打造世界上最小巧最强大手电 【SDCC 2013】Coding For Fun活动火热招募中! YARN之上的大数据框架REEF:微软出品,是否值得期待? 创建大数据公司之前你需知晓5件事 前途渺茫,考虑出售的黑莓还能找到买家吗? 帮助开发者轻松管理项目的8款在线工具 现代Web应用开发者必备的六大技能 JavaScript异步编程好助手:Promise模式 功能解析:Red语言推出0.3.3新版本 可穿戴?可吞咽!UI和UX的悄然转变 华为刘成:讲述开发者联盟的故事 出尔反尔,Amazon咬文嚼字玩转私有云 创业公司SOASTA:曾帮助伦敦奥运会官网进行云负载测试 金山云进一步聚焦云存储 Facebook公布用户数据:美国移动用户占比78% Zynga开源服务器监控工具zPerfmon 上海海事大学王洁:打造物流教学科研应用云平台生态系统 15个步骤创立技术公司,并收获千万用户(二) HTML5发展慢热 开发者热情不减 NimbleBit孪生兄弟创始人:最后悔没有专注和扩大品牌 将对Windows形成挑战:谷歌在Chrome OS中默认支持Office 微软的企业社交大动作:Yammer发布移动SDK 如何在Jboss3中建立一个守护线程?? MyICQ真的能免费吗?大家一起来交流交流. 一个小问题 关于DATAWINDOW的问题,在线等待 COBOL语言主要干什么用?它有什么特殊功能,什么公司或个人开发的?现在它还有市场吗? 非高手就不要进来了!很难的。 域登陆的问题 请教高手指导WINDOWS消息的问题!!!!! 互联网在线支付平台可行性讨论, 谁安装过Ehlib 2.4a?为什么我会出现File not found: 'DBSumLst.dcu'??? B/S结构的ERP系统是使用J2EE和.NET的架构哪个比较好? 我是初学者,请教一个简单的问题,关于jbuilder7和tomcat的 急救 关于b/s下 文档删除的问题 请热心的朋友一定看——帮忙 本人一定感谢大家——加分 实际编程中碰到的问题,高手赐教 关于树的问题!急 C++菜鸟有分!!! 无线问题 如何管理软件系列版本 快要疯掉了!服务器端与客户端的文件传送问题,请高手千万援助! 山东的朋友能否将较好的公司和较差的公司曝光一下!!!! 有哪位高高手知道ldap数据库怎么进行迁移呀? 互联网在线支付平台可行性 关于Form的问题??? 简单数字段问题 不能用redhat7.3自带的输入法,中文名字显示为问号。怎么解决 请问怎样把整型转换成字符串型? 谁在BCB下用过研华的PCL-812采集卡? 8数码和8皇后的算法,大家指点我一下看看,up有分,分可以加 数据库连接讨论!各位在连的时候用的是ADO,还是RDS? 有关上网设主机的问题(双网卡)(在线等) directx8中哪只函数支持播放内存中的声音文件 万分紧急!!!!!!先谢过! 那里又"绝世宝贝"下载? 哪位大哥帮翻译一句话!非常感谢!!!!!!!!!! 请问一个问题:用acdsee如何把点阵图转化成矢量图? cdonts在客户端发送附件,为什么失败? 第一行,第一列错误是什么回事阿? 怎样计算php里的时间差,mysql的时间差? 关于控制台程序 BYTE型怎么 输出到文件(急) 广州IT俱乐部活动讨论 OleContainer1对象如何使打开的文件嵌在OLE里面,而不是在外部打开DOC文档. 寻兼职程序员,开发一个的屏幕取词工具软件 那里有interdev下载?在线等 小弟初学vb.net,现有一题急需帮忙. oracle9客户端连接oracle816:tns 出错: 写文件换行,再按行读出 ASP开发工具的讨论!大家都用什么开发工具!DreamWeaverMX有没人用啊?看起来功能挺强的! 哪位大哥用过toplink连接oracle数据库的,请进 如何获得给定的文件的路径,比如文件"a.txt"发路径? (((SOS)))在WebForm中怎么样用程序隐藏dataGrid由属性生成器生成的按钮列(删除。。。) 如何计算LED光源的隧道灯的功率因数? 法治问题是不是一个政治问题? 若导体两端电压为6v,通过导体电流为1.2A,若导体两端的电压变为12V,则导体的电阻为多少? LED球泡灯功率因数低照明解决 青岛哪个厂家的防锈剂好用? 测铁原矿品位应取多少原矿 LED灯具怎么计算功率因数 红血细胞没有细胞核,而寿命也较其他具备细胞核的细胞短,试加以解释. 科学到底有没有极限?从宏观上科学研究到了大爆炸理论.说世界是由一个点爆炸而来的,在这个点上没有时间没有空间.没有时间也就是没有以前.从微观角度上,人们很早就研究到了原子结构,并 荧光粉的价格 血球计数仪的使用寿命是多久 李约瑟在《中国科学技术史》中说 中国的科技发展到宋朝已呈巅峰状态,再许多方面实际上已经超过了18实际的英国或欧洲的水平.说明宋朝“已呈巅峰状态”的科技得以产生的社会条件我是 请问这是什么原因造成钢化玻璃破裂,是外力还是自爆 从血细胞形态分析与人体衰老看神源口服液的关系如何从血细胞形态分析与人体衰老看神源口服液 近年来,科学研究人员通过大量计算机显微血相检测发现:人体的血细胞形态呈现出千姿 我国科学技术的巅峰是在宋朝吗? 什么是钢化玻璃自爆?谁能给说说这种现象产生的原因和情境,以及表现是什么样子的.我头回听说玻璃自爆,很好奇. 迈瑞动物血球分析仪2800型寿命几年? 电路如题图2-21所示,U_s=30V,I_s=1A.试用节点电压法求各节点电压及各电源发出的功率. 明朝地图求明朝前期详细国家地图,要精确道中小城市,最好是1500年左右.要有华北地区和福建的部分较有名声的中小城市即可,希望各省分界线再明显一些 1mol硫酸在水溶液中电离出的离子数是多少? 电路分析基础题.试用节点分析法求电压u 电压源的电流是多少,为什么会这样? 1mol硫酸在水溶液中电离出的离子数怎么算 如图所示的电路中,U=12V,滑动变阻器AB的总电阻为42Ω,现要使标着“6V,1.8W”的灯泡L正常发光,那么Ap间的电阻应为多少?此时滑动变阻器上消耗的功率多大? 各种常见灯具,家用电器功率因数白炙灯泡、电子节能灯、冰箱、电视、电磁炉等的功率因数 硫酸溶液?它在水中电离了,还怎么保持硫酸的化学性质啊[电离分子都没了啊} 一个电阻器电阻为20Ω,通过他的电流是2A,则电阻的电功率是多少瓦?当它两端的电压为12v时,它的实际电功率又是多少瓦? 文明礼仪安全 廉洁教育知识竞赛题目征集啊? 走一步再走一步对人物刻写采用了()()()()描写方法 走一步再走一步的读书笔记怎么写~ 几个安全知识竞赛的问题 食品生产环节的监管由______负责A.工商行政部门 B.质量监督部门 C.卫生行政部门 D.农业行政部门 ()触电后的生理险象是_______.A.痉挛 B.昏迷 C.心室颤动 D.呼吸 走一步再走一步语段运用哪些人物描写方法 用节点法求电路中电流i 关于安全教育的问题三月是安全教育月写一篇作文让我看一下该怎么写或是告诉我要注意什么写哪方面 电磁转矩与转子磁场的关系 知道原矿量及其品位如何计算金属量? 把铁粉和硫粉以适当的质量比均匀混合,堆放在石棉网上,然后用烧红的玻璃棒的一端接触混合物.这时部分混合物迅速变成红热状态,玻璃棒拿开后,反应继续剧烈进行,直至全部混合物呈红热 请问这个稳压可调电路的输入电压是任意的吗? 养花 老舍中的两个第1个指什么? 血液、血浆、血细胞三者概念关系是? 低碳世博有关知识 硫酸氢钠与氯化钡的反应方程? 宋朝的商业革命具体表现是是交子的出现还是城镇的兴起? 世博会用了哪些低碳设施是问卷性的,我有急用, 氯化钡与亚硫酸氢钠反应吗?若反应,化学方程式是什么 为什么说宋朝是我国古代科技发展的一个高峰时期 世博会低碳场馆有哪些?要尽可能多,并要附20字左右说明 硫酸氢钠和氯化钡的反应帮我写方程式! 宋朝商业革命美国史学家斯塔弗里阿诺指出“...宋朝值得注意的是,发生了一场名副其实的商业革命”,以下属于“商业革命”的是( )A出现独立经营的商人B流通领域出现纸币C大量的商业市 有一电阻线,若两端家6V电压时,电阻线中的电流为0.5A,则该电阻线的电阻为___Ω,若它两端改加12V的电压时,则通过电阻线的电流为___A,电阻线的电阻为___Ω;若在电阻线两端不加电压时,则通过电阻 硫酸氢钠与氯化钡反应的方程式 求明朝演变地图 宋朝发生商业革命美国史学家斯塔弗里阿诺指出“...宋朝值得注意的是,发生了一场名副其实的商业革命”,以下与这场“商业革命”无关的事( )A城市的坊市界限被打破B纸币交子的出现C海 12V电压6W的灯,电阻是多少?假如将这个灯放在6V的电路中,通过灯丝的实际电流是多少A? 谁有明朝的地图, 如何运用法治思维和法治方式 一导体两端的电压为6V,通过它的电流为0.6A.当它两端的电压力为12V时.它的电阻为多少,电流是多少? BB霜是不是含有荧光粉成分? 对建设法治政府理解错误的是A.建设法治政府,是落实依法治国方略,推进社会主义民主与法制建设的重要内容B.建设法治政府,必须全面推进依法行政C.建设法治政府,就是要提高政府管理人民群 已知 原矿品位 精矿品位 尾矿品位 求精矿产率(公式)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘