vb網(wǎng)絡(luò)聊天程序制作方法

1、在VB6.0中用winsock控件制作網(wǎng)絡(luò)聊天程序的方法Internet的出現(xiàn)改變了人們的生活，也成為了現(xiàn)代社會(huì)的最顯著的標(biāo)志。VB6.0中的Winsock控件正是當(dāng)前Internet軟件開(kāi)發(fā)的主要工具之一，本文將通過(guò)一個(gè)網(wǎng)絡(luò)聊天程序的制作與您共同探討該控件在Internet網(wǎng)絡(luò)應(yīng)用程序開(kāi)發(fā)中的技術(shù)。制作網(wǎng)絡(luò)聊天的關(guān)鍵是了解Winsock控件，在VB6.0中該控件以部件的形式將WinsockAPIs形象地呈現(xiàn)給程序員，Winsock控件提供了訪問(wèn)TCP和UDP網(wǎng)絡(luò)服務(wù)的方便途徑，程序員可以使用它很方便地完成網(wǎng)絡(luò)應(yīng)用程序的開(kāi)發(fā)，而不必了解網(wǎng)絡(luò)協(xié)議的細(xì)節(jié)或調(diào)用低級(jí)的WinsockAPIs,只需通過(guò)

2、設(shè)置控件的屬性并調(diào)用其方法就可方便地連接到一臺(tái)遠(yuǎn)程機(jī)器上去，且還可雙向交換數(shù)據(jù)。當(dāng)我們做到這一點(diǎn)時(shí)，基于Internet網(wǎng)絡(luò)的應(yīng)用程序也就完成了。以下是在VB6.0中用winsock控件制作網(wǎng)絡(luò)聊天程序的技術(shù)過(guò)程： 一、設(shè)計(jì)程序界面 1、啟動(dòng)VB6.0新建一個(gè)EXE工程，在窗體上添加五個(gè)標(biāo)簽(label)、兩個(gè)按鈕(commandbutton)、五個(gè)文本框(textbox)。 2、在工具欄上空白處點(diǎn)右鍵，選擇部件，打開(kāi)部件對(duì)話框，在控件選項(xiàng)卡內(nèi)找到MicrosoftWinsockCotrol6.0”,在前面的復(fù)選框內(nèi)打選擇確定。將Winsock控件添加到窗體上。3、調(diào)整各控件的大小，如圖一圖一

3、二、設(shè)置各對(duì)象的屬性1、在屬性窗口中將各對(duì)象屬性設(shè)置如下表:聘懶屬生名屬性值闡名屬性值1窗體(form)caption網(wǎng)絡(luò)聊天斷2標(biāo)簽(labell)caption木地計(jì)算機(jī)名：3標(biāo)簽Qabel2)caption（為空）nameIclpclbl4標(biāo)簽Qabel3)caption帶口：標(biāo)簽Qabel4)caption連接對(duì)象：6標(biāo)簽(label5)caption遠(yuǎn)程端口：7按鈕(cocmandl)caption發(fā)送namesndbtn8按鈕(cooraand2)caption連接namecnctbtn9文本框(text1)text（為空）namercvtxtscrollbar2mutilinet

4、rue10文本框（text2）text（為空）nameinpttxt11文本框（text3）text（為空）nameIclprt12文本框（text4）text（為空）namermtpc13文本框（text5）text（為空）namermtprt2、調(diào)整各控件的大小，制作完成后的程序界面如圖二三、編寫(xiě)程序代碼程序代碼及含義如下:OptionExplicitPrivateSubForm_Load（）窗體載入時(shí)的事件過(guò)程Winsockl.Protocol=sckUDPProtocol'設(shè)置Winsockl的傳輸協(xié)議為UDP協(xié)議EndSub'結(jié)束本事件過(guò)程PrivateSubcncb

5、tn_Click()'單擊連接按鈕事件Lclpclbl.Caption=Winsockl.Localhostname'在第二個(gè)標(biāo)簽上顯示本地計(jì)算機(jī)名Winsockl.RemoteHost=rmtpc.Text'確定Winsock連接的遠(yuǎn)程主機(jī)名Winsockl.RemotePort=rmtprt.Text確定Winsock遠(yuǎn)程主機(jī)的通訊端口Winsockl.BindIclprt.text'Winsock綁定本地主機(jī)的通訊端口EndSubPrivateSubsndbtn_Click()'單擊發(fā)送按鈕事件Winsockl.SendDatainpttxt.Te

6、xt向遠(yuǎn)程主機(jī)發(fā)送inpttxt內(nèi)的文本rcvtxt.Text=rcvtxt.text+Chr$(13)+Chr$(10)+inpttxt.Text'在rcvtxt內(nèi)顯示要發(fā)送的文本內(nèi)容inpttxt.Text=，清空inpttxt內(nèi)的文本內(nèi)容EndSub'結(jié)束本事件過(guò)程PrivateSubWinsockl_DataArrival(ByVaibytesTotalAsLong)當(dāng)有數(shù)據(jù)到來(lái)時(shí)的事件過(guò)程DimrcvdataAsString，定義rcvdata為字符串變量Winsockl.GetDatarcvdata'Winsock接收發(fā)送來(lái)的數(shù)據(jù)rcvtxt.Text=rc

7、vtxt.text+Chr$(13)+Chr$(10)+rcvdata'將Winsock接收的數(shù)據(jù)在rcvtxt內(nèi)顯示出來(lái)EndSub四、生成可執(zhí)行文件：打開(kāi)文件菜單，選擇生成工程1.exe按照提示為該聊天程序命名為網(wǎng)絡(luò)聊天程序.exe文件，保存自己的計(jì)算機(jī)上，并復(fù)制一份到局域網(wǎng)內(nèi)的另一臺(tái)計(jì)算機(jī)上。五、程序運(yùn)行示例：在局域網(wǎng)內(nèi)1#、2#兩臺(tái)計(jì)算機(jī)上分別運(yùn)行程序，在1#計(jì)算機(jī)上本地端口內(nèi)輸入1111，連接對(duì)象內(nèi)輸入2#計(jì)算機(jī)名，遠(yuǎn)程端口內(nèi)輸入1112；2#計(jì)算機(jī)本地端口內(nèi)輸入1112，連接對(duì)象內(nèi)輸入1#計(jì)算機(jī)名，遠(yuǎn)程端口內(nèi)輸入1111。單擊連接按鈕，在本地計(jì)算機(jī)名：標(biāo)簽后將顯示本地計(jì)算機(jī)名。在inpttxt內(nèi)輸入文字，單擊發(fā)送按鈕，即可在另一臺(tái)