用VB实现聊天讨论室和点对点会话




 

 

 

一·Winsock的主要属性、事件和方法

 

Winsock是不可见控件，控件文件名是MSWINSCK.OCX，全称为Mcirosoft winsock control，使用时要将此控件调入工具箱。

 

1·属性：①Protocol=0 //使用TCP协议；

 

②RemoteHost //准备连接远程机的IP地址

 

③RemotePort //连接远程机的IP端口号 （1024—65535之间）

 

④LocalPort //本地机监听IP端口号必须与呼叫机端口号相同

 

2·方法：①connect //申请连接远程机

 

②listen //设置监听

 

③accept //建立实际连接

 

④senddata //发送数据

 

⑤getdata //接收数据

 

⑥close //关闭连接

 

3·事件：①connectionrequest //一方请求连接时另一方产生

 

②connect //一方机接受连接时另一方产生

 

③close //一方机关闭连接时另一方产生

 

④dataArrival //一方发送数据另一方产生

 

⑤error //请求连接失败时产生

 

二·制作方法

 

⑴ 在一工程中添加两个表单form1（模拟客户端）、form2（模拟服务器端）。

 

form1中装入控件：

 

控件名

主要属性

用 途

 

VB.Form form1

caption=”雷萌聊天室”

 

controlbox=0 ‘False

模拟客户机表单

 

VB.Textbox text1

multiline=-1 ‘True

 

scrollbars=3 ‘Bath

用于输入发往聊天室的信息

 

VB.Textbox text2

locked=-1 ‘True

 

multiline=-1 ‘True

 

scrollbars=3 ‘Bath

显示从聊天室发来的信息

 

VB.Combobox combo1

text=”10.84.234.11” ‘任定默认地址

放入常用的地址

 

VB.Commandbutton comm1 

caption=”退出”

最小化form1

 

VB.Commandbutton comm2 

caption=

补充：软件开发 , Vb ,