計(jì)算機(jī)網(wǎng)絡(luò)實(shí)驗(yàn)指導(dǎo)書-資料下載頁(yè)
2024-10-04 15:40本頁(yè)面
【正文】 uestID 參數(shù)的39。連接。 requestIDEnd SubPrivate Sub txtSendData_Change()39。名為 txtSendData 的 TextBox 控件中39。包含了要發(fā)送的數(shù)據(jù)。當(dāng)用戶往文本框中39。鍵入數(shù)據(jù)時(shí)，使用 SendData 方法39。發(fā)送輸入的字符串。 End SubPrivate Sub tcpServer_DataArrival _(ByVal bytesTotal As Long)39。為進(jìn)入的數(shù)據(jù)聲明一個(gè)變量。39。調(diào)用 GetData 方法，并將數(shù)據(jù)賦予名為 txtOutput 39。的 TextBox 的 Text 屬性。Dim strData As String strData = strDataEnd Sub上面的步驟創(chuàng)建了一個(gè)簡(jiǎn)單的服務(wù)器應(yīng)用程序。為了使它能夠工作，還必須為它創(chuàng)建一個(gè)客戶端的應(yīng)用程序。要?jiǎng)?chuàng)建 TCP 客戶端，請(qǐng)按照以下步驟執(zhí)行： 1. 在工程中添加一個(gè)新的窗體，將其命名為 frmClient。2. 將窗體的標(biāo)題改為“TCP Client”。3. 在窗體中添加一個(gè) Winsock 控件，并將其命名為 tcpClient。4. 在 frmClient 中添加兩個(gè) TextBox 控件。將第一個(gè)命名為 txtSendData，第二個(gè)為 txtOutput。5. 在窗體上放一個(gè) CommandButton 控件，并將其命名為 cmdConnect。6. 將 CommandButton 控件的標(biāo)題改為 Connect。7. 在窗體中添加如下的代碼。 重點(diǎn)必須將 RemoteHost 屬性值修改為您的計(jì)算機(jī)的名字。Private Sub Form_Load() 39。Winsock 控件的名字為 tcpClient。 39。注意：要指定遠(yuǎn)程主機(jī)，可以使用 39。 IP 地址（例如：），也可以使用 39。計(jì)算機(jī)的“好聽(tīng)的名字”如下所示。 = = 1001End SubPrivate Sub cmdConnect_Click() 39。調(diào)用 Connect 方法，初始化連接。 End SubPrivate Sub txtSendData_Change() End SubPrivate Sub tcpClient_DataArrival _(ByVal bytesTotal As Long) Dim strData As String strData = strDataEnd Sub上面的代碼創(chuàng)建了一個(gè)簡(jiǎn)單的客戶/服務(wù)器模式的應(yīng)用程序。我們可以將兩者都運(yùn)行起來(lái)：運(yùn)行工程，然后單擊“連接”。在兩個(gè)窗體之一的 txtSendData 文本框中鍵入文本，可以看到同樣的文字將出現(xiàn)在另一個(gè)窗體的 txtOutput 文本框中。運(yùn)行結(jié)果：服務(wù)器端客戶端
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1