vb网络聊天程序制作方法

在VB6.0中用winsock控件制作网络聊天程序的方法Internet的出现改变了人们的生活，也成为了现代社会的最显著的标志。VB6.0中的Winsock控件正是当前Internet软件开发的主要工具之一，本文将通过一个网络聊天程序的制作与您共同探讨该控件在Internet网络应用程序开发中的技术。制作网络聊天的关键是了解Winsock控件，在VB6.0中该控件以部件的形式将WinsockAPIs形象地呈现给程序员，Winsock控件提供了访问TCP和UDP网络服务的方便途径，程序员可以使用它很方便地完成网络应用程序的开发，而不必了解网络协议的细节或调用低级的WinsockAPIs，只需通过设置控件的属性并调用其方法就可方便地连接到一台远程机器上去，且还可双向交换数据。当我们做到这一点时，基于Internet网络的应用程序也就完成了。以下是在VB6.0中用winsock控件制作网络聊天程序的技术过程：.一、设计程序界面.1、启动VB6.0新建一个EXEX程，在窗体上添加五个标签（label）、两个按钮（commandbutton）、五个文本框（textbox）。.2、在工具栏上空白处点右键，选择〃部件〃，打开〃部件〃对话框，在〃控件〃选项卡内找到"MicrosoftWinsockCotrol6.0"，在前面的复选框内打〃J〃，选择〃确定〃。将"Winsock〃控件添加到窗体上。3、调整各控件的大小，如图一 图一二、设置各对象的属性1、在属性窗口中将各对象属性设置如下表:序号对象属性名属性值属性名属性值1窗体(form)caption网络聊天程序2标签(label1)caption本地计算机名：3标签(label2)caption（为空）namelclpclbl4标签(label3)caption本地端口：5标签(label4)caption连接对象：6标签(label5)caption远程端口：7按钮(Command)caption发送namesndbtn8按钮(Command)caption连接namecnctbtn9文本框(text1)text（为空）namercvtxtscrollbar2mutilinetrue10文本框(text2)text（为空）nameinpttxt11文本框(text3)text（为空）namelclprt12文本框(text4)text（为空）namermtpc13文本框(text5)text（为空）namermtprt2、调整各控件的大小，制作完成后的程序界面如图二三、编写程序代码 图二程序代码及含义如下：OptionExplicitPrivateSubForm_Load（）‘窗体载入时的事件过程Winsockl.Protocol=sckUDPProtocol‘设置Winsock1的传输协议为UDP协议EndSub ‘结束本事件过程PrivateSubcncbtn_Click() ‘单击〃连接〃按钮事件Lclpclbl.Caption二Winsock1.Localhostname‘在第二个标签上显示本地计算机名Winsock1.RemoteHost=rmtpc.Text‘确定Winsock连接的远程主机名Winsock1.RemotePort=rmtprt.Text‘确定Winsock远程主机的通讯端口Winsock1.Bindlclprt.text ‘Winsock绑定本地主机的通讯端口EndSubPrivateSubsndbtn_Click() ‘单击〃发送〃按钮事件Winsock1.SendDatainpttxt.Text‘向远程主机发送inpttxt内的文本rcvtxt.Text二rcvtxt.text+Chr$(13)+Chr$(10)+inpttxt.Text‘在rcvtxt内显示要发送的文本内容inpttxt.Text=〃〃 ‘清空inpttxt内的文本内容EndSub ‘结束本事件过程PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)DimrcvdataAsString ‘定义rcvdata为字符串变量Winsockl.GetDatarcvdata ‘Winsock接收发送来的数据rcvtxt.Text二rcvtxt.text+Chr$(13)+Chr$(10)+rcvdata‘将Winsock接收的数据在rcvtxt内显示出来EndSub四、 生成可执行文件：打开〃文件〃菜单，选择〃生成工程1.exe"按照提示为该聊天程序命名为〃网络聊天程序.exe〃文件，保存自己的计算机上，并复制一份到局域网内的另一台计算机上。五、 程序运行示例：在局域网内1#、2#两台计算机上分别运行程序，在1#计算机上〃本地端口〃内输入〃1111〃，〃连接对象〃内输入2#计算机名，〃远程端口〃内输入〃1112〃；2#计算机〃本地端口〃内输入〃1112〃，〃连接对象〃内输入1#计算机名，〃远程端口〃内输入〃1111〃。单击〃连接〃按钮，在〃本地计算机名：〃标签后将显示本地计算机名。在〃inpttxt〃内输入文字，单击〃发送〃按钮，即可在另一台