計算機網(wǎng)絡(luò)實驗網(wǎng)絡(luò)編程-資料下載頁
2025-08-26 13:47本頁面
【導(dǎo)讀】熟悉和掌握網(wǎng)絡(luò)編程的基本方法和步驟；進一步理解client/server交互模式；和server兩部分組成，client和server之間的通信基于TCP協(xié)議，并且實現(xiàn)NCSP應(yīng)用層協(xié)。大多數(shù)網(wǎng)絡(luò)應(yīng)用程序都遵從client/server交互模型。該模型中，服務(wù)器應(yīng)用是一種專門。服務(wù)器程序既可以接收信息也能發(fā)送信息，還可以成為客戶。TCP/UDP賦予每個服務(wù)一個唯一的協(xié)議端口號。服務(wù)器程序通過協(xié)議端口號來指定它。所提供的服務(wù)，然后被動地等待通信?？蛻粼诎l(fā)送連接請求時，必須說明服務(wù)器程序運行主。機的IP地址和協(xié)議端口號來指定它所希望的服務(wù)。服務(wù)器端計算機通過此端口號將收到的。支持雙向的數(shù)據(jù)流，但并不保證是可靠，有序，無重復(fù)的。接收信息的進程有可能發(fā)現(xiàn)信息重復(fù)了，或者和發(fā)出時的順序不同。數(shù)據(jù)報套接字的一個重。要特點是它保留了記錄邊界。使用面向連接的套接字編程，通過圖2來表示其時序。后，待數(shù)據(jù)傳送結(jié)束后，雙方調(diào)用close()關(guān)閉套接字。遠程服務(wù)器的端口、txtTCPHost用來設(shè)置遠程服務(wù)器的名稱、txtClientInput用來輸入文本；
【正文】 Click() If Trim$() = vbNullString Or _ Trim$() = vbNullString Then MsgBox 請輸入遠程主機名和端口！ Exit Sub End If = Trim$() = CLng(Trim$()) End Sub Private Sub cmdTCPClose_Click() On Error GoTo err 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。發(fā)送輸入的文本 sSend = Trim$() sSend Exit Sub err: MsgBox End Sub Private Sub TcpClient_Connect() 39。如果連接成功，那么文本框可用 = True = True (1).Text = 連接成功！ End Sub Private Sub TcpClient_DataArrival(ByVal bytesTotal As Long) 39。該事件用來接收從服務(wù)器反回的數(shù)據(jù)，并顯示 On Error GoTo err Dim sData As String sData = amp。 sData amp。 vbCrLf Exit Sub err: MsgBox End Sub Private Sub TcpClient_Close() (1).Text = 服務(wù)器關(guān)閉…… End Sub
公司管理相關(guān)推薦
鄂ICP備17016276號-1