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

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
TUP Masters第七期:C++大师Lippman论编程新范式Hugo OpenCL用于13个微型计算机领域的经典案例 从测试数据来看Node.js和Java EE的性能区别 工作效率低下?业内人士建议你切勿追求完美 Mozilla发布可视化在线跟踪工具Lightbeam 望向海外:十大移动应用开发外包公司 Facebook支撑万亿Post搜索背后的技术窥探 云OS:共创智能化生态圈 云计算,让游戏世界更加精彩 360推儿童卫士手环,你怎么看? 量产谈判正在进行时:谷歌手表或比Google Glass先上市 Mozilla发布新版Firefox 25 提供支持Web Audio API UC产品总裁何小鹏:轻应用,做什么?怎么做? 高德携手阿里云发布“LBS云”,账户打通只是第一步 最后2天!2013移动开发者大会5折抢票倒计时 大数据如何改变在线广告业? 摩托罗拉推开源硬件平台计划Project Ara 七个垂手可得的敏捷开发工具 微信新版公众平台调整细节381处 300/次认证费引争议 libgit2:纯C语言实现的Git开发包 MongoDB的得与失 开箱即用!Android四款系统架构工具 谁说Kinect只是玩物?微软研究院使用它实现口语手语实时翻译 新浪微博推出粉丝服务平台 引发两微PK大战 MDCC2013移动开发者大会最新日程发布 门票优惠最后1天 英特尔CEO:EUV光刻技术或助力芯片突破摩尔定律 从微软大数据日看到的,银行、交通、医疗实践之路 IDC:iPad市场份额遭Android平板蚕食 滑至29.6% [TUP第30期]直击移动应用开发难点 探讨跨平台最佳解决方案 用动态语言编写程序,命名更重要 命中率80%,磁盘I/O减半,Flashcache的发展史 如何得到一个存储过程的的参数 请问对XP的更新也就是Windows Update,怎样才能不基于安装历史来更新(比如重装了操作系统但注册表还是用原来的)?就是说怎样再从头全部 唉,,为2:0放送200分........ ASP-interdev的问题 怎樣獲得上一頁的地址 在Datagrid中怎样实现RadioButton的单顶选定 项目协助 请问汇编支持递归吗? 编译环境是masm32 怎样将菜单放在TCoolBar上? 如何有效地调试程序?debug?? t d 中国队输了,用50分泄愤 弱智中国队 观中哥之战。 请问:Access2000中什么函数等同于SQL Server中的SubString? 各位水友请对中国队今天的表现发表意见。。。。 中国队第一场(对哥斯达黎加)输0:2,灌水啊~~~~ 各位水友来发表对中国对的看法。。。。 中国队本界比赛肯定不会进球了 MDI中,子窗口之间的切换如何响应,包括第一次打开或新建?立马结贴。 中国队完败,放分…………他妈的,输的一点理由都没有!! 中国队没有希望了,心情不好! 散分! 中国队意志力太差!!! 建模问题:pb源程序用什么工具转换成模型、状态图或是类结构? 救救我,如何同时打印两个数据集 日期型的字段如何附值? 中国队输了,估计很难翻身了。。。。不爽中。。。。。散分!!!!!!!!! 请问用VB开发。DLL,调试该怎么调试啊? 为什么不能编译成DLL了???? 我国损失多少钱啊 csdn上的高手请来开一下 帮帮我~~~! 各位大虾,求救!我想从"July 21 2002 12:30AM"这种时间格式中取出年(就是2002),不知道php中有没有这种直接取年的功能?需要的是能直 建模问题:pb源程序用什么工具转换成模型、状态图或是类结构? 巴西后防是铜墙铁壁???战士们,进一个吧!以慰国人!~! Win2000 开机时出现xmnt2000 program not found...的提示信息。是怎么回事? 如何实现类似联众的游戏大厅的游戏模块下载后,安装后能自动挂上大厅?? sql plus启动问题(ora-01034,27101) 建模问题:pb源程序用什么工具转换成模型、状态图或是类结构? 初学者的问题,在windows2000命令提示符下无法执行lgdt指令? 我想说我是他大爷 帮帮俺吧!!! 中国队输了,真他妈的郁闷。中国队因该发挥的更好 请大家给我推荐一些关天加密解密算法的书,好吗?谢谢 知道一控件的变量,怎么才能知道其ID号及CAPTION? 诸位高手帮帮忙,看看下面这段代码有什么办法解决。 sql语句查询问题!谢谢!!2000sever可以运行,但是98就不可以了!请看看! 多表同时分类保存问题 有关CEdit控中显示的问题? 请假去看球,中国对战术有问题! 程序开始时怎样才能设置Combo Box的默认值? for-each问题 fe(oh)3受热分解有离子方程式吗? 欧阳修“三上”作文 原文;钱思公虽生长.盖惟此尤可以属思尔.翻译 起一个作文名,你们这些独生子女什么时候才能长大啊?大人们经常发出这样的唠叨.是啊,我也经常问自己同样的问题,我都这么大了,还什么都不会做,难道真的长不大了吗?不,从那件事以后,我意 Fe(OH)3如何转变为Fe(Oh)2 电离平衡常数A中的关系 是怎么排的 为什么 啊 Fe(OH)3是什么 CO和Fe2O3反应,被还原的物质是Fe还是Fe2O3? 关于电离平衡常数常温下,氨水和盐酸等体积混合,氨水为amol/l,盐酸为0.01mol/l, 最后c=c(cl-),也就是说溶液处于中性,怎么用a表示氨水的电离平衡常数,答案是(10的-9次方)除以(a-0.01),怎么 Fe(OH)3分解高温还是加热 商品价格与供求关系 一氧化碳与12g赤铁矿充分反应后石灰石质量增重8.8g赤铁矿中氧化铁� 升华和凝华 在生产方面的应用 求帮起个作文名我要写一篇关于坂田银时的作文,不过开头并不直接写出他的名字,而是先用“他”来代称,到后面才写出来,大家觉得这篇作文是用《他》作为题目好还是用《他是谁》作为题目 2,3,4,5和两个选择题, Fe(OH)2氧化成Fe(OH)3方程 硫氰化铁在溶液中会电离吗 为什么呈血红色 在feo,feo3,fe3o4三种化合物中,与等质量铁元素相结合的氧元素的质量比为多少?选项:a,6:9:8b,12:8:9c,2:3:6d,1:3:4 Fe(OH)2在空气中被氧化氧化成Fe(OH)3 问化学方程式 硫氰化铁在水中是否已离子形式存在 求含相同质量铁元素的FeO、Fe2O3和Fe3O4三种物质的质量比 含有碳碳双键一定能让溴水褪色吗?一定能让酸性高锰酸钾溶液褪色吗? 东施效颦 文言文翻译简单一点(50字) 硫氰化铁是胶体吗 含有羟基的碳碳双键能使溴水或者酸性高锰酸钾褪色吗 英语翻译仆去月谢病,还觅薜萝.梅溪之西,有石门山者,森壁争峡,孤峰限日;幽岫含云,深溪蓄壁.蝉吟鹤唳,水响猿啼.英英相杂,绵绵承韵.既素重邮居,素葺宇其上.丰富菊花,偏绕竹实.山谷所资,于 硫氰酸铁是沉淀还是胶体 为什么除co2中的少量hcl不宜使用碳酸钠?不过为什么用饱和的碳酸氢钠就不会吸收呢?我的意思是不饱和的不行吗? 英语翻译 鉴别失去标签的氯化钡、碳酸钠和稀盐酸三种无色溶液,用一种含钾元素的正盐溶液一次鉴别成功,这种溶液是这种溶液是什么?理由. 10、对于摩擦力,下列叙述中错误的是()A.只要两个物体接触并相互挤压,且接触面不光滑,它们之间一定产生摩擦力B.运动的物体可能不受摩擦力的作用C.摩擦力的方向可能与物体运动的方向 英语翻译三楼的你很聪明 复制的,那还有翻译呢? 鉴别失去标签的氯化钡、碳酸钠和稀盐酸三种无色溶液.(1)学生甲得知氯化钡溶液显中性,选用了一种指示剂;学生乙选用了一种酸溶液;学生丙选用了一种含钾元素的正盐溶液,三位同学都 在一个与外界隔热的容器中,盛有0`C的水,如果用一个抽气机把容器内的空气迅速抽出,那么以下说法正确的是A一部分水结成冰,水和冰的总质量减小,冰和水的温度都是0`CB容器内仍是0`C的水,水 英语翻译习辱坐言字旁一个旨徒第一个且正确的有5分 第二道选择题怎么写选择什么求解释 溺水多久会死亡 生活 丰乐亭记中作者为什么要以丰乐亭来命名如题 Fe能与CO反应吗 什么原因能造成溺水死亡 丰乐亭记 欧阳修为什么以丰乐亭命名 Fe3+ 与什么反应能生成Fe(OH)3 如何鉴别CaCO3、Na2CO3、CaO?小明在实验室中找到了三包已经失落标签的白色粉末,已知是CaCO3、Na2CO3、CaO,请从下面的试剂或方法中选择一种来确定该三种物质 A、稀盐酸 B、水 C、 欧阳修的《丰乐亭记》,从文中看,丰乐亭取名的原因是_____________. 在FeO、Fe2O3、Fe3O4三种化合物中铁元素的质量相等,则氧元素的质量比为?答案是12:8:9和文字说明 帮起作文名写春天美景的最好带有些诗意 欧阳修的《丰乐亭记》为什么以“丰乐亭”命名? 硫氰化铁用来做假血?老师上课突然说演员演戏用这个配血袋.想知道硫氰化铁有没这种用途 肺泡气,静脉血,动脉血,组织细胞中氧气和二氧化碳含量要解释和排序氧含量:二氧化碳含量:(不能解释的给个答案也好)(不会的不要答) 3和 4两个选择题选什么 硫氰化铁有毒吗 科研人员检测了平静状态下人体肺泡气,动脉血,静脉血和组织等四处的氧气和二氧化碳29、科研人员检测了平静状态下人体肺泡气、动脉血、静脉血和组织等四处的O2和CO2含量(即气体分压),并 英语翻译(欧阳)公讳颍,字孝叔.成平三年,举进士中第,初任峡州军事判官,有能名,即州拜秘书省著作佐郎,知建宁县.未半岁,峡路转运使薛颜巡部至万川,逐其守之不治者,以谓继不治非尤善治 鉴别三瓶失去标签的无色溶液,可能是Na2CO3、NaCl和CaCl2.已知试剂有酚酞、盐酸、硝酸银溶液、氯化钡溶液某同学只选取一种已知试剂就可以对这三瓶未知溶液进行鉴别.(1)该同学选取的已知 血液流经肺泡后其成分的主要变化是 1.由静脉血变为动脉血还是2.氧气增多二氧化碳减少umujytnkup2011/8/4 11:27:24, 起作文名我写了一篇有关饺子的由来的作文,帮帮起个名,要新颖,少见,有特点的,不要千篇一律! Fe FeO 与氧化铁如何与CO反应氧化铁改为二氧化三铁 Fe(OH)3分解温度 欧阳修 秋声赋 翻译 酒精和油性记号笔反应后会产生什么现象?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘