利用VB控件编写简单聊天程序实验报告.doc

利用VB控件编写简单聊天程序实验报告 实验目的 学会使用Winsock控件来实现网络聊天程序，以达到学会各种连接方式的程序设计方法。 实验指导内容 理解Winsock控件 采用UDP或TCP方式实现一个人网络聊天程序 实现用户聊天程序 具有聊天记录功能 实验环境 用以太网交换机连接起来的WIN2000的操作系统计算机，安装有VB6.0软件。 实验操作与步骤 利用Winsock控件，它是TCP/IP技术的核心部分（传输层、互联层和网络接口层），通常在操作系统的内核实现。为实现TCP/IP网络操作系统提供的典型网络编程界面，就需要调用Socket。而对于Microsoft Visual Basic而言，socket以Winsock控件的方式出现。 本程序的编写主要是主机之间利用UDP通信：① 客户端程序：RomoteHost属性、RomotePort属性 SendData方法、DataArrival事件、GetData方法 ② 服务器端程序 LocalPort属性、RemoteHost属性、RemotePort属性 SendData方法、DataArrival事件、GetData方法。 程序编写的思想： 利用实验四《利用控件编写CS程序》的思想，主要将客户端和服务端放在同一个窗体内，仍然采用端口绑定的思想，在ChatToolFirst中绑定的端口为2000（Winsock1.Bind 2000），将远程端口设为2002；而在ChatToolSecond中绑定的端口为2002（Winsock2.Bind 2002），将远程端口设为2000。 在窗体中调用（Show TextLocal = Winsock1（Winsock2）.LocalIP）将本地IP显示出来，发送消息时调用CommandSend_Click()函数，TextSend.Text将输入的文本内容赋给strText（已定义的变量Dim strText As String），然后调用 Winsock1.SendData strText发送数据。在接收数据时选取了ListBox，目的是为了保存对方已发过来的信息。 由于端口为绑定的，这就不得不使本聊天程序必须编写两个不能手工输入端口值的窗体（ChatToolFirst，ChatToolSecond），这也是本聊天程序的不足之处。 具体步骤如下： 1.新建一个工程 2.初始Visual Basic集成开发环境 3.添加Winsock控件、窗体的名字及标题属性、添加标签列表框 3.编写SendData方法、DataArrival事件、GetData方法 实验过程中问题的解决方案 忘记添加Winsock控件，导致运行时出现错误提示 窗体中设置的变量名与程序代码编写过程中的变量不匹配，导致拒绝编译 在Winsock1.SendData strText发送数据后，利用TextSend.Text = 清空先前数据 六、参考文献： 1.源码下载网 【用Winsock控件编写网络聊天器】 2.中南大学 陈进老师 《实验四 利用控件编写CS程序》 2008年5月