Winsock通信編程

1、專業(yè)： 電子信息工程 姓名： 學(xué)號： 309 日期： 2012年 地點： 應(yīng)電樓305 實驗報告課程名稱： 計算機(jī)網(wǎng)絡(luò)結(jié)構(gòu) 指導(dǎo)老師： 吳建德 成績： 實驗名稱： Winsock通信編程 實驗類型： 上機(jī)實驗 同組學(xué)生姓名： 一、實驗?zāi)康暮鸵螅ū靥睿┒?、實驗?nèi)容和原理（必填）三、主要儀器設(shè)備（必填）四、操作方法和實驗步驟五、實驗數(shù)據(jù)記錄和處理六、實驗結(jié)果與分析（必填）七、討論、心得一、實驗?zāi)康暮鸵?、 學(xué)習(xí)Visual Basic 的Winsock控件的使用方法；2、 了解TCP/UDP的通信過程；3、 進(jìn)一步理解通信分層控制的優(yōu)點；二、實驗內(nèi)容和原理1、 將兩臺PC機(jī)通過以太網(wǎng)連接到同一

2、局域網(wǎng)，用測試軟件測試以太網(wǎng)通信是否正常。2、 編寫一個簡單通信程序，在兩臺PC上同時運行，要求在一臺PC上輸入字符，按確認(rèn)鍵后能在另一臺PC上顯示。3、 編寫兩個通信程序（服務(wù)器程序和客戶機(jī)程序），要求：（1） 客戶機(jī)與服務(wù)器通過TCP連接后，在其中一臺主機(jī)上輸入字符，按回車鍵后將所有字符發(fā)送到另一臺主機(jī)并顯示；（2） 實驗2的文件傳輸方法改為通過UDP傳輸，其余要求不變。三、主要實驗設(shè)備電腦一臺，串口線一根四、實驗數(shù)據(jù)記錄和處理實驗程序代碼如下： 1. TCP:frmclientPrivate Sub Form_Load() 'Winsock 控件的名字為 tcpClient。 &

3、#39;注意：要指定遠(yuǎn)程主機(jī)，可以使用 ' IP 地址（例如："121.111.1.1"），也可以使用 '計算機(jī)的“好聽的名字”如下所示。 tcpClient.RemoteHost = "127.0.0.1" tcpClient.RemotePort = 1002End SubPrivate Sub cmdConnect_Click() '調(diào)用 Connect 方法，初始化連接。 tcpClient.ConnectEnd SubPrivate Sub txtSendData_Change() tcpClient.SendData

4、txtSend.TextEnd SubPrivate Sub tcpClient_DataArrival _(ByVal bytesTotal As Long) Dim strData As String tcpClient.GetData strData txtOutput.Text = strDataEnd SubPrivate Sub txtSend_Change()tcpClient.SendData txtSend.TextEnd SubfrmserverPrivate Sub Form_Load()'將 LocalPort 屬性設(shè)置為一個整數(shù)。'然后調(diào)用 Liste

5、n 方法。tcpServer.LocalPort = 1002tcpServer.ListenfrmClient.Show '顯示客戶端的窗體。End SubPrivate Sub tcpServer_ConnectionRequest(ByVal requestID As Long)'檢查控件的 State 屬性是否為關(guān)閉的。'如果不是，'在接受新的連接之前先關(guān)閉此連接。If tcpServer.State <> sckClosed Then tcpServer.Close'接受具有 requestID 參數(shù)的'連接。tcpServ

6、er.Accept requestIDEnd SubPrivate Sub txtSendData_Change()'名為 txtSendData 的 TextBox 控件中'包含了要發(fā)送的數(shù)據(jù)。當(dāng)用戶往文本框中'鍵入數(shù)據(jù)時，使用 SendData 方法'發(fā)送輸入的字符串。tcpServer.SendData txtSendData.TextEnd SubPrivate Sub tcpServer_DataArrival _(ByVal bytesTotal As Long)'為進(jìn)入的數(shù)據(jù)聲明一個變量。'調(diào)用 GetData 方法，并將數(shù)據(jù)賦予名

7、為 txtOutput'的 TextBox 的 Text 屬性。Dim strData As StringtcpServer.GetData strDatatxtOutput.Text = strDataEnd Sub2. UDPpeerAPrivate Sub Form_Load()'控件的名字為 udpPeerAWith udpPeerA'重點:必須將 RemoteHost 的值'修改為計算機(jī)的名字。.RemoteHost = "127.0.0.1".RemotePort = 1001 '連接的端口號。.Bind 1002 

8、9;綁定到本地的端口。End WithfrmPeerB.Show '顯示第二個窗體。End SubPrivate Sub txtSend_Change()'在鍵入文本時，立即將其發(fā)送出去。udpPeerA.SendData txtSend.TextEnd SubPrivate Sub udpPeerA_DataArrival _(ByVal bytesTotal As Long)Dim strData As StringudpPeerA.GetData strDatatxtOutput.Text = strDataEnd SubPEERBPrivate Sub Form_Loa

9、d()'控件的名字為 udpPeerB。With udpPeerB'重點:必須將 RemoteHost 的值改為'計算機(jī)的名字。.RemoteHost = "127.0.0.1".RemotePort = 1002 '要連接的端口。.Bind 1001 '綁定到本地的端口上。End WithEnd SubPrivate Sub txtSend_Change()'在鍵入后立即發(fā)送文本。udpPeerB.SendData txtSend.TextEnd SubPrivate Sub udpPeerB_DataArrival _(ByVal bytesTotal As Long)Dim strData As StringudpPeerB.GetData strDatatxtOutput.Text = strDataEnd Sub五、實驗結(jié)果與分析設(shè)置圖片如下