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。Formform1

caption=“雷萌聊天室“

controlbox=0‘False

模拟客户机表单

VB。Textboxtext1

multiline=-1‘True

scrollbars=3‘Bath

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

VB。Textboxtext2

locked=-1‘True

multiline=-1‘True

scrollbars=3‘Bath

显示从聊天室发来的信息

VB。Comboboxcombo1

text=“10。84。234。11“‘任定默认地址

放入常用的地址

VB。Commandbuttoncomm1

caption=“退出“

最小化form1

VB。Commandbuttoncomm2

caption=“连接“

请求与输入的地址连接

VB。Commandbuttonsend

caption=“发送“

发送Text1中的内容

VB。Labellabel1

caption=请在此输入发表的信息“

Text1的框标

VB。Labellabel2

caption=聊天室或对方的信息“

Text2的框标

VB。Labellabel3

caption=“等待连接“

显示连接状态信息

VB。Labellabel4

caption=“聊天室或对方地址“

用于指示Combo1

VB。Labellabel5

caption=“操作:选地址连接,连接成功看到聊天室内容后再输信息发送“

操作说明

VB。Timertimer1

interval=6000;enabled=false

防止连接超时

MSWinsocklib。winsocka

用于数据传输

form2中装入控件:

控件名

主要属性

用途

VB。Formform2

caption=“接收信息“

controlbox=0‘False

模拟客户机表单

VB。Commandbuttoncommand1

caption=“返回“

隐含Form2窗口

VB。Commandbuttoncommand2

caption=“对话“

点对点会话时用此直接启动Form1

VB。Textboxtext1

locked=-1‘True

multiline=-1‘True

scrollbars=3‘Bath

存放聊天或对话内容

VB。Labellabel1

caption=“接收的信息“

Text1的框标

MSWinsocklib。Winsocka

用于监听

MSWinsocklib。Winsockb

用于传送聊天信息

⑵在Form1的各控件事件中加入如下代码:

DimflagAsBoolean注释:连接状态变量

PrivateSuba_Connect()

flag=True

EndSub

PrivateSuba_DataArrival(ByValbytesTotalAsLong)

DimiAsString

a。GetDatai

Label3。Caption=“连接成功!“

Comm2。MousePointer=0

Form1。MousePointer=0

Timer1。Enabled=False

Ifi=Chr(0)Then

Text2。Text=“你是今天第一个进入本聊天室的客户。“+Chr(13)+Chr(10)

Else

Text2。Text=Text2。Text+i

EndIf

Text2。SelStart=Len(Text2。Text)

Send。MousePointer=0

Combo1。Enabled=False

Comm2。Caption=“断开连接“

Text1。SetFocus

EndSub

PrivateSuba_Error(ByValNumberAsInteger,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,CancelDisplayAsBoolean)

flag=False

Timer1。Enabled=False

Comm2。MousePointer=0

Form1。MousePointer=0

MsgBox“网络连接失败!“

Label3。Caption=“等待连接“

Combo1。Enabled=True

Combo1。SetFocus

a。Close

Comm2。Caption=“连接“

EndSub

[1][2]下一页