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

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

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

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

3、B.Textboxtext2locked=-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防止连接超时MSSS1的各控件事件中加进如下代码:DimflagAsBooleanTimer1.Enabled=Falsem2.MousePointer=0Form1.MousePointer=0MsgBox"

5、X络连接失败(超时)！"Label3.Caption="等待连接"bo1.Enabled=Truebo1.SetFocusa.Closem2.Caption="连接"EndSub⑶在Form2的各控件事件中加进如下代码:Constmaxn=200‘最大同时连接本机的客户数Dimuser(maxn)AsBooleanPrivateSubmand1_Click()Form2.HideEndSubPrivateSubmand2_Click()LoadForm1Form1.Sho_Load()Dimstr1AsStringForm2.Caption="雷萌通讯软件"