用VB實(shí)現(xiàn)聊天討論室和點(diǎn)對點(diǎn)會話解析

1、用 VB 實(shí)現(xiàn)聊天討論室和點(diǎn)對點(diǎn)會話在一個(gè)單位內(nèi)部或通過廣域協(xié)議（如 X.25 ）互聯(lián)的行業(yè)內(nèi)部都有幾 十或上萬臺計(jì)算機(jī)互聯(lián)，用 Intranet 雖然可以建立聊天室，但實(shí)現(xiàn)點(diǎn)對點(diǎn)實(shí)時(shí) 對話卻比較困難。本人用 Win sock和VB自制了一套聊天室和對話系統(tǒng)，特拿來 供同行們參考。一Win sock的主要屬性、事件和方法Win sock是不可見控件，控件文件名是 MSWINSCK.O,全稱為Mcirosoft winsock control ，使用時(shí)要將此控件調(diào)入工具箱。1 屬性：Protocol=0 /使用TCP協(xié)議； RemoteHost /準(zhǔn)備連接遠(yuǎn)程機(jī)的IP地址 RemotePort

2、/連接遠(yuǎn)程機(jī)的IP端口號（1024 65535之間） LocalPort/本地機(jī)監(jiān)聽IP端口號必須與呼叫機(jī)端口號相同2 方法：connect /申請連接遠(yuǎn)程機(jī) listen/設(shè)置監(jiān)聽 accept/建立實(shí)際連接 senddata /發(fā)送數(shù)據(jù) getdata/接收數(shù)據(jù) close /關(guān)閉連接3 事件：connectionrequest/ 一方請求連接時(shí)另一方產(chǎn)生 connect/ 一方機(jī)接受連接時(shí)另一方產(chǎn)生 close / 一方機(jī)關(guān)閉連接時(shí)另一方產(chǎn)生 dataArrival/ 一方發(fā)送數(shù)據(jù)另一方產(chǎn)生 error /請求連接失敗時(shí)產(chǎn)生二制作方法 在一工程中添加兩個(gè)表單 form1 （模擬客戶端）、

3、 form2 （模擬服務(wù)器 端）。form1 中裝入控件：控件名主要屬性用途VB.Form form1caption= ”雷萌聊天室”controlbox=0 False模擬客戶機(jī)表單VB.Textbox text1multiline=-1Truescrollbars=3Bath用于輸入發(fā)往聊天室的信息VB.Textbox text2locked=-1 Truemultiline=-1Truescrollbars=3Bath顯示從聊天室發(fā)來的信息VB.Combobox combo1text= ”1 ” 任定默認(rèn)地址放入常用的地址VB.Commandbutton comm1

4、caption= ”退出”最小化 form1VB.Commandbutton comm2 caption= ”連接” 請求與輸入的地址連接VB.Commandbutton sendx” H、乎”caption= ”發(fā)送” 發(fā)送 Text1 中的內(nèi)容VB.Label label1 caption= “請?jiān)诖溯斎氚l(fā)表的信息”Text1 的框標(biāo)VB.Label label2 caption= “聊天室或?qū)Ψ降男畔ⅰ盩ext2 的框標(biāo)VB.Label label3 caption= ”等待連接” 顯示連接狀態(tài)信息VB.Label label4 caption= ”聊天室或?qū)Ψ降刂贰?用于指示 Comb

5、o1VB.Label label5caption= ”操作:選地址連接 ,連接成功看到聊天室內(nèi)容后再輸信息發(fā)送” 操作說明VB.Timer timer1 interval=6000; enabled=false 防止連接超時(shí)MSWinsocklib.winsock a用于數(shù)據(jù)傳輸form2 中裝入控件：控件名主要屬性用途VB.Form form2 caption= ”接收信息”controlbox=0False模擬客戶機(jī)表單VB.Commandbutton command1 caption= ”返回”隱含F(xiàn)orm2窗口VB.Commandbutton command2 caption= ”對話

6、” 點(diǎn)對點(diǎn)會話時(shí)用此直接啟動(dòng) Form1VB.Textbox text1 locked=-1 Truemultiline=-1Truescrollbars=3Bath存放聊天或?qū)υ拑?nèi)容VB.Label label1 caption= ”接收的信息”Text1 的框標(biāo)MSWinsocklib.Winsock a用于監(jiān)聽MSWinsocklib.Winsock b用于傳送聊天信息 在Forml的各控件事件中加入如下代碼Dim flag As Boolean 注釋：連接狀態(tài)變量Private Sub a_Connect()flagTrueEnd SubLong)Private Sub a_DataA

7、rrival(ByVal bytesTotal AsDim i As Stringa.GetData iLabel3.Caption = 連接成功！ Comm2.MousePointer = 0Form1.MousePointer = 0Timer1.Enabled = FalseIf i = Chr(0) ThenText2.Text = 你是今天第一個(gè)進(jìn)入本聊天室的客戶。 + Chr(13) + Chr(10)ElseText2.Text = Text2.Text + iEnd IfText2.SelStart = Len(Text2.Text)Send.MousePointer = 0C

8、ombo1.Enabled = FalseComm2.Caption = 斷開連接 Text1.SetFocusEnd SubDescription As S String, ByVal H CancelDisplay APrivate Sub a_Error(ByVal Number As Integer, tring, ByVal Scode As Long, ByVal Source As elpFile As String, ByVal HelpContext As Long, s Boolean)flag = FalseTimer1.Enabled = FalseComm2.MousePointer = 0F