計算機(jī)網(wǎng)絡(luò)實(shí)驗(yàn)網(wǎng)絡(luò)編程-wenkub.com
2025-08-21 13:47 本頁面
【正文】 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。Else If sData=sendcourse ‘不會了 End If err: 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ā)送用戶輸入的文字。利用 WinSock 控件響應(yīng)請求 39。設(shè)置服務(wù)器的端口號 = CLng(Trim$()) 39。存儲用戶 Dim colHostcourse As Collection 39。客戶在建立 套接字 后就可調(diào)用 connect()和服務(wù)器建立連接，連接一旦建立，客戶機(jī)和服務(wù)器之間就可以通過調(diào)用 read()和 write()來發(fā)送和接收數(shù)據(jù)。數(shù)據(jù)報套接字的一個重要特點(diǎn)是它保留了記錄邊界。用戶目前可以使用兩種套接口，即流套接字 TCP 和數(shù)據(jù)報套接字 UDP。服務(wù)器程序通過協(xié)
公司管理相關(guān)推薦
鄂ICP備17016276號-1