计算机系统设计及计算机网络专业毕业论文.pdfVIP

计算机系统设计

利用VB6Winsock空间创建TCP—IP客户机—服务器程

序

功能描述：利用Winsock编写基于TCP/IP的客户机服务器程序，实现网络的

通信。

服务器程序实现的过程：

（1）服务器程序必须设置好LOCAPORT属性，作为侦听端口，该值为一个整

数。

（2）使用LISTEN方法进入侦听状态，等待客户机程序的连接请求。

（3）客户机程序发出连接请求，使服务器程序产生CONNECTIONREQUEST

事件，该事件得到一个参数REQUESTID。

（4）服务器程序用ACCEPT方法接受客户机程序的REQUESTID请求。这样服

务器程序就可以用SENDDATA方法发送数据了。ACCEPT方法必须用上

一步得到的REQUESTID作为其参数。

（5）当服务器程序接收到数据时，产生DATAARRIVAL事件，参数

BYTESTOTAL包含接收到是数据字节数。在该事件中，可以用GETDATA

事件方法接收数据。

（6）如果接收到CLOSE事件，则用CLOSE方法关闭TCP/IP连接。

客户机程序的实现过程：

（1）客户机程序设置REMOTEHOST属性，以便指定运行服务器程序的主机

名，该字符串可在“控制面版|网络|标识|计算机名”中查到。

（2）设置REMOTEPORT属性，以便指定服务器程序的侦听端口。

（3）使用CONNECT方法，向服务器提出连接请求。

（4）服务器接受客户机程序的请求，客户机程序产生CONNECT事件，就可以

用SENDDATA方法发送数据了。

（5）当客户机程序接收到数据时，产生DATAARRIVAL事件，参数BYTESTOAL

包含接收到的数据字节数。在该事件中，可以用GETDATA方法接收数据。

（6）如果接收到CLOSE事件，则用CLOSE方法关闭连接。

服务端程序及图解：

SERVER端界面图：

*Command2聊天记录Command3发送Command4退出

程序：

PublicIsLongAsBoolean

PrivateSubCommand2_Click()

IfIsLong=FalseThen

Form1.Height=6990

IsLong=True

Else

Form1.Height=2900

IsLong=False

EndIf

EndSub

PrivateSubCommand3_Click()

DimsendtextAsString

sendtext=Text2.Text

Winsocks.SendDatasendtext

DimstrAsString

Text3.Text=Text3.Text+str+sendtext+(vbNewLine)

EndSub

PrivateSubCommand4_Click()

您真的要退出吗！？警告！

End

EndIf

EndSub

PrivateSubForm_Load()

Winsocks.LocalPort=1000

Winsocks.Listen

Text2.Visible=False

Text3.Visible=False

Form1.Height=3000

EndSub

PrivateSubText2_Change()

EndSub

PrivateSubText3_Change()

EndSub

PrivateSubWinsocks_ConnectionRequest(ByVal