【正文】 雖然我們 編寫的這個程序雖然比較簡單，但是13 它包括了整個 TCP/IP 的通信流程，通過完成它， 對我們 幫助很大， 加深了 對TCP/IP 協(xié)議的理解 。 6. 在窗體上添加三 個 Label 控件，其名默認(rèn)為 Label Label2， Label3， 并將它們的 Caption 屬性改為“在線人數(shù)”、“客戶端 IP列表” 、“服務(wù)器 IP” ，為窗體添加菜單 file: 9 8. 在窗體中添加如下代碼 ： Private Gac() As Boolean Dim Socknumber As Integer 39。 vbCrLf amp。 richtextbox 控件。 （ 2）向服務(wù)器發(fā)出服務(wù)請求報文，等待并接收應(yīng)答；繼續(xù)提出請求 。 StatusBar 最多能被分成 16 個 Panel 對象，這些對象包含在 Panels集合中。 二 、 TCP 協(xié)議 TCP 協(xié)議（ 數(shù)據(jù)傳輸協(xié)議 ） 允許創(chuàng)建和維護(hù)與遠(yuǎn)程計算機(jī)的連接 ， 連接兩臺計算機(jī)就可彼此進(jìn)行數(shù)據(jù)傳輸。 基 于 TCP協(xié)議制作聊天軟件 摘要 本次計算機(jī)網(wǎng)絡(luò)課程 設(shè)計 是要制作 一個基于 TCP 協(xié)議的 聊天軟件 。 TCP 是因特網(wǎng)中的傳輸層協(xié)議，使用 三次握手協(xié)議 建立連接。 在設(shè)計時，可以創(chuàng)建和自定義 Panel 對象的外觀，在 StatusBar 控件的Properties Page 中， 選擇 Panel 卡片就可以設(shè)置各種參數(shù)了。 （ 3）請求結(jié)束后關(guān)閉通信通道并終止。默認(rèn)其命名為 Text Text TextText4，并將其內(nèi)容清空。 vbCrLf amp。定義變量 Private Sub exitname_Click() 39。 尤其是剛開始用 Visual Basic 軟件的時候，從完全陌生到慢慢的了解，這其中的過程對應(yīng)用方面知識的提高有很大的幫助。在具體做的過程中，參考了資料書還有 網(wǎng)上的一些程序 ， 雖然這個聊天程序 的界面及功能比較簡單，但從代碼的編寫及結(jié)果的調(diào)試成功還是花了很多的心思。 5． 在窗體上添加兩 個 Richtextbox控件，其名默認(rèn)為 Text Text3， 將 Text3初值設(shè)置為 0。 by chendf amp。 WinSock 控件，默認(rèn)其命名為 Winsock1。 客戶端 : （ 1）打開一通信通道，并連接到服務(wù)器所在主機(jī)的特定端口 。 StatusBar 控件提供 窗體 ，該窗體通常位于父窗體的底部，通過這一窗體，應(yīng)用程序能顯示各種狀態(tài)數(shù)據(jù)。因此 ,計算機(jī)應(yīng)用程序的開發(fā)也由傳統(tǒng)單機(jī)處理模式 ,轉(zhuǎn)向以多機(jī)通信為主的網(wǎng)絡(luò)應(yīng)用開發(fā)。 整個 軟件包括服務(wù)器和客戶端兩個部分。 當(dāng) 客戶端 發(fā)出 SYN（ TCP/IP 建立連接時使用的握手信號） 連接請求后，等待對方回答 SYN+ACK， 表示接收到了這個消息 ，并最終對對方的 SYN 執(zhí)行 ACK 確認(rèn)。在運(yùn)行時，可以根據(jù)應(yīng)用程序的狀態(tài)對 Panel 對象重新配置以反映不同的功能。 六 、設(shè)計目的 本 課程設(shè)計 的目標(biāo)是用 Visual TCP 協(xié)議的 聊天軟件。 CommandButton 控件。 Press Button39。點(diǎn)擊 Fileexit,退出聊天 End End Sub Private Sub Form_Load() 39。 我們制作的聊天軟件 實現(xiàn)了 如下 基本 功能 : 登錄時只需要輸入服務(wù)器 IP。觀察運(yùn)行結(jié)果 : 11 12 同時，我們的聊天軟件還可以實現(xiàn)一些其它的功能，如清空聊天記錄： 服務(wù)器可以單 擊自動顯示自己的 IP： 七 、 總結(jié) 這次的課程設(shè)計是 制作 簡單聊天程序，在平日的生活學(xué)習(xí)中，可以說 等即時通訊軟件已占據(jù)重要的位置，也深受大家的喜愛，所以這個課程設(shè)計很有現(xiàn)實意義， 我們 做起來也比較感興趣。 設(shè)置完以后， Winsock1 會變成 Winsock1(0)。 vbCrLf amp。 “客戶端。 （ 5）關(guān)閉服務(wù)器。 四 、 Visual Basic StatusBar 控件介紹 一個 StatusBar 控件由 Pa