通信1091王亚芹1091302129Win Socket通信编程.doc

姓名：王亚芹 班级： 通信1091 学号：1091302129 同组人： 姜阳阳 班级： 通信1091 学号：1091302126实验时间：2012-3-16地点： 11#205 指导老师：朱全银 实验名称： WinSocket通信编程实验目的：1熟悉C+/VB的基本操作。2基本了解基于对话框的windows应用程序的编写过程。3对于Windows Socket编程建立初步概念。实验设备：1 Windows2000以上操作系统；2 VB和Visual C+ 6.0语言环境；3 每人一台PC机。实验原理： 下图为面向无连接时winsock通信的流程图： 否服务器客户端成功？成功？聊天对话框聊天对话框退出？退出？结束 结束否是否是否是是相互通信 图-1 面向无连接的winsock通信流程图用户数据文报协议 (UDP) 是一个无连接协议。计算机之间并不建立连接。UDP 应用程序可以是客户机，也可以是服务器。为了传输数据，首先要设置客户计算机的 LocalPort 属性。然后，服务器计算机只需将RemoteHost 设置为客户计算机的 Internet 地址，并将 RemotePort 属性设置为跟客户计算机的 LocalPort 属性相同的端口，并调用 SendData 方法来着手发送信息。于是，客户计算机使用 DataArrival 事件内的 GetData 方法来获取已发送的信息。 实验步骤：1. 客户端模块（1） 建立一个登陆界面： 图-2 A端登陆界面 图-3 A端登录时密码输错 图-4 A端登陆成功主要代码为：If Text1.Text = 1 Then If Text2.Text = 1 Then MsgBox 恭喜你，登陆成功！ Form2.Show Form1.Hide Else MsgBox 对不起，密码错误！ End IfEnd If（2） 登陆成功以后，弹出聊天界面： 图-5 A端聊天界面这部分窗体上要放一个winsock控件，然后在属性页上把协议改成UDPProtocol，本地端口设为1000，对端设为1000。remotehost属性设置为另一台计算机的IP地址172.20.3.72。调用bing方法，指定使用的当地端口号1001。主要代码：Private Sub Form_Load() Winsock1.Bind (1000)End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim str As String Winsock1.GetData str Text1.Text = Text1.Text & Chr(13) + Chr(10) & B & & Date & & Time & Chr(13) + Chr(10) & strEnd Sub 图-6 A端实时聊天界面这部分主要就是发送：主要代码:Private Sub Command3_Click() Winsock1.RemoteHost = Winsock1.RemoteHost Winsock1.SendData (Text2.Text) Text1.Text = Text1.Text + Chr(13) + Chr(10) + A & & Date & & Time & Chr(13) + Chr(10) & Text2.Text Text2.Text = EmptyEnd Sub 图-7 关闭时界面 点击关闭按钮，弹出一个对话框，确定是否退出，如果是“否”，可以继续聊天，如果是“是”，程序就结束了。主要代码：Private Sub Command2_Click() Dim quit As Integer quit = MsgBox(您确定要退出吗？, 4 + 32 + 256) If quit = 6 Then Winsock1.Close EndEnd IfEnd Sub（3） 服务器端模块：因为两台计算机的地位是平等的，这种程序就是点对点通信，所以客户端和服务器端基本一样，一样有个登陆界面，然后弹出对话框，进行对话，代码和服务器端一样。不同的地方是，这部分窗体上要的winsock控件，本地端口设为1000，对端设为1001。remotehost属性设置为另一台计算机的IP地址172.20.3.73。调用bing方法，指定使用的当地端口号1000。 图-8 B端登陆界面 图-9 B端聊天窗口实验体会： 这次实验，我把网络编程所学知识应用到实验中，通过实践使我熟悉了对Windows Socket的设计方法，使我对课本知识有了更深刻的理解和认识。这个实验采用对等模式，基于VB 的UDP的点到点通信，因此双方都不需要连接，但是通信双方必须知道对方的IP地址还有端口号。关键