計(jì)算機(jī)網(wǎng)絡(luò)結(jié)構(gòu)課程Winsock通信編程實(shí)驗(yàn)報(bào)告課程名稱：指導(dǎo)老師：XXX成績：實(shí)驗(yàn)名稱：實(shí)驗(yàn)類型：上機(jī)實(shí)驗(yàn)同組學(xué)生姓名：一、實(shí)驗(yàn)?zāi)康暮鸵螅ū靥睿? 二、實(shí)驗(yàn)內(nèi)容和原理（必填）三、主要儀器設(shè)備（必填） 四、操作方法和實(shí)驗(yàn)步驟五、實(shí)驗(yàn)數(shù)據(jù)記錄和處理 六、實(shí)驗(yàn)結(jié)果與分析（必填）七、討論、心得一、實(shí)驗(yàn)?zāi)康暮鸵髮W(xué)習(xí)VisualBasic的Winsock控件的使用方法；了解TCP/UDP的通信過程；進(jìn)一步理解通信分層控制的優(yōu)點(diǎn)；二、實(shí)驗(yàn)內(nèi)容和原理將兩臺(tái)PC機(jī)通過以太網(wǎng)連接到同一局域網(wǎng)，用測試軟件測試以太網(wǎng)通信是否正常。編寫一個(gè)簡單通信程序，在兩臺(tái)PC上同時(shí)運(yùn)行，要求在一臺(tái)PC上輸入字符，按確認(rèn)鍵后能在另一臺(tái)PC上顯示。編寫兩個(gè)通信程序（服務(wù)器程序和客戶機(jī)程序），要求：客戶機(jī)與服務(wù)器通過TCP連接后，在其中一臺(tái)主機(jī)上輸入字符，按回車鍵后將所有字符發(fā)送到另一臺(tái)主機(jī)并顯示；實(shí)驗(yàn)2的文件傳輸方法改為通過UDP傳輸，其余要求不變。三、主要實(shí)驗(yàn)設(shè)備電腦一臺(tái)，串口線一根四、實(shí)驗(yàn)數(shù)據(jù)記錄和處理實(shí)驗(yàn)程序代碼如下：TCP:frmclientPrivateSubForm_Load()'Winsock控件的名字為tcpClient。'注意：要指定遠(yuǎn)程主機(jī)，可以使用'IP地址（例如："121.111.1.1"），也可以使用'計(jì)算機(jī)的“好聽的名字”如下所示。tcpClient.RemoteHost="127.0.0.1"tcpClient.RemotePort=1002EndSubPrivateSubcmdConnect_Click()'調(diào)用Connect方法，初始化連接。tcpClient.ConnectEndSubPrivateSubtxtSendData_Change()tcpClient.SendDatatxtSend.TextEndSubPrivateSubtcpClient_DataArrival_(ByValbytesTotalAsLong)DimstrDataAsStringtcpClient.GetDatastrDatatxtOutput.Text=strDataEndSubPrivateSubtxtSend_Change()tcpClient.SendDatatxtSend.TextEndSubfrmserverPrivateSubForm_Load()'將LocalPort屬性設(shè)置為一個(gè)整數(shù)。'然后調(diào)用Listen方法。tcpServer.LocalPort=1002tcpServer.ListenfrmClient.Show'顯示客戶端的窗體。EndSubPrivateSubtcpServer_ConnectionRequest(ByValrequestIDAsLong)'檢查控件的State屬性是否為關(guān)閉的。'如果不是，'在接受新的連接之前先關(guān)閉此連接。IftcpServer.State<>sckClosedThentcpServer.Close'接受具有requestID參數(shù)的'連接。tcpServer.AcceptrequestIDEndSubPrivateSubtxtSendData_Change()'名為txtSendData的TextBox控件中'包含了要發(fā)送的數(shù)據(jù)。當(dāng)用戶往文本框中'鍵入數(shù)據(jù)時(shí)，使用SendData方法'發(fā)送輸入的字符串。tcpServer.SendDatatxtSendData.TextEndSubPrivateSubtcpServer_DataArrival_(ByValbytesTotalAsLong)'為進(jìn)入的數(shù)據(jù)聲明一個(gè)變量。'調(diào)用GetData方法，并將數(shù)據(jù)賦予名為txtOutput'的TextBox的Text屬性。DimstrDataAsStringtcpServer.GetDatastrDatatxtOutput.Text=strDataEndSubUDPpeerAPrivateSubForm_Load()'控件的名字為udpPeerAWithudpPeerA'重點(diǎn):必須將RemoteHost的值'修改為計(jì)算機(jī)的名字。.RemoteHost="127.0.0.1".RemotePort=1001'連接的端口號(hào)。.Bind1002'綁定到本地的端口。EndWithfrmPeerB.Show'顯示第二個(gè)窗體。EndSubPrivateSubtxtSend_Change()'在鍵入文本時(shí)，立即將其發(fā)送出去。udpPeerA.SendDatatxtSend.TextEndSubPrivateSubudpPeerA_DataArrival_(ByValbytesTotalAsLong)DimstrDataAsStringudpPeerA.GetDatastrDatatxtOutput.Text=strDataEndSubPEERBPrivateSubForm_Load()'控件的名字為udpPeerB。WithudpPeerB'重點(diǎn):必須將RemoteHost的值改為'計(jì)算機(jī)的名字。.RemoteHost="127.0.0.1".RemotePort=1002'要連接的端口。.Bind1001'綁定到本地的端口上。EndWithEndSubPrivateSubtxtSend_Change()'在鍵入后立即發(fā)送文本。udpPeerB.SendDatatxtSend.TextEndSubPrivateSubudpPeerB_DataArrival_(ByValbytesTotalAsLong)DimstrDataAsStringudpPeerB.GetDatastrDatatxtOutput.Text=strDataEndSub五、實(shí)驗(yàn)結(jié)果與分析