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

在VB中使用UDP协议

HTML文档下载 WORD文档下载 PDF文档下载
在VB中使用UDP协议
作者:重庆 张业武

UDP协议基础:

  UDP(User Datagram Protocol)是一种无连接协议,与TCP操作不同,计算机间并不需要建立一个连接,同时,一个UDP应用可同时作为应用的客户或服务器方。
  由于UDP协议并不需要建立一个明确的连接,因此建立UDP应用要比建立TCP应用简单得多。在TCP应用中,一个Winsock控制必须明确地设置成“监听”,而其它Winsock控制则必须使用Connect方法来初始一个连接。

  使用UDP协议,在两个Winsock控制间进行数据的发送,在连接的两端必须完成以下三步:
  1.设置RemoteHost属性为其它计算机的名称;
  2.设置RemotePort属性为第二个Winsock控制的LocalPort属性的值;
  3.申请Bind方法。

  通过使用方法Bind,则可将该Winsock控制捆绑到一个本地端口,以便该Winsock控制使用该端口来进行类似TCP的“监听”功能,并防止其它应用使用该端口。

  使用该协议传送数据,首先设置客户计算机的LocalPort属性。而作为服务器的计算机仅需要设置RemoteHost属性为客户计算机的IP地址或域名即可,并将其RemotePort属性设置成客户计算机上的LocalPort属性即可,然后就可通过申请SendData方法来开始信息发送,客户计算机则可在其DataArrial事件中使用方法GetData来获取发送的信息。

  下例具体演示了一个“谈话”应用,以允许相互间进行实时的交谈。

  UDP应用一:

  建立一个新标准EXE工程文件,拖放一个Winsock控制到表单上,添加两个文本框到表单上,然后进行以下属性的设置:

  表单(Form):Name=“frmPeerA” Caption=“UDP Application(1)”
  Winsock控制:Name=“udpPeerA” Protocol=“sckUDPProtocol”
  文本框1(TextBox): Name“txtSend”
  文本框2(TcxtBox): Name=“txtOutput” MultiLine-True ScrollBars=2

  然后打开代码窗口,分别在相应的事件下输入以下代码:
  Private Sub Form_Load()
   With udpPeerA
   .RemoteHost=“197.1.1.2” '要连接到的计算机名
   .RemotePort=1010 '要连接到的端口号
   .LocalPort=1011 '该Winsock控制将要使用的本地端口号,便于其它端与该Winsock通讯
   .Bind 1011 '将该Winsock控制绑定到该本地端口
   EndWith
  End Sub
  Private Sub txtSend_Change()
   udpPeerA.SendData txtSend.Text'发送文本
  End Sub
  Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
   Dim strData As String
   udpPeerA.GetData strData,vbString
   txtOutput.Text = strData
  End Sub

  UDP应用二:

  类似建立UDP Server的方法,在表单上添加一个Winsock控制及两个文本框,然后进行以下属性的设置:

  表单(Form):Name=“frmPeerB” Caption=“UDP Application(2)”
  Winsock控制:Name=“udpPeerB” Protocol=“sckUDPProtoclool”
  文本框1(TextBox):Name=“txtSend”
  文本框2(TextBox):Name=“txtOutput” MultiLine=True ScrollBars=2

  然后输入以下代码:
  Private Sub Form_Load()
   With udpPeerB
   .RemoteHost=“197.1.1.2” '要连接到计算机的IP地址
   .RemotePort=1011 '要连接到的端口号
   .LocalPort=1010 '该Winsock控制将使用的本地端口号,便于其它方与之通讯
   .Bind 1010 '将该Winsock控制绑定到该本地端口
   End With
  End Sub
  Private Sub txtSend_Change()
   udpPeerB.SendData txtSend.Text '发送文本
  End Sub
  Private Sub udpPeerB_DataArrival(ByVal bytesTotal As Long)
   Dim strData As String
   udpPeerB.GetData strData,vbString
  txtOutput.Text=strData
  End Sub

  要运行该实例,打开两个Visual Basic的事例,然后分别运行这两个工程文件即可。若要在不同的机器上运行此两例,只需要将两个工程文件中的RemoteHost改变成相应的计算机的IP地址或域名即可。
【独家专访】腾讯陈磊:你不知道腾讯对开源有多爱 地下数据交易网站Rescator被黑,疑似Target报复 Spark独门秘籍:打造结构一体化、功能多元化的高效数据流水线 【走进支付宝】重磅嘉宾!历届“走进企业”回顾 【OSTC讲师专访】腾讯TDW项目:开源的分布式数据仓库 ID爆发的物联网时代,我们该如何管理手中的数百个账户 取代Google Maps?苹果大幅优化Apple Maps用户体验 中交兴路系统架构师杨晓明:Hadoop+Storm+ HBase…,打造交通行业创新型服务 雨果·巴拉的第二春:我与小米的那些事儿 为什么Android Wear能统领智能手表领域? LinkedIn缘何抛弃Ruby,转投NodeJS怀抱 【OSTC讲师专访】九秒社团李明:开源对游戏产业的渗透与帮助 IBM 2014中国论坛:挖掘新互联网时代下“智慧企业”的发展之路 Facebook工程部副总裁Cory Ondrejka谈企业在早期所遇到的管理瓶颈 小团队管理工具选择:不需要大而全 《近匠》聚合CEO左磊:基础数据免费,API开放 IDC:HTML5与原生应用之争还将长存 不甘称臣,Google誓要击败Amazon 【OSTC讲师专访】腾讯追风(QcloudMna):开源移动加速SDK Google Go:一门为云而生的编程语言 3月26日:没有Larry Page,就没有今天的Google Hortonworks再获1亿美元融资,Hadoop领域三足鼎立 Intel收购Basis Science,欲拓展可穿戴设备市场 Facebook以20亿美元收购Oculus:虚拟现实将是未来计算平台又一大事件 基于NodeJS的14款Web框架 Hadoop导航:版本、生态圈及MapReduce模型 把黑匣子送上“云” 失联困境能否不再 看看全球十大电信巨头的大数据玩法 尹绪森:打开圈子拥抱变化,谈Spark玩家的自我修养 从Healthbook看苹果将如何颠覆移动医疗和健身追踪 Google可穿戴:详解Android Wear的十大功能 数据机构的一道题!~(队列) 求救高手?active dll的Ftp上传组件的问题?(100) TQuery返回的字段类型信息如何区分numeric还是float? 我感觉VC里最神秘的几块内容(至今也没搞懂) 在这里混了有段日子了 升星 散分!!(请版主别删) 欢迎大家加入我建的QQ群 请问一下各位是如何调用第三方的DLL。例如:华为DLL.清华深资DLL。等等。。。 QRBand能否自动换页的问题。 请问有哪位 有ACCP的的全套资料第一学期第一学年 资料 一个关treeview的问题 sql server有没有办法看一个image类型值是否有无? 嵌入到outlook控件的问题 一个奇怪的问题: 怎么老打不开数据库set db= new notesdatabase("","data.nsf")??? 如何调用DLL啊? JSP怎么样调用sessionbean? 如何在Cell单元格显示数据库中已image类型存放的图片?(急) php有什么好办法把mysql里面枚举型字段的各个项目读出来? easy problem 文件问题 在线等候 北京掌中仙境技术有限公司招聘程序开发人员 请问win2003中如何起用3d? 关于迭代开发模式 主菜单的字体怎么修改? C#中自动生成SQL语句(update,delete)是否并不怎么好呢? 关于在VC中开发数据库使用ORACLE的若干问题?(SQL SERVER 到 ORACLE转换的问题) 如果更新有外键约束的主键呢? 谁有播放*.dat的asp组件啊!~ 这是一个控件源码,为什么只有在运行时,才能显示控件的图形,请指教! 电脑一进系统就待机……sos 浅谈视图(Views) 本人急需自然景物的分形源程序(最好包括山水树),急!可加分 高分求免费电影下载网站,最好是一些提供最新电影的网站 请教axis的开始的安装配置问题,谢谢~ 如何用ASP实现往已经建好的表中添加新的字段? TQuery返回的字段类型信息如何区分numeric还是float? 为什么弹出来的菜单偏离我的点的位置很远? 高手请进!!! 用sqlDataAdapter自动产生的update,delete语句是否最优? 小问题,50分,我的CRichEditCtrl继承类为什么在输入汉字时不触发 WM_CHAR 消息!! 100分,如何将一个类实例存入数据库,并取回? JavaScript问题,请大家帮忙。 急,急,急!如何做一个循环让程序延迟3秒执行? 有意思的问题,请高手指教!(100*x) 如何根据条件来得到DataGrid需要显示的列!!! php运行环境配置 CSDN怎么总出错啊?ft... 有一事不解,进来看看吧,up有分 菜鸟提问:DOM中如何load一个.xml文件 mssql2000的jdbc驱动是否不支持PreparedStatement HELP!!! 无论打开任户文件夹,都提示WAS VIRUS!!!DESTORYED Rose 菜鸟的傻问题 一个令人讨厌的家伙用英语怎么说? 醉里吴音相媚好的醉里是什么意思? 怎么写《妈妈的味道》这篇作文?麻烦帮忙写个开头和结尾 还有帮我选几个典型事例 telecommunications superhighway blessing or course是什么意思 醉里吴音相媚好的 相媚好啥意思 作文《妈妈的味道》 a degree course in Applied Thai Traditional Medicine怎么翻啊?请勿机译, 醉里吴音相媚好中的相媚好是什么意思? 效应细胞能杀死靶细胞细胞毒性T细胞能杀死靶细胞吗 有多少中国人或诺贝尔奖提名? 三角形ABC中角A.B.C所对的边分别为a.b.c,已知cosC=-1/4.1求sinC的值 2当a=2,2sinA=sinC时,求b及c的长 根据《鹿和狼的故事》给凯巴森林设计一块警示牌 要小学水平的 50字左右 生男生女决定于夫妇中的丈夫,因为男性能产生x、y两种,女性只产生具有x染色体的一种卵细胞.这句话是对是错额...到底是对的还是错的!我都蒙了! 醉里吴音相媚好的意思是什么? 现在有人想在凯巴伯森林入口处竖一块警示牌,你认为该在上面写些什么? 关于专利权的判断题,专利权人的权利不包括专利权人为发明人,设计人时表明自己发明人,设计人.是对是错?答案给的是该说法正确.但是不太明白.这句话该怎么理解?专利权人是发明人或设计 在△ABC中,角A,B,C成等差数列,求2sinA-sinC的取值范围 贝壳炒着吃怎么弄啊? 为什么生理盐水可以可减轻硝酸银腐蚀性 在△ABC中,三内角A、B、C成等差数列,且关于x的方程x^2sinA+2xsinB+sinC=0有两相等实根,则角A=?角C=?60°,60°. 贝壳怎么炒 在HCl气体溶于水后水的体积不变的情况下,如何计算30%盐酸的密度如果是那样的化任何浓度为30%的溶液密度都是一样的了? 吭的两个读音 怎么炒贝壳?我买了贝壳 怎么炒 30%盐酸密度是多少? 爷爷冷得吭吭地咳的吭的读音 油漆工的徒弟叫啥?(急转弯) 我用4017做了一个双稳态电路,它会受到220V交流电影响的?我做了这个双稳态电路,不知什么原因?家里的电灯开或关都经常到它的不稳定, “醉里吴音相媚好,白发谁家翁媪? 请教一道电路习题,第32题 用IC4017做的指示流水灯12脚要不要接电路. T,B细胞阴性阳性选择的概念及意义 电路图练习题 如何用CD4017做一个四分频电路? 我知道效应T(B)细胞是T(B)细胞的进一步.可我想问.T(B)细胞和T(B)淋巴细胞是同一个含义吗?还是在造血干细胞流入胸腺时是T细胞.然后再慢慢成熟为T淋巴细胞 动物的皮下脂肪影响动物体表的散热吗? 1、If you don't like what he said,just r______.2、Although they are twins,they behave d_______.3、Two days later,the meat went bad and it produced an unpleasant s__________. 细胞的定义是什么? 关于句子的理解(急需答案)原句:1、把自己当作别人2、把别人当作自己3、把别人当作别人4、把自己当作自己理解:1、待人处事不能总是以自我为中心,要多为他人着想:从他人的角度、 《了不起的盖茨比》(The great gatsby )英文精校版 TXT附件即可英文精校就行 什么格式都可以 谢 在三角形ABC中,a,b,c分别对应角A,B,C的对边,C=2A,sinC=3/2sinA(1)求sinA,sinC的值(2)若ac=24,求边b的长 加急! 理解:他把他的大提包扔在一边,怀里紧紧地抱着一只纸箱子. quickshe doesn't come to the party today ,she _____busyA,maybe B,may be C.must D.may -----What do you think of the Prime Minister's speech to the nation?1.---What do you think of the Prime Minister's speech to the nation?---I like ____of what he said.A more B many C few D muchWHY2.He asked several questions____the professor who g 什么动物不长毛 第30题快! BE QUICK! 醉里吴音的吴音指的是哪里的语言 动物和人为什么会长毛,为什么鱼类不能? quick!What does it feel like( ) hiking ( ) fine weather?A going; in soB to go; in such a C going; on so D to go ;in such(不是“feel like doing sth ”,)You haven't forgotten to pay him,have you?-____,but I'll remember _____ him tomorrow.A yes,payi 某企业在第1年初购买一台价值为120万元的设备M,M的价值在使用过程中逐年减少.从第2年到第6年,每年初M的(Ⅰ)求第n年初M的价值an的表达式;(Ⅱ)设 ,若An大于80万元,则M继续使用,否则须 为什么人不像动物一样浑身长毛人类和其他动物一样需要抵御寒冷,为什么人的毛退化了呢 一道初二英语题,关于反意疑问句的(quick~~)You are never too young to start doing things,( ) ( )? 湖南某高新区引进一高科技企业,投入资金720万元建设基本设施,第一年运营费用120万元,以后每年增加40...湖南某高新区引进一高科技企业,投入资金720万元建设基本设施,第一年运营费用120万元 动物冬天是怎样过冬的 Be quick!We don't have e ___ time.怎么填? 请问碳化的木头和竹子,在干燥的状态下导电吗? X是2与8的等差中项,则X与5的等比中项是? 此句中course怎么理解?是选择or过程or方法还是别的意思?Suitable habitats for gray wolves have greatly diminished in area.In spite of this fact,the most sensible course would be to refrain from reestablishing gray wolves in places whe 竹醋液真的是竹子炭化过程中得到的液体吗?它是不是有多少纯度的?怎样的竹醋液才是好的? 高二数学必修五等差等比数列 日本将向新加坡提供PM2.5对策华人要求ABC就歧视言论道歉国际新闻早报:多名俄罗斯高官因瞒报收国外网友贴图揭秘“土豪”子弟的一天【新加坡:日与夜的魅惑中国人流行取“洋名” 老外却热衷取中港媒:日本领导人不要遮住中日关系最后潘基文发言人:美已保证今后不对联合国美国安局局长:监听报道“完全错误” 世界最大机场将举办国际航展 25家中中国全票当选联合国经社理事会成员 任义乌城区一黄金地块6.1亿成交 业内杭州地铁6号线过钱塘江段开始水上勘探杭州到富阳的514路下月换新车 一人杭州一23岁女子酒后绿化带小解 不慎温州多家典当行看走眼 “金包银”的假俄外长称叙问题国际会议遭破坏 批西方宁夏“10·14”灭门杀人案犯罪嫌疑病房成了临时募捐点 20余万善款驰援浙江180项科技成果下月开槌出售安徽宁国民政局长否认叫停网友募捐 自新同学语言不通没朋友 小女孩用翻译器联合国机构说正在调查美军空袭致阿富汗搞笑漫画:顶级公司面试是什么样?(组我省布局23家青少年体育俱乐部乌兹别克顶替阿联酋重庆北碚建设“城乡一刻钟”文化圈上海纪念“二林蔗农事件”91周年(图重庆调整完善大病保险政策一部戏请来两个演技担当 《深海浩劫》改掉这几个驾驶习惯,你的爱车永远平安这就是特朗普想建起的墙\"时代力量\"被批媚俗后反呛民进党美国经济四个“不变”“双十一”临近 “抄号族”很忙、商家重庆南岸区扎实推动房地产市场去库存致敬!布冯达成意甲600场里程碑 比厦门国际男装周开幕 吴克群携品牌担纲美国俄克拉荷马州5.3级地震 东部邻泉州一批处级干部任前公示 欢迎群众反郭勇任保定市委常委北京评书将重返天桥 一代评书表演艺术
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘