用vb实现聊天讨论室和点对点会话

《用vb实现聊天讨论室和点对点会话》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、用VB实现聊天讨论室和点对点会话在一个单位内部或通过广域协议（如X.25）互联的行业内部都有几十或上万台计算机互联，用Intra虽然可以建立聊天室，但实现点对点实时对话却比较困难。本人用ScirosoftoteHost//准备连接远程机的IP地址③RemotePort//连接远程机的IP端口号（1024—65535之间）④LocalPort//本地机监听IP端口号必须与呼叫机端口号相同2·方法：①connect//申请连接远程机②listen//设置监听③accept//建立实际连接④senddata//发送数据⑤getdata//接收数据⑥close//关闭连接3·事件：①connec

2、tionrequest//一方请求连接时另一方产生②connect//一方机接受连接时另一方产生③close//一方机关闭连接时另一方产生④dataArrival//一方发送数据另一方产生⑤error//请求连接失败时产生二·制作方法⑴在一工程中添加两个表单form1（模拟客户端）、form2（模拟服务器端）。form1中装入控件：控件名主要属性用途VB.Formform1caption=”雷萌聊天室”controlbox=0‘False模拟客户机表单VB.Textboxtext1multiline=-1‘Truescrollbars=3‘Bath用于输入发往聊天室的信息VB.Textb

3、oxtext2locked=-1‘Truemultiline=-1‘Truescrollbars=3‘Bath显示从聊天室发来的信息VB.boboxbo1text=”10.84.234.11”‘任定默认地址放入常用的地址VB.mandbuttonm1caption=”退出”最小化form1VB.mandbuttonm2caption=”连接”请求与输入的地址连接VB.mandbuttonsendcaption=”发送”发送Text1中的内容VB.Labellabel1caption=“请在此输入发表的信息”Text1的框标VB.Labellabel2caption=“聊天室或对方的信息”

4、Text2的框标VB.Labellabel3caption=”等待连接”显示连接状态信息VB.Labellabel4caption=”聊天室或对方地址”用于指示bo1VB.Labellabel5caption=”操作:选地址连接,连接成功看到聊天室内容后再输信息发送”操作说明VB.Timertimer1interval=6000;enabled=false防止连接超时MSSSousePointer=0Form1.MousePointer=0Timer1.Enabled=FalseIfi=Chr(0)ThenText2.Text="你是今天第一个进入本聊天室的客户。"+Chr(13)+Ch

5、r(10)ElseText2.Text=Text2.Text+iEndIfText2.SelStart=Len(Text2.Text)Send.MousePointer=0bo1.Enabled=Falsem2.Caption="断开连接"Text1.SetFocusEndSubPrivateSuba_Error(ByValNumberAsInteger,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,CancelDisplayAsB

6、oolean)flag=FalseTimer1.Enabled=Falsem2.MousePointer=0Form1.MousePointer=0MsgBox"网络连接失败！"Label3.Caption="等待连接"bo1.Enabled=Truebo1.SetFocusa.Closem2.Caption="连接"EndSubPrivateSubm1_Click()a.Close