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

页面导航:首页 > 软件编程 > vb.net > 用VB实现聊天讨论室和点对点会话

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

来源: 作者: 时间:2016-02-05 12:32 【

一·Winsock的主要属性、事件和方法Winsock是不可见控件,控件文件名是MSWINSCK.OCX,全称为Mcirosoft winsock control,使用时要将此控件调入工具箱。

 

 

 

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

 

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

 

1·属性:Protocol=0 //使用TCP协议;

 

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

 

RemotePort //连接远程机的IP端口号 (102465535之间)

 

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=

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <