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

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
第五届中国云计算大会于北京隆重举行 改变企业移动化:新Google地图API支持用户定制 诺基亚旗舰手机EOS真机图曝光 配备“巨型”摄像头 走进豆瓣:豆瓣的技术架构与团队文化分享 加速Web开发的10款HTML5工具 微软式微?AMD、英特尔等开始疏远Windows 语音技术现状:四千万突破语音产业的技术壁垒? 万维网联盟W3C推荐Web性能API 微软郑子颖:Windows Azure如何支持开源系统和软件? EMC 叶成辉:软件定义数据中心实现统一、开放的管理 百度云主任架构师 侯震宇:云终端开启数字生活 中国工程院院士 倪光南:中国云计算在全世界份额远超3% 信息图:未来的企业移动培训应用与技术 “2013年度中国优秀开源项目征集”活动最后三天 为什么开发者倾向于使用杂乱无章的免费工具 EMC合作伙伴销售经理杜术清:实现云的三种途径 开发者想走向海外:你融入老外的圈子了吗? 前微软工程师:美国监控和直接访问服务器?这不太可能 代码、TDD速查表 如何选择前端架构:服务器端HTML vs. JS部件 vs.单页Web应用 世界上最高深的Android特洛伊病毒 招聘iOS开发,老板必问的5个问题 护航科技吴伟湘:IT离线安全体检服务将带来颠覆 百度王继平:移动互联网时代云平台思路 “第八届开源中国开源世界高峰论坛”火热开启 微软发布SQL Server 2014预览版,展示内存数据库技术 帮助软件开发者提高效率的10个小窍门 我想做个程序员:Technovation Challenge圆女孩编程梦想 未来我们开发的Google Glass应用将会是什么样? 独家:前RIM大中华区总经理刘征宇,加入Appconomy 用一个API搞定一切 Segment.io为移动开发者提供便利的分析数据分发服务 VC、DELPHI问题 模拟串口问题。 高分相送。 截屏问题 一个很奇怪的问题??? ping值总是不稳是什么原因? 初次接触GIS,有什么书可以入门的介绍一下 和一MM聊天,开始很投机,后来一见面就对骂! 怎么批量插入数据 大家都来看看吧,顺便散点分 我的FLASH在没有装FLASH的IE怎么不可以自动下载FLASH? linux 断电后,启动失败,该如何处理!? 初级菜鸟问题,求助 终于解封了,多谢没头脑,偶以后再也不倒粪和刷屏了! 各位大侠,救命!亟待解决! 如何使一个数据库用户的所有对象只读,不可写? 有没有DOS很熟的仁兄?纯DOS下和WIN NT4.0联网 怎样动态生成一个adoquery,并能进行数据库查询,小妹急用,100分奉上 怎么转换这个SQL Server的存储过程为oracle的 多语言数据库的应用程序,象DBGRID字段里的这些标题我应放在哪里好? 最简单的语句,最奇怪的问题。&&&&&&& 在线等待!!! D3D的简单问题 如何控制LineTo划线的颜色和宽度? 高分求《面向对象分析与设计》杨正甫编这本书下载地址。。。 学习DELPHI用铁道出版的乔林《参透Delphi/Kylix》 如何? 请问是否有比较简便的方法可以知道,程序中哪些变量定义完后根本不用? 按钮提交并链接不同页面的问题。 简单的问题 请教VC++高手:在MFC中,如何把剪贴板中的位图按原比例打印出来? 分不够再加! 怎么样在vb中读取bmp的位图信息,将图中所有黑颜色的象素 谁在20分钟内答出以下问题能拿高薪 如何修改注册表的键的默认键值? WINXP开始运行宽带播号程序缓慢,什么原因? newwish2 给我一个例子,邮箱:make_a_wish@163.com!!!着急呢!! evc4.0中文显示的问题! struts--html:select 为何出不来? 讨论:关于WinXP下开发的COM+的分发问题!! 菜鸟的小问题!! 一个关于东芝笔记本的故障 请问JBuilder错误提示:cannot access directory javax\mail at line 7, column 1 CSDN的速度越来越慢了,来这里的高人也越来越少了! 有没有DOS很熟的仁兄?纯DOS下和WIN NT4.0联网 小小问题!!! 困扰我多时了。。。 sybase 在程序中连接的问题。急,我咨询Sybas公司也不行。 按钮茶馆开张啦,有闲的进来聊天吧~ 小問題 PhoebusApollo(sunny) 你说要开贴,又没分,我有,给你100分,进来领吧!呵呵,不用谢!:) 关于DBGridEh排序的问题,急急急!!! ora-12224错误,tns no listener错误 !在线等待 ,急~! 求助jb9的破解 报表问题,急呀,救命呀~~~55555~~~~ 500分求解决一个问题 在线等待 解决立即给分 将一张圆形纸对折3次 多米诺骨牌又是啥子意思啊? 有一张长方形铁皮,剪下阴影部分做一个圆柱体,求这个圆柱体的体积宽16CM长31.4CM 描写大雁形态的段落、句子(要优美)急 麻烦提供关于莫拉克、台湾水灾的文章或消息 你之前的这个问题解决了吗?我现在碰到一样的问题,假如我的表1要填写住院病人的信息,例如姓名,年龄等.然后我在表2中在将表1的信息按行汇总,但是我表1每输入完一个病号就要删除继续输入 菱形的一个内角为60°,一条对角线的长为2根号3,则另一条对角线的长为 多米诺骨牌效应?寓意? 请问你的那次英语46级分数有问题是怎么解决的,我也碰到了相同的情况 菱形的一个内角是60°,较长的一条对角线长5根号3㎝则菱形的周长和面积是多少 台湾88水灾的 为什么是钝角? 已知菱形的一个内角为60度,一条对角线的长为2倍根号3,则另一条对角线的长为? 怎样求y=4/e的x次幂+1的导函数 什么是外钝角 已知菱形的一个内角为60度,一条对角线的长为2倍的根号3,求另一条对角线的长 y等于x的负三次幂的导函数 Theymet ______chance on a train.Thefood is easy to go ________(bad,badly) ______you put it in the refrigerator inhot summer. Hewent late _____the ball.I'mhungry,but I don't feel like_______________(吃的东西)._______________(我也是)sayh 下列命题:(1)一组对边平行,一组邻角互补的四边形是平行四边形,(2)一组对边相等,一组邻角互补的四边形是平行四边形,(3)一组对边平行,一组对角相等的四边形是平行四边形,(4)一 六年级奥数,求阴影部分面积 初中英语填空题12-17题谢谢大神进 五年级下册数学剪蝴蝶纸张怎么对折为什么我剪的老是只有两个连起来 小红有10个红气球,小兰有8个蓝气球,小红用4个红气球换小兰的3个蓝气球,现在小红、小兰各有几个气球 六至十题初中英语填空题谢谢大神进 如果把一张纸对折两次剪蝴蝶,能剪几个?对折三次、四次、五次呢? 气球的个数在100到200之间.7个7个地数正好数完,5个5个地数正好数完.最多有几个气球? 请问谁知道这是什么糖呀?亲戚家拿来的糖 挺好吃 有人知道是什么牌子的吗 品茶的知识是什么 男:我6个6个地数正好数完 女:我5个5个也正好数完 男:我知道气球个数在160到200之间气球有多少 谁知道这个是什么糖啊?给个名字,牌子什么的啊!具体哪个牌子的知道吗? 1000块多米诺骨牌(每种颜色100块)可以摆什么图案?急 跪求初三政治第6、7、8、9、10课的知识结构图 初中英语综合填空题!Jiaozi is the Chinese name of dumplings.We have all kinds of dumplings 1 meat of vegetables.Jiaozi is very 2 with us,especially during the Spring Festival.People usually eat jiaozi on New Year's Eve or the next morning.3 d 多米诺骨牌是什么东西 什么元素容易形成离子不要说都可以 是哪族 更容易 老人与海的道理,结合现实 多米诺骨牌1000张要多久才能倒完?可以排多少米啊,直线距离! 非金属元素如何形成离子 函数f(x)=(m2 -2m-2)x∧m2+m-3是幂函数,且当x∈(0,+∞)时,f(x)=是增函数,求f(x)=的解析式 1000个多米诺骨牌可以排成什么图像 一个15岁的少年,在楼前空地上踢足球,把一家商店的玻璃撞碎了.店主说,这块玻璃是特制的,你得陪.孩子没办法,回家找爸爸.爸爸问:“那么你应当赔偿.”孩子沮丧的说:“我没有钱.”爸爸说 WORD中破折号太短如何才能用一个占据两个空格的破折号,占两个空格的中间有分隔号,不想要,画直线吧,我的这个稿中许多,有点麻烦. 照片上的老人默默地注视着盘旋翻飞的海鸥们,注视着与它相伴了多少个冬天的"儿女"们 这是啥成语 已知直线l1∥l2,直线l3和直线l1、l2交于点C和D,在C、D之间有一点P,如果P点在C、D之间运动时,问∠PAC, 下列函数中,在(0,+∞)内单调递增的是() A y=sin^2 x B y=x e^x Cy=x^3-x Dy=ln(1+x)-x下列函数中,在(0,+∞)内单调递增的是()A y=sin^2 x B y=x e^x Cy=x^3-x Dy=ln(1+x)-x过程详细点! 一个口袋中有50个编者号码的相同的小球,其中编号为1、2、3、4、5的各有十个.1)至少要取出多少个,才能保证其中至少有2个号码相同的小球?(2)至少要取出多少个,才能保证其中至少有两对号码 给下列破折号选择恰当的解释填空1.必须大扫除一次,还要把鸡、鱼、青菜、年糕什么的都预备充足——店铺多数正月初一到初五关门,到正月初六才开张.( ) 2.他是一位好人------一位实实在 初中数学压轴求(3)的2的解 高手如何证明这个数列是发散的【用反证法】证明:数列{Un}={(-1)的n次方乘以n+1分之n} 3秒前指?最后3秒指?3秒末指? "读一本好书就仿佛和一个高尚的人谈话"是谁说的 我知道气球的个数在100~130之间,我5个5个的数,正好数完.我6个6个数,也正好数完,你知道有多少个气球吗 如图,直线AC∥BD,直线L1、L2分别交AC、BD于A、C、B、D,点P在直线L2上(异于C、D).设∠PBD=α、∠PBD=β∠APB=γ1.当点P在线段CD上时,请先补全图形,然后猜想α、β、γ之间的数量关系,并证明你的猜想!2. 多米诺骨牌什么意思 VII A族元素易形成-1价离子这句话对吗?要怎么看呢?再问一个问题:金属元素要有怎样的性质才能让它的氢氧化物呈两性啊? 一商店将76件商品出售给33位顾客,每位顾客最少买1件,最多买3件.买一件不打折,买2件9折优惠,买3件8折优惠,结果相当于全部商品按照八五折优惠.问买3件和买2件的顾客有多人?可设原价为a元 不 求台湾水灾详情,字多点! 长12.56米,宽5米的长方形铁皮,用它做一个封闭圆柱体的侧面,要使它的容积最大,至少还要多少平方米的铁皮? 如图,直线AC∥BD,直线L1、L2分别交AC、BD于A、C、B、D,点P在直线L2上(异于C、D).设∠PAC=α、∠PBD=β,∠APB=γ.1.当点P在线段CD上时,请先补全图形,然后猜想α、β、γ之间的数量关系,并证明你的猜 马达加斯加总统选举平稳结束郝柏村:抗日战争的胜利属于整个中华民马尼拉市长拟为人质事件筹集2000万第九届两岸经贸文化论坛今举行 为交流明星进入考题屡见不鲜 “杨幂题”引争赵本山亮相春晚节目一审 冯小刚今答网伦敦股市《金融时报》100种股票平均土耳其与伊拉克外长表示将加强两国关系31省区市9月CPI涨幅出炉 物价“西共体轮值主席呼吁国际社会支持西共体德国法兰克福股市DAX指数25日上涨白俄罗斯总统提议格鲁吉亚重返独联体遭巴黎股市CAC40股指25日下跌德国政府:默克尔被窃听手机泄密可能性美国10月份消费者信心降至今年以来新女子参加富豪相亲会 反问记者你不爱钱央视马年春晚首次审看节目 共有28个故宫凶杀案嫌犯在协和医院抢救 已度过山西平顺回应“官员粗口门”:已对涉事德国政府:默克尔被窃听手机泄密可能性意大利媒体称英美合作监控意通讯 政府海曙月湖街道 小区要上什么项目都由居请交警上门做了一套方案新增车位100端午节当天火车票今起预售 前往潮汕动央行喊话力挺个人住房贷款 广州五大行为儿伪造学历档案多次提拔 粤官员退休番禺灭门案29岁嫌犯被批捕 被控抢劫暴雨出险9821件 深圳保险业赔付逾福田区举行居家养老“365工程”问政今年广东高校应届毕业生47.2万人 600多吨假盐流入广州市场 销往城乡高峰缩短20分钟、车速提升7% 小伙恒大天河主场首负日本球队 总比分5 央行:优先满足首套房房贷需求分会场指给你看甘肃男子遭情妇要挟愤而杀人埋尸二审被顶尖Coser 年入百万元临夏州:上门女婿新婚仅十天杀妻被判死宜居排名靠后,城市当有危机感甘肃省苹果种植面积全国第 年产值达1中信证券董事长王东明因批评工行被罚近定制公交陆续有来 满15人可团购
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘