vb网络聊天程序制作方法.docVIP

在VB6.0中用winsock控件制作网络聊天程序的方法 Internet的出现改变了人们的生活，也成为了现代社会的最显著的标志。VB6.0中的Winsock控件正是当前Internet软件开发的主要工具之一，本文将通过一个网络聊天程序的制作与您共同探讨该控件在Internet网络应用程序开发中的技术。 制作网络聊天的关键是了解Winsock控件，在VB6.0中该控件以部件的形式将Winsock APIs形象地呈现给程序员， Winsock控件提供了访问TCP和UDP网络服务的方便途径，程序员可以使用它很方便地完成网络应用程序的开发，而不必了解网络协议的细节或调用低级的Winsock APIs，只需通过设置控件的属性并调用其方法就可方便地连接到一台远程机器上去，且还可双向交换数据。当我们做到这一点时，基于Internet网络的应用程序也就完成了。 以下是在VB6.0中用winsock控件制作网络聊天程序的技术过程： 一、 设计程序界面 1、 启动VB6.0新建一个EXE工程，在窗体上添加五个标签（label）、两个按钮（commandbutton）、五个文本框（textbox）。 2、 在工具栏上空白处点右键，选择部件，打开部件对话框，在控件选项卡内找到Microsoft Winsock Cotrol 6.0，在前面的复选框内打√，选择确定。将Winsock控件添加到窗体上。 3、 调整各控件的大小，如图一　　　　　　　　　　图　一 二、设置各对象的属性 1、在属性窗口中将各对象属性设置如下表： 序号 对象 属性名 属性值 属性名 属性值 1 窗体(form) caption 网络聊天程序 ? ? 2 标签(label1) caption 本地计算机名： ? ? 3 标签(label2) caption （为空） name lclpclbl 4 标签(label3) caption 本地端口： ? ? 5 标签(label4) caption 连接对象： ? ? 6 标签(label5) caption 远程端口： ? ? 7 按钮（command1） caption 发　送 name sndbtn 8 按钮（command2） caption 连　接 name cnctbtn 9 文本框(text1) text （为空） name rcvtxt scrollbar 2 mutiline true 10 文本框(text2) text （为空） name inpttxt 11 文本框(text3) text （为空） name lclprt 12 文本框(text4) text （为空） name rmtpc 13 文本框(text5) text （为空） name rmtprt ? 2、调整各控件的大小，制作完成后的程序界面如图二 ? 三、编写程序代码　　　　　　　　　? 图　二 ? 程序代码及含义如下： Option Explicit Private Sub Form_Load()?????????????????????????? ‘窗体载入时的事件过程 Winsock1.Protocol = sckUDPProtocol　　　 ‘设置Winsock1的传输协议为UDP协议 End Sub 　　　　　　　　　　　　　　 ‘结束本事件过程 ? Private Sub cncbtn_Click()　　　　　　‘单击连接按钮事件 Lclpclbl.Caption=Winsock1.Localhostname　 ‘在第二个标签上显示本地计算机名　　　　 Winsock1.RemoteHost = rmtpc.Text　　　　 ‘确定Winsock连接的远程主机名 Winsock1.RemotePort = rmtprt.Text　　　　 ‘确定Winsock远程主机的通讯端口 Winsock1.Bind lclprt.text　‘Winsock绑定本地主机的通讯端口 End Sub ? Private Sub sndbtn_Click()　　　　　‘单击发送按钮事件　　　　　 Winsock1.SendData inpttxt.Text ‘向远程主机发送inpttxt内的文本 rcvtxt.Text =rcvtxt.text + Chr$(13) + Chr$(10) + inpttxt.Text ‘在rcvtxt内显示要发送的文本内容 inpttxt.Text = 　　　　　　　　‘清空inpttxt内的文本内容 End Sub　　　　　　　　　　　　　　　　　‘结束本事件过程 ? Private Sub Winsock1_DataArrival(ByVal bytesTotal