在VB6.0中用winsock控件制作網絡聊天程序的方法Internet的出現改變了人們的生活，也成為了現代社會的最顯著的標志。VB6.0中的Winsock控件正是當前Internet軟件開發的主要工具之一，本文將通過一個網絡聊天程序的制作與您共同探討該控件在Internet網絡應用程序開發中的技術。制作網絡聊天的關鍵是了解Winsock控件，在VB6.0中該控件以部件的形式將WinsockAPIs形象地呈現給程序員，Winsock控件提供了訪問TCP和UDP網絡服務的方便途徑，程序員可以使用它很方便地完成網絡應用程序的開發，而不必了解網絡協議的細節或調用低級的WinsockAPIs，只需通過設置控件的屬性并調用其方法就可方便地連接到一臺遠程機器上去，且還可雙向交換數據。當我們做到這一點時，基于Internet網絡的應用程序也就完成了。以下是在VB6.0中用winsock控件制作網絡聊天程序的技術過程：.一、設計程序界面.1、啟動VB6.0新建一個EXEX程，在窗體上添加五個標簽（label）、兩個按鈕（commandbutton）、五個文本框（textbox）。.2、在工具欄上空白處點右鍵，選擇〃部件〃，打開〃部件〃對話框，在〃控件〃選項卡內找到"MicrosoftWinsockCotrol6.0"，在前面的復選框內打〃J〃，選擇〃確定〃。將"Winsock〃控件添加到窗體上。3、調整各控件的大小，如圖一 圖一二、設置各對象的屬性1、在屬性窗口中將各對象屬性設置如下表:序號對象屬性名屬性值屬性名屬性值1窗體(form)caption網絡聊天程序2標簽(label1)caption本地計算機名：3標簽(label2)caption（為空）namelclpclbl4標簽(label3)caption本地端口：5標簽(label4)caption連接對象：6標簽(label5)caption遠程端口：7按鈕(Command)caption發送namesndbtn8按鈕(Command)caption連接namecnctbtn9文本框(text1)text（為空）namercvtxtscrollbar2mutilinetrue10文本框(text2)text（為空）nameinpttxt11文本框(text3)text（為空）namelclprt12文本框(text4)text（為空）namermtpc13文本框(text5)text（為空）namermtprt2、調整各控件的大小，制作完成后的程序界面如圖二三、編寫程序代碼 圖二程序代碼及含義如下：OptionExplicitPrivateSubForm_Load（）‘窗體載入時的事件過程Winsockl.Protocol=sckUDPProtocol‘設置Winsock1的傳輸協議為UDP協議EndSub ‘結束本事件過程PrivateSubcncbtn_Click() ‘單擊〃連接〃按鈕事件Lclpclbl.Caption二Winsock1.Localhostname‘在第二個標簽上顯示本地計算機名Winsock1.RemoteHost=rmtpc.Text‘確定Winsock連接的遠程主機名Winsock1.RemotePort=rmtprt.Text‘確定Winsock遠程主機的通訊端口Winsock1.Bindlclprt.text ‘Winsock綁定本地主機的通訊端口EndSubPrivateSubsndbtn_Click() ‘單擊〃發送〃按鈕事件Winsock1.SendDatainpttxt.Text‘向遠程主機發送inpttxt內的文本rcvtxt.Text二rcvtxt.text+Chr$(13)+Chr$(10)+inpttxt.Text‘在rcvtxt內顯示要發送的文本內容inpttxt.Text=〃〃 ‘清空inpttxt內的文本內容EndSub ‘結束本事件過程PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)DimrcvdataAsString ‘定義rcvdata為字符串變量Winsockl.GetDatarcvdata ‘Winsock接收發送來的數據rcvtxt.Text二rcvtxt.text+Chr$(13)+Chr$(10)+rcvdata‘將Winsock接收的數據在rcvtxt內顯示出來EndSub四、 生成可執行文件：打開〃文件〃菜單，選擇〃生成工程1.exe"按照提示為該聊天程序命名為〃網絡聊天程序.exe〃文件，保存自己的計算機上，并復制一份到局域網內的另一臺計算機上。五、 程序運行示例：在局域網內1#、2#兩臺計算機上分別運行程序，在1#計算機上〃本地端口〃內輸入〃1111〃，〃連接對象〃內輸入2#計算機名，〃遠程端口〃內輸入〃1112〃；2#計算機〃本地端口〃內輸入〃1112〃，〃連接對象〃內輸入1#計算機名，〃遠程端口〃內輸入〃1111〃。單擊〃連接〃按鈕，在〃本地計算機名：〃標簽后將顯示本地計算機名。在〃inpttxt〃內輸入文字，單擊〃發送〃按鈕，即可在另一臺