計(jì)算機(jī)網(wǎng)絡(luò)實(shí)驗(yàn)網(wǎng)絡(luò)編程-閱讀頁
2024-09-24 13:47本頁面
【正文】 WinSock 控件響應(yīng)請求 39。 _ Trim$(sData) amp。Else If sData=sendcourse ‘不會了 End If err: MsgBox End Sub Private Sub WinsockTCP_Close() Unload WinsockTCP End Sub 客戶端： 窗體設(shè)計(jì)： 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ā)送用戶輸入的文字。獲得本地計(jì)算機(jī)的名稱和 IP HostName = HostIP = = False = False 39。斷開與服務(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。如果連接成功，那么文本框可用 = True = True (1).Text = 連接成功！ End Sub Private Sub TcpClient_DataArrival(ByVal bytesTotal As Long) 39。 sData amp
公司管理相關(guān)推薦
鄂ICP備17016276號-1