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

在VB中利用UDP协议编写聊天程序

HTML文档下载 WORD文档下载 PDF文档下载
在VB中利用UDP协议编写聊天程序

{  UDP 协议是一种无连接协议,两台计算机之间的数据传输类似于传递邮件:消息从一台计算机发送到另一台计算机,但是两者之间没有明确的连接。
  由于UDP 协议不需要显式的连接,就需要在两个Winsock控件中间发送数据,关键需要完成以下的三步:
  1.将RemoteHost属性设置为另一台计算机的名称。
  2.将RemotePort属性设置为第二个控件的LocalPort属性。
  3.调用Bind方法,指定使用的LocalPort。
  因为两台计算机的地位可以看成“对等的”,这种应用程序也被称为点对点的应用程序。
  下面将创建一个聊天应用程序,两个人可以通过它进行实时的交谈。请按照以下步骤制作:
  1.创建一个新的 Standard EXE 工程。将缺省的窗体的名称修改为frmPeerA,将窗体的标题修改为“Peer A”。
  2.在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerA。在“属性”页上,单击“协议”并将协议修改为 UDPProtocol。
  3.在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。
  4.为窗体添加如下的代码。
  Private Sub Form_Load()
  ′控件的名字为udpPeerA
  With udpPeerA
  ′重点:必须将 RemoteHost 的值修改为对方计算机的名字。
  RemoteHost= ″PeerB″
  RemotePort = 1001 ′连接的端口号。
  Bind 1002 ′绑定到本地的端口。
  End With
  frmPeerB.Show′显示第二个窗体。
  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
  txtOutput.Text = strData
  End Sub
  要创建第二个 UDP 伙伴,请按照以下步骤执行:
  1.在工程中添加一个标准窗体,将窗体的名字修改为 frmPeerB,将窗体的标题修改为“Peer B”。
  2.在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerB。
  3.在“属性”页上,单击“协议”并将协议修改为“UDPProtocol”。
   4.在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。
  5.在窗体中添加如下代码
  Private Sub Form_Load()
  ′控件的名字为 udpPeerB。
  With udpPeerB
  ′重点:必须将RemoteHost的值改为对方计算机的名字。
  RemoteHost= ″PeerA″
  RemotePort = 1002 ′要连接的端口。
  Bind 1001 ′绑定到本地的端口上。
  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
  txtOutput.Text = strData
  End Sub
  运行工程,然后在两个窗体的txtSend TextBox中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox中。
    (广东 刘亮)
LBA兴起:未来移动广告将基于地理位置 苹果发布2013财年Q1财报:iPhone销量及营收低于预期 不再被墙后 一个全新GitHub到来 与乔布斯并肩作战的日子 Google抛弃Exchange ActiveSync WP用户获DAV支持 Facebook真的要做“Facebook Phone”? 程序员,都去写一写前端代码吧 清除山寨和广告应用,“豌豆洗白白”服务上线 谷歌另类“开源” 程度仍不及Facebook和Twitter 想在云中分一份蛋糕? 不妨试试“山寨” 为何乔布斯脾气怪糟 却能让一群最优秀的人为他卖命? 单页Web设计案例+技巧攻略(多图) IE10里的捕捉模式和响应式设计 在“亚马逊商店”出售自己:产品经理这么找工作 【CTO俱乐部第92期】大规模存储与电商架构演化实战分享 刘黎明:PaaS是非主流业务,要与IaaS融合 个人手机游戏开发者之死 为什么苹果的应用审核是个笑话? 程序员性格怪癖是才华横溢的表现,还是危险分子的征兆? JavaScript Source Map详解 8条学习编程的可靠建议 一周消息树:亲爱的GitHub,我们怎么访问不了你? [回顾] 2012年几大编程语言就业趋势分析 研发周报:微软无视W3C 拒绝遵循WebRTC标准 移动周报:夫妻档闯江湖 事业爱情双丰收 当服务器遇见锤子:第六届AWS全球创业大赛落幕 C# DataTable 和List之间相互转换的方法 iPad如何在三年内改变世界 划时代的成果:新DNA存储技术 轻而易举装下世界 谷歌产品设计:Larry Page的魅力革命 开源移动统计工具Countly更新 支持Unity 3D 怎么关闭D盘E盘的自动播放功能? 怎样改点Combo Box中每一行的字体? 如何去掉MDI中“窗口”菜单下的最近打开窗口项 简单问题请教 请fierygnu(va_list)进来留个名 [发现]WINDOWS的重命名怪事 求购C++ builder 基础类 最好是不要可视化的,不知道现在有那些出版社有呢?请各位帮帮忙,谢谢! 请教有关word里面制表位的问题! 如何将两个xml文件合并 workflow 问题,解决再加分。。郁闷 如何学好C++语言? 又一个搞笑的歌曲!共享! 又一个简单问题 请问中级程序员考试中的数据结构考不考 图、文件方面的内容??不要意思没有分给了……见凉!! 请问高手,我想把sqlserver数据库中的一个表的所有列的名称属性都导出到excel中,或word中都可以,请问高手有没有办法能搞定? 请问中级程序员考试中的数据结构考不考 图、文件方面的内容??不好意思没有分给了……见凉!! 用VB.NET实现网吧收费管理的问题 ifaq, please come in. 求如何将数字字符串转换成钱的习惯读法?(解答者给全分,分不够在给!) 难吗,一点也不难,简单吗,一点也不简单,请进! 能否提供一个上传的控件(delphi7.0)??? 谁有studioMX2004正式版的下载地址啊 初学者提问:如何开始编写EJB Module? 破坏系统图标问题!!!!!! 偶想数据结构(C++描述),请大家多介绍几本! 紧急求救:两台连上交换机的电脑为何互相ping不通? 看到corejava第二卷。头大 有这么一种打印格式。。。。。。 我的c盘是系统盘,我不想别人安装东西在里面或者改动,怎么设置?? 免费空间,哈哈 Image 的地址传递问题 有什么方法能让jsp的执行中延迟一点时间。 明天又是九.一八 爱上一个银行MM,真的不知道怎么办!!!!!!!!帮帮我呀! installshield的问题? 求解一个简单问题 机器老是响个不停是怎么回事? 关于frame? 菜鸟求救!!!怎样判断输入框????? informix中的这个sql该怎么写 一个关于batchmove控件的问题? 请高手指点! 國慶節有多少人准備散分的 哪位做过java和SAP系统之间的接口? 关于文档和窗体在多进程时的传递 应用发布时失败,提示“can't drop table~~~~~~~~~” 通过电脑可以收发传真吗? 请问,如何在一个标签中加入其他的控件,并且控制标签显示的位置? 通过 2 个输入框 动态调整大小 ,但是不起作用 ?不是 后端 设置属性 会覆盖前端的吗 ? 写的第一首旧体诗,呵呵~ 学asp.net后再学asp快吗? 冷泉亭记 东南山水,余杭郡为最 最:斯所以最余杭而甲灵隐也 最: 小马虎在抄写单项式-3分之2xy▄z▄时,不小心把字母y,z上的指数污染了,她指知道这个单项式的次数是5 1 分小马虎在抄写单项式-3分之2xy▄z▄时,不小心把字母y,z上的指数污染了,她指知道这个 冷泉亭记 东南山水,余杭郡为最 、 斯所以最余杭而甲灵隐也 最:看看清楚,两个最解释不通,我也不要句子翻译 《冷泉亭记》盛赞冷泉亭景色绝美的句子是? 以偏概全的偏是什么意思 马小虎在抄写单项式-四分之三ab c 时,不小心把字母b,c的指数污染了,他只知道这个单项式的次数是6,你能帮马小虎确定这个单项式吗?请写出符合条件的所有单项式. 床震什么意思 七级床震是什么意思 国际上‘左翼’和‘右翼’是什么含义?有什么区别? 刚才睡得好好的.突然感觉床震了一下,动静挺大的. 请说说以上同学分别采用了什么办法调节自己的情绪 国信办主任鲁炜:网聚正能量 共筑中国保加利亚查获大宗贩毒案巴基斯坦西南部发生爆炸袭击 造成至少全球十佳旅游城市排名揭晓 上海第六巴日美拟明年将普天间空中加油机转往岩国中国“北斗”即将在泰国落地使用宁夏“10·14”灭门杀人案犯罪嫌疑中组部:干部离退休3年内不得到原管辖杭州一大妈在城市空地种2000余株罂中国网络媒体论坛宣言“让网络清朗”中航工业否认为2.7万名员工配备iP最小行车间隔5.5分钟爆笑!海鸥跳舞卖萌求薯条“家长逼婚暂停营业”快餐店贴心酸告示后暑假出境游特惠产品上架住院医疗补助比例提高15%滚动排查农村基层违纪违法线索省公安厅组织“三严三实”学习气温爆表 消暑瓜果销量增副总被指泄露商业秘密 前东家称损失5上半年电影票房200亿元食物与爱情的咏叹调银河帝国之刃夜宠为妃霸占新妻豪门童养媳邪王绝宠蛇蝎嫡妃与五胞胎同居剑灭诸天良婿恋上钻石王老五的吻现代艳帝秦淮八艳函谷关旅游温哥华旅游西岭雪山滑雪场旅游襄阳神韵汉江游轮旅游李先念故居纪念园旅游遗爱湖旅游梁子湖度假区旅游潜山国家森林公园旅游南翠屏公园旅游冬就苗寨旅游心字石旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘