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

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

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

3、Winsock控件添加 到窗體上。 3、調(diào)整各控件的大小，如圖一圖一、設(shè)置各對象的屬性1、在屬性窗口中將各對象屬性設(shè)置如下表:序號對象屬性名屬性值屬性名屬性值1窗體(form)capti on網(wǎng)絡(luò)聊天程序:2標(biāo)簽(Iabel1)capti on本地計算機名：3標(biāo)簽(Iabel2)capti on(為空)n ameIclpclbl4標(biāo)簽(Iabel3)capti on本地端口：5標(biāo)簽(Iabel4)capti on連接對象：6標(biāo)簽(Iabel5)capti on遠程端口：7按鈕(command1capti on發(fā)送n amesn dbt n8按鈕(command2capti on連接n amec

4、n ctbt n9文本框(text1)text(為空):n amercvtxtscrollbar2mutili netrue10文本框(text2)text(為空)n amein pttxt11文本框(text3)text(為空):n ameIclprt12文本框(text4)text(為空)n amermtpc13文本框(text5)text(為空)n amermtprt2、調(diào)整各控件的大小，制作完成后的程序界面如圖二三、編寫程序代碼程序代碼及含義如下:Optio n ExplicitPrivate Sub Form_Load()窗體載入時的事件過程Win sock1.Protocol =

5、sckUDPProtocol結(jié)束本事件過程設(shè)置Winsockl的傳輸協(xié)議為UDP協(xié)議End SubPrivate Sub cncbtn_Click()單擊連接 按鈕事件Lclpclbl.Caption=Winsock1.Localhostname 在第二個標(biāo)簽上顯示本地計算機名Winsock1.RemoteHost = rmtpc.Text確定 Winsock 連接的遠程主機名Winsock1.RemotePort = rmtprt.Text確定 Winsock 遠程主機的通訊端口Winsock1.Bind lclprt.textWinsock 綁定本地主機的通訊端口End SubPrivat

6、e Sub sndbtn_Click()單擊發(fā)送 按鈕事件Winsock1.SendData inpttxt.Text向遠程主機發(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)容End Sub結(jié)束本事件過程Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 當(dāng)有數(shù)據(jù)到來時的事件過程Dim rcvdata As Strin

7、g定義 rcvdata 為字符串變量Winsock1.GetData rcvdataWinsock 接收發(fā)送來的數(shù)據(jù)rcvtxt.Text =rcvtxt.text + Chr$(13)+Chr$(10) + rcvdata將 Winsock 接收的數(shù)據(jù)在 rcvtxt 內(nèi)顯示出來End Sub四、生成可執(zhí)行文件：打開文件菜單，選擇生成工程 1.exe 按照提示為該聊天程序 命名為 網(wǎng)絡(luò)聊天程序 .exe 文件，保存自己的計算機上， 并復(fù)制一份 到局域網(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 。 單擊連接 按鈕，在本地計算機名：標(biāo)簽后將顯示本地計算機名。在inpttxt 內(nèi)輸入文字， 單擊發(fā)送按鈕，即可在另一臺計算機的