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

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
熟练成就创造——MathWorks全球副总裁Richard Rovner、产品市场经理赵志宏专访 Objective-C编码规范:26个方面解决iOS开发问题 豌豆机器小组发布最新WRTnode2R,支持华为Liteos、QQ物联与AllJoyn [新书推荐]Node.js项目实践:构建可扩展的Web应用 【简讯】Perl 5.22.0 发布,大幅改进代码! 【征文】特别策划——群雄逐鹿共话新型数据库 针对DCloud侵权质疑,APICloud发布声明 《近匠》小鱼天气,中国风与细粒度空气质量检测 Xcode 7 beta发布,Swift 2.0带来哪些新变化? 【有奖征集】MDCC 2015演讲议题征集全面启动 Swift语言那些鲜为人知的特性 《开源者说》08期:聊聊Java那些事儿 专访唐成:从小工到专家,PostgreSQL的修炼之道 《瞬间之美》作者Robert Hoekman Jr:如何成长为UX领袖人物? TIOBE 2015年6月编程语言排行榜:Swift份额上升,Objective-C成自由落体 【CTO讲堂】Box首位华人核心工程师的回国创业之路 【探秘ES6】系列专栏:ES6简介 专访《Javascript设计模式与开发实践》作者曾探:爱编程 爱生活 【探秘ES6】系列专栏:迭代器和for-of循环 【CTO讲堂】UCloud联合创始人兼CTO莫显峰:如何成长为技术合伙人? 【探秘ES6】系列专栏:生成器 iKair转型传感器及SaaS厂商,发布Maxense平台与9款“云传感器” 免费jQuery幻灯片图片轮播插件Galleriffic的使用方法 专访IBM中国研究院院长沈晓卫博士:全新的物联网来了 《近匠》GYENNO CEO任康:用“勺子”敲开一片新市场 Horde3D——基于C++编写的3D渲染引擎 Maker Faire 2015在深圳正式开幕,关注创客生态系统 Arduino与Seeed Studio达成战略合作——专访Arduino联合创始人Massimo Banzi 免费开源的Bootstrap富文本编辑器bootstrap-wysiwyg使用方法 CCAI2015:首届中国人工智能大会将于7月26-27日在京举行 拥抱互联网+ 用友NC6助力集团企业蜕变数据驱动型公司 一个list控件,style设为checkbox,要怎样才能使列表中各项的默认值是选中状态,也就是说各项一开始都是打了勾的 阿虎菜问7:请问C与C++中的内封函数应该差不多吧? s_cube(竹子), s_cube(竹子)~!! 我爱你,s_cube(竹子) s_cube(竹子) ~!在哪里 简单问题(1) 如何不运行编译? 有谁知道怎么从perl里调用一个c库里的函数????????? 请问在CB中如何隐藏WINDOWS的任务栏呢? 今天不爽,下班后打星际,大家一起来。 指点!在PB中怎样用程序作成一张动态的交叉表 编辑控件怎样才能显示那些怪字符? 有没有人喜欢郑智化 大家推荐好听的几首歌吧! 请教:怎么学c++? 高手点拨! 各位网络高手.如何在程序里讲ip地址转化为域名 有什么方法,可使表单内的组件背景变成透明的而文字不透明,请看例子: 编辑控件怎样才能显示那些怪字符???? swall(壹心) 你还在深圳特区吗? 如何设置Session的密码?请高手指点迷经^^^^^ 哪位可以解释一下下面的代码? perl 的人气太差。罢了罢了。找本perl自己搞定 MsSQL7.0 当日志文件大小未限制而变得很大时,怎样清日志文件,使其减小? 请教诸位牛兄牛姐牛夫人---有难度哦(着急出活!) 基本问题:如何将一个.txt中的内容读入到内存再从内存中读出并存为另一个文件?谢了先!!!! 高手帮帮忙!!!!!!!!!!!!!! 又有台风了。。。。 在zip包中加入ASP推荐的PAD File有用吗????? PB连接SQL数数库,为什么显示的表会不全 如何把一个文件file.dat里的数据写入软盘0磁道0磁头1扇区. 我要骂人! chris2001(牛虻),不是东西 华为工程师 谁知道 vb 的序列号?????? VS.NET 有开了个新铺子。为什么我的ejb/j2ee还没有开张。气愤。 老大们:我是菜鸟,有问题要问,不过不要笑我。一定给分的 再次发问:关于在SQL SERVER中的某张表上建立触发器...... 没有有这样的病毒,或者文件 各位老大,如果有asp、sql基础学jsp和php是不是比较容易一些呀?言者有分哦! dll中怎样调用主程序中的函数? 新手请教接口聚合!!!!!!!!! 高分求教!有没有谁编写过WEB服务器程序? 微软OfficeXp女孩 请教一个报表问题? 小技巧!!! delphi中调用MessageBox出错,高手指点一下。 大家好,这是我提的第一个问题!我学DELPHI才两周!对您的指点,小弟万分感激! 请问sybase12。0中,游标能不能用动态sql申请 紧急求助:如何调用父对话框的函数 各位好,我在VB下做了一个ACTIVE 控件,但是加不到CBUILDER 上,但能加到VB里,为什么? 婚介所 关于C++打开文件的问题? 请教一下关于多表查询的问题 下列说法正确的是A物体在它的运动状态发生改变时,惯性表现最明显 氢气在氯气中燃烧不用太详细,用比喻也可以,比如“可以烤肉的温度”……之类的,哈哈哈,当然, 请问一立方100摄氏度的开水有多少热量?一立方300摄氏度的水蒸气 压力为9.8公斤 有多少热量? 物体的运动状态改变,的改变或?的改变或它们同时改变.要改变物体的运动状态,必须对物体 是氯气在氢气中燃烧,还是氢气在氯气中燃烧 用0.6MPa压力的管道蒸汽直接加热1T水,从15摄氏度到100摄氏度,需要多少立方蒸汽,换算KW数要多少KW能量 质量500g的金属,温度从20℃上升至10℃,吸收热量3.5*10^4J,求这种金属的比热容,并判断是哪种金属. 如何提升氢气燃烧火焰温度?需要添加何种助燃剂?在纯氧下一般温度为2860度,现需要提高到3400度以上,谢谢QQ123WE的建议,在此说明的是用于切割金属,现用添加汽油可提升温度,但现想找一 不同压力下水升高1摄氏度需要的热量一样吗蒸汽锅炉里的压力大约是1MP,50摄氏度升到80摄氏度需要多少热量?和在标准大气压下一样吗? 太阳能热水器哪个牌子好?谁来说下?太阳能介绍啊dhi8com谁有更好的? 甲乙两种物质,质量之比是4:1,放出热量之比是3:1,则它们的比热容之比和降低温度之比分别是下列四种情况可能满足题设的条件是:( )①1:1,3:4 ②2:1,1:3 ③1:2,3:2 ④1:3,9:4A.①② B.①③④ C.②③ D. 氢气,氯气,氧气A汞蒸气B水蒸气C碘蒸气D酒精蒸汽选出和上面三种同一类的物质,并说明理由 谁知道2013年的气候预测上班年是冷还是热? 甲、乙两种物质的比热容之比是2∶1,质量之比是3∶1,若它们吸收的热量相等,则甲、乙升高的温度之比为________;若它们升高相等的温度,则它们吸收的热量之比是__________________.若甲、乙两种 非金属性氧大于氯气,为什么氯气与氢气反应比氧气更容易 从现在到2013年的一月初三一共有多少天?看见的朋友要注明 从2008年的几月几号算起的 甲乙两物体,质量比为1:2,升高的温度比为2:1,吸收相同的热量,则甲乙的比热容之比为 氢气 氧气 氯气氢气 氯气 氧气 的混合气体 点燃,恰好完全反应,冷却至室温,所得溶液溶质的质量分数为25.26%,则原容器中氢气,氧气,氯气的体积之比为多少? (2013连云港)27.下列关于氧气的说法中错误的是 A.氧气约占空气总体积的1/5 B.氧气可以支持燃烧,说明氧气具有可燃性 C.氧气供给呼吸,它和体内物质反应,释放能量,维持生命活动的需要 D _的某种物质 温度升高或降低_ 所吸收或放出的热量数值等于他的比热容 氢气 氯气 哪个和氧气更容易反应 苏州地区哪里有的卖硫酸如题 谢谢了RT. 已知甲乙两物质,当他们的质量相同,甲的温度升高的比乙多,对于他们吸收热量与比热容之间的关系 氧气和氢气的混合物,采用降温液化的方法分离,首先液化的是__________. 相同条件下,相同浓度的硫酸和盐酸相比,硫酸溶液的PH值小 这个说法对的还是错的 有甲乙2个物体,甲的比热容是乙的2倍,质量是乙的二分之五,若吸收热量相同,升高的温度比为几比几 氢气燃烧与氢气液化的本质区别是什么? 2013年苏州园林卡办理时间和地点 有甲、乙两个物体,质量之比为5:3,比热容之比为2:1,如果他们放出相同的热量,降低温度之比为? 木炭,镁粉,氢气都能在氧气中燃烧,其变化的本质和现象有不少共同之处木炭,镁粉,氢气在氧气中燃烧的共同点(1)_________________________________(2)_________________________________(3)________________________________ 推荐几个夏天天气不太热的城市 明年就读大学了. 想去一个天气好点儿的城市. 1 . 夏天最热月平均气温32度以下. 2 . 冬天最冷月平均气温0度以上. 最好是临海、经济发达 气体体积与压力大小的变化 木炭、镁条、白磷、氢气、四种物质都能在氧气中燃烧、其变化的本质和现象有不少共同之处、如:反应都需点燃、反应物都有氧气等、再归纳出三点、 夏天中国哪个城市气温最低最好可以给出那些城市夏季的大约温度 压缩客气灌体积大小与它所冲装气体的压力有关吗 沼气在常温下能不能液化沼气在常温下能不能被液化?详细一点 中国哪个城市气候最好冬天不冷夏天不热 80公斤气体压力有多大?80公斤气体压力是等于8mpa吗?这个压力有大?如果用这个压力推动50克重物能推多远? 常温下使甲烷液化需要多大的压力?安全标准是什么?谢谢!RT 下列说法正确的是()A高温物体的内能一定大B物体的内能变小,温度一定降低C内能大的物体,温度一定高D物体的内能越大,温度可能不变 要理由 氧气和氢气,哪个容易液化请说明理由 哪里有沼气液化的设备?哪里有沼气液化工程? 人们永远无法改变天气,这种说法对吗?为什么? 氢气氧气液化条件氢气需要多少pa的压强才能液化.氧气呢. 沼气能液化吗?沼气如果直接用高压瓶装后还能用吗?建沼气政府有补贴吗? 因为天气是变化无常的,所以人们永远无法改变天气,这种说法对吗?为什么? 为什么氨气易液化 ,而氮气和氢气通常情况下不易液化? 氧气在多大压力下可以液化?一般的医用氧气,纯度达到99%.99以上的氧气,在多大的压力下可以实现液化?这个压力大约等于多少公斤?我还想问下,在一定的压力下,氧气可以通过加压的方式实现缩 天气变化是大气层变化的结果,所以人们永远无法改变天气.这种说法对吗?为什么? 天然气`液化石油气`氢气有什么共同性质 氢液化的温度是多少?常温下将氢液化的压力是多少?等于多少个大气压氢气在室温下不可能液化的话,那市场上买的那种氢气钢瓶里装的液态氢不是会爆掉吗? 下列事实中 ,属于物体运动状态改变的有:A 用力拉弹簧 ,弹簧变长B跳伞运动员在空中匀速直线下降C正在进站的火车D运动员透出的标枪在空中运动带解析 、 氢气密度小,为什么会很难液化RT..密度小应该更容易啊. 供暖压力达到多少才能保证供热效果 关于物体运动状态的改变,下列说法中正确的是 ( )A.物体运动的速率不变,其运动状态就不变B.物体运动的加速度不变,其运动状态就不变C.物体运动状态的改变包括两种情况:一是由静止到 氢气在空气中燃烧会怎样;在纯氧中燃烧有会怎样?一般我们用什么方法制造氢气,如何收集氢? 采暖总热负荷 循环泵流量 电机功率的关系? 关于运动和力,下面说法正确的是:A、物体运动,必须有力的作用.B、物体的运动状态要发生改变,必须有力的作用.C、没有力的作用,运动物体速度不可能快起来,但可以慢下来.D、物体受到力的 1.氢气在空气中燃烧颜色(),在纯氧中(),氢气纯度为100%时()2.一氧化碳在空气中燃烧颜色(),在纯氧中(),氢气纯度为100%时()3.写出C、CO、CO2、O2之间所有能发生的的化学方程式感 按流量供暖怎么计算
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn