計算機(jī)網(wǎng)絡(luò)實驗網(wǎng)絡(luò)編程-文庫吧在線文庫
【正文】 MsgBox End Sub Private Sub WinsockTCP_Close() Unload WinsockTCP End Sub 客戶端： 窗體設(shè)計： txtClientChat 用來顯示客戶端程序傳送的文本、 txtRemotePort用來輸入遠(yuǎn)程服務(wù)器的端口、 txtTCPHost 用來設(shè)置遠(yuǎn)程服務(wù)器的名稱、 txtClientInput 用來輸入文本； 1 個 WinSock 控件 TcpClient,用來連接服務(wù)器端，并完成與服務(wù)器端交互的功能； 4 個標(biāo)準(zhǔn)按鈕控件， cmdTCPCnn 用來與服務(wù)器端建立連接、 cmdTCPClose 用來關(guān)閉所建立的連接、cmdClientClear 用來清空聊天窗口、 cmdClientSend 用來 向服務(wù)器端發(fā)送用戶輸入的文字。 sData amp。斷開與服務(wù)器的連接 (1).Text = 已退出系統(tǒng)！ Exit Sub err: MsgBox End Sub Private Sub cmdClientClear_Click() = vbNullString End Sub Private Sub cmdClientSend_Click() On Error GoTo err Dim sSend As String 39。利用 WinSock 控件響應(yīng)請求 39。存儲用戶 Dim colHostcourse As Collection 39。數(shù)據(jù)報套接字的一個重要特點是它保留了記錄邊界。服務(wù)器程序通過協(xié)議端口號來指定它所提供的服務(wù)，然后被動地等待通信。該模型中，服務(wù)器應(yīng)用是一種專門用來提供某一種服務(wù)的程序，它被動地等待通信，而客戶應(yīng)用主動地啟動通信，請求服務(wù)器的服務(wù)。 流式 套接字 定義了一種可靠的面向連接的服務(wù)， 提供了雙向的，有序的，無重復(fù)并且無記錄邊界的數(shù)據(jù)流服務(wù)。最后，待數(shù)據(jù)傳送結(jié)束后，雙方調(diào)用 close()關(guān)閉 套接字 。服務(wù)器端 WinSockTCP 空間執(zhí)行監(jiān)聽功能 End Sub
公司管理相關(guān)推薦
鄂ICP備17016276號-1