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

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

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

3、二、設置各對象的屬性1、在屬性窗口中將各對象屬性設置如下表:聘懶屬生名屬性值闡名屬性值1窗體(form)caption網(wǎng)絡聊天斷2標簽(labell)caption木地計算機名：3標簽Qabel2)caption（為空）nameIclpclbl4標簽Qabel3)caption帶口：標簽Qabel4)caption連接對象：6標簽(label5)caption遠程端口：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)整各控件的大小，制作完成后的程序界面如圖二三、編寫程序代碼程序代碼及含義如下:OptionExplicitPrivateSubForm_Load（）窗體載入時的事件過程Winsockl.Protocol=sckUDPProtocol'設置Winsockl的傳輸協(xié)議為UDP協(xié)議EndSub'結(jié)束本事件過程PrivateSubcncb

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

6、xt向遠程主機發(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é)束本事件過程PrivateSubWinsockl_DataArrival(ByVaibytesTotalAsLong)當有數(shù)據(jù)到來時的事件過程DimrcvdataAsString，定義rcvdata為字符串變量Winsockl.GetDatarcvdata'Winsock接收發(fā)送來的數(shù)據(jù)rcvtxt.Text=rc

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