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