計(jì)算機(jī)網(wǎng)絡(luò)課程設(shè)計(jì)(tcp協(xié)議聊天程序(文件)
【正文】 器 amp。 Winsock1(0).LocalPort Winsock1(0).Listen Socknumber = 0 End Sub Private Sub Form_Unload(Cancel As Integer) 39。連接請(qǐng)求 Load Winsock1(Socknumber) Winsock1(Socknumber).Accept requestID ReDim Preserve Gac(Socknumber) Gac(Socknumber) = True = Int() + 1 ip = Winsock1(Index).RemoteHostIP ip End Sub 10 Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim c As String 39。在具體做的過程中，參考了資料書還有 網(wǎng)上的一些程序 ， 雖然這個(gè)聊天程序 的界面及功能比較簡(jiǎn)單，但從代碼的編寫及結(jié)果的調(diào)試成功還是花了很多的心思。 允許多人在線聊天。 服務(wù)器無(wú)需查找服務(wù)器 IP，自動(dòng)顯示本地 IP。 某用戶剛登錄 服務(wù)器時(shí)，服務(wù)器需對(duì)其發(fā)送實(shí)時(shí)在線用戶列表。 尤其是剛開始用 Visual Basic 軟件的時(shí)候，從完全陌生到慢慢的了解，這其中的過程對(duì)應(yīng)用方面知識(shí)的提高有很大的幫助。 （ 客戶 .exe 的生成方法相同） ，如下圖 所示： 六 、 聊天軟件的測(cè)試 在一臺(tái)計(jì)算機(jī)中運(yùn)行服務(wù)器端程序，另一臺(tái)計(jì)算機(jī)中運(yùn)行客戶端程序，由客戶 端進(jìn)行連接并輸入發(fā)送文本框中的數(shù)據(jù)，點(diǎn)擊發(fā)送按鈕。顯示本機(jī)服務(wù)器 IP End Sub Private Sub Winsock1_Close(Index As Integer) 39。 Winsock1(0).LocalIP amp。定義變量 Private Sub exitname_Click() 39。 4. 在窗體中添加一個(gè) WinSock 控件， 其名默認(rèn)為 Winsock1，并將其屬 “ Index” ，屬性設(shè)置為 0。關(guān)閉 winsock = True = False = False = 已與服務(wù)器斷開 + Chr$(13) + Chr$(10) + End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 39。Help39。 vbCrLf amp。運(yùn)行時(shí)最初顯示的屬性以及提示 = Show MsgBox Visual Basic Winsock Chat amp。發(fā)送消息程序段 If = Then MsgBox 不能發(fā)送空消息 Else 7 = + 我說(shuō)的話 : + + Chr$(13) + Chr$(10) = End If End Sub Private Sub Command3_Click() 39。 StatusBar 控件，其命名默認(rèn)為 StatusBar1 其屬性設(shè)置如下圖所示： 6 ，為窗體添加菜單，設(shè)置如下 圖所示： 10. 在窗體中添加如下的代碼： Option Explicit Private Sub Command1_Click() 39。默認(rèn)其命名為 Text Text TextText4，并將其內(nèi)容清空。 窗體命名為“客戶”。 二 、 服務(wù)器工作原理 首先運(yùn)行服務(wù)器，服務(wù)器偵聽端口消息，等待客戶端向其建立連接的申請(qǐng)，一旦接收到客戶端的連接請(qǐng)求，服務(wù)器將返回一個(gè)新的套接字描述符，通過該描述符調(diào)用數(shù)據(jù)傳輸函數(shù)即可與客戶端進(jìn)行數(shù)據(jù)的收發(fā)。 4 基于 TCP 協(xié)議聊天軟件的制作過程 一 、
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1