計算機網(wǎng)絡結(jié)構(gòu)課程 Winsock通信編程實驗報告

計算機網(wǎng)絡結(jié)構(gòu)課程Winsock通信編程實驗報告課程名稱：指導老師：XXX成績：實驗名稱：實驗類型：上機實驗同組學生姓名：一、實驗目的和要求（必填） 二、實驗內(nèi)容和原理（必填）三、主要儀器設備（必填） 四、操作方法和實驗步驟五、實驗數(shù)據(jù)記錄和處理 六、實驗結(jié)果與分析（必填）七、討論、心得一、實驗目的和要求學習VisualBasic的Winsock控件的使用方法；了解TCP/UDP的通信過程；進一步理解通信分層控制的優(yōu)點；二、實驗內(nèi)容和原理將兩臺PC機通過以太網(wǎng)連接到同一局域網(wǎng)，用測試軟件測試以太網(wǎng)通信是否正常。編寫一個簡單通信程序，在兩臺PC上同時運行，要求在一臺PC上輸入字符，按確認鍵后能在另一臺PC上顯示。編寫兩個通信程序（服務器程序和客戶機程序），要求：客戶機與服務器通過TCP連接后，在其中一臺主機上輸入字符，按回車鍵后將所有字符發(fā)送到另一臺主機并顯示；實驗2的文件傳輸方法改為通過UDP傳輸，其余要求不變。三、主要實驗設備電腦一臺，串口線一根四、實驗數(shù)據(jù)記錄和處理實驗程序代碼如下：TCP:frmclientPrivateSubForm_Load()'Winsock控件的名字為tcpClient。'注意：要指定遠程主機，可以使用'IP地址（例如："121.111.1.1"），也可以使用'計算機的“好聽的名字”如下所示。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ù)。'然后調(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ù)。當用戶往文本框中'鍵入數(shù)據(jù)時，使用SendData方法'發(fā)送輸入的字符串。tcpServer.SendDatatxtSendData.TextEndSubPrivateSubtcpServer_DataArrival_(ByValbytesTotalAsLong)'為進入的數(shù)據(jù)聲明一個變量。'調(diào)用GetData方法，并將數(shù)據(jù)賦予名為txtOutput'的TextBox的Text屬性。DimstrDataAsStringtcpServer.GetDatastrDatatxtOutput.Text=strDataEndSubUDPpeerAPrivateSubForm_Load()'控件的名字為udpPeerAWithudpPeerA'重點:必須將RemoteHost的值'修改為計算機的名字。.RemoteHost="127.0.0.1".RemotePort=1001'連接的端口號。.Bind1002'綁定到本地的端口。EndWithfrmPeerB.Show'顯示第二個窗體。EndSubPrivateSubtxtSend_Change()'在鍵入文本時，立即將其發(fā)送出去。udpPeerA.SendDatatxtSend.TextEndSubPrivateSubudpPeerA_DataArrival_(ByValbytesTotalAsLong)DimstrDataAsStringudpPeerA.GetDatastrDatatxtOutput.Text=strDataEndSubPEERBPrivateSubForm_Load()'控件的名字為udpPeerB。WithudpPeerB'重點:必須將RemoteHost的值改為'計算機的名字。.RemoteHost="127.0.0.1".RemotePort=1002'要連接的端口。.Bind1001'綁定到本地的端口上。EndWithEndSubPrivateSubtxtSend_Change()'在鍵入后立即發(fā)送文本。udpPeerB.SendDatatxtSend.TextEndSubPrivateSubudpPeerB_DataArrival_(ByValbytesTotalAsLong)DimstrDataAsStringudpPeerB.GetDatastrDatatxtOutput.Text=strDataEndSub五、實驗結(jié)果與分析