資源描述：
《兩臺(tái)電腦實(shí)現(xiàn)連接》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、兩臺(tái)電腦實(shí)現(xiàn)連接在一個(gè)單位內(nèi)部或通過(guò)廣域協(xié)議（如X.25）互聯(lián)的行業(yè)內(nèi)部都有幾十或上萬(wàn)臺(tái)計(jì)算機(jī)互聯(lián)，用Intranet雖然可以建立聊天室，但實(shí)現(xiàn)點(diǎn)對(duì)點(diǎn)實(shí)時(shí)對(duì)話卻比較困難。本人用Winsock和VB自制了一套聊天室和對(duì)話系統(tǒng)，特拿來(lái)供同行們參考。一·Winsock的主要屬性、事件和方法Winsock是不可見(jiàn)控件，控件文件名是MSWINSCK.OCX，全稱為Mcirosoftwinsockcontrol，使用時(shí)要將此控件調(diào)入工具箱。1·屬性：①Protocol=0//使用TCP協(xié)議；②RemoteHost//準(zhǔn)備連接遠(yuǎn)程機(jī)的IP
2、地址③RemotePort//連接遠(yuǎn)程機(jī)的IP端口號(hào)（1024—65535之間）④LocalPort//本地機(jī)監(jiān)聽(tīng)I(yíng)P端口號(hào)必須與呼叫機(jī)端口號(hào)相同2·方法：①connect//申請(qǐng)連接遠(yuǎn)程機(jī)②listen//設(shè)置監(jiān)聽(tīng)③accept//建立實(shí)際連接④senddata//發(fā)送數(shù)據(jù)⑤getdata//接收數(shù)據(jù)⑥close//關(guān)閉連接3·事件：①connectionrequest//一方請(qǐng)求連接時(shí)另一方產(chǎn)生②connect//一方機(jī)接受連接時(shí)另一方產(chǎn)生③close//一方機(jī)關(guān)閉連接時(shí)另一方產(chǎn)生④dataArrival//一方發(fā)送數(shù)據(jù)
3、另一方產(chǎn)生⑤error//請(qǐng)求連接失敗時(shí)產(chǎn)生二·制作方法⑴在一工程中添加兩個(gè)表單form1（模擬客戶端）、form2（模擬服務(wù)器端）。form1中裝入控件：控件名主要屬性用途VB.Formform1caption=”雷萌聊天室”controlbox=0‘False模擬客戶機(jī)表單VB.Textboxtext1multiline=-1‘Truescrollbars=3‘Bath用于輸入發(fā)往聊天室的信息VB.Textboxtext2locked=-1‘Truemultiline=-1‘Truescrollbars=3‘Bath顯示
4、從聊天室發(fā)來(lái)的信息VB.Comboboxcombo1text=”10.84.234.11”‘任定默認(rèn)地址放入常用的地址VB.Commandbuttoncomm1caption=”退出”最小化form1VB.Commandbuttoncomm2caption=”連接”請(qǐng)求與輸入的地址連接VB.Commandbuttonsendcaption=”發(fā)送”發(fā)送Text1中的內(nèi)容VB.Labellabel1caption=“請(qǐng)?jiān)诖溯斎氚l(fā)表的信息”Text1的框標(biāo)VB.Labellabel2caption=“聊天室或?qū)Ψ降男畔ⅰ盩ext
5、2的框標(biāo)VB.Labellabel3caption=”等待連接”顯示連接狀態(tài)信息VB.Labellabel4caption=”聊天室或?qū)Ψ降刂贰庇糜谥甘綜ombo1VB.Labellabel5caption=”操作:選地址連接,連接成功看到聊天室內(nèi)容后再輸信息發(fā)送”操作說(shuō)明VB.Timertimer1interval=6000;enabled=false防止連接超時(shí)MSWinsocklib.winsocka用于數(shù)據(jù)傳輸form2中裝入控件：控件名主要屬性用途VB.Formform2caption=”接收信息”controlb
6、ox=0‘False模擬客戶機(jī)表單VB.Commandbuttoncommand1caption=”返回”隱含F(xiàn)orm2窗口VB.Commandbuttoncommand2caption=”對(duì)話”點(diǎn)對(duì)點(diǎn)會(huì)話時(shí)用此直接啟動(dòng)Form1VB.Textboxtext1locked=-1‘Truemultiline=-1‘Truescrollbars=3‘Bath存放聊天或?qū)υ拑?nèi)容VB.Labellabel1caption=”接收的信息”Text1的框標(biāo)MSWinsocklib.Winsocka用于監(jiān)聽(tīng)MSWinsocklib.Win
7、sockb用于傳送聊天信息⑵在Form1的各控件事件中加入如下代碼:DimflagAsBoolean注釋：連接狀態(tài)變量PrivateSuba_Connect()flag=TrueEndSubPrivateSuba_DataArrival(ByValbytesTotalAsLong)DimiAsStringa.GetDataiLabel3.Caption="連接成功！"Comm2.MousePointer=0Form1.MousePointer=0Timer1.Enabled=FalseIfi=Chr(0)ThenText2.
8、Text="你是今天第一個(gè)進(jìn)入本聊天室的客戶。"+Chr(13)+Chr(10)ElseText2.Text=Text2.Text+iEndIfText2.SelStart=Len(Text2.Text)Send.MousePointer=0Combo1.Enabled=FalseComm
