Visual-Basic-60实现网络通讯程序设计.docVIP

Visual-Basic-60实现网络通讯程序设计

3.在窗体是添加三个TextBox控件，其名称分别为txtServerIP，txtSend和txtReceive。

4.在窗体上添加一个Winsock控件，将其Protocol（协议）属性设置为0（即sckTCPProtocol）。

服务器端的源代码：

PrivateSubForm_Load()

设置侦听端口

WinsockServer.LocalPort=10001

读取服务器的IP地址

txtServerIP.Text=WinsockServer.LocalIP

开始侦听

WinsockServer.Listen

EndSub

PrivateSubCommand1_Click()

点击“退出”按钮后关闭应用程序

UnloadMe

EndSub

PrivateSubCommand2_Click()

只要txtSend文本框的内容写好以后就由WinsockServer控件发送

WinsockServer.SendDatatxtSend.Text

EndSub

PrivateSubWinsockServer_ConnectionRequest(ByValrequestIDAsLong)

当收到连接请求时，Winsock处于侦听状态

此时应该使用Close方法关闭Winsock，然后使用Accept方法接受连接请求

WinsockServer.Close

WinsockServer.AcceptrequestID

EndSub

PrivateSubWinsockServer_DataArrival(ByValBytesTotalAsLong)

当客户端有信息发送来时，利用WinsockServer控件的GatData方法读取数据

并将其显示在txtReceive文本框中

DimMyStrAsString

WinsockServer.GetDataMyStr

txtReceive.Text=MyStr

EndSub

运行界面如下图：

客户端的界面设计

1.创建一个新的“标准EXE”工程，并添加Winsock控件。

2.将Form1的名称改为Form_Load()，并在其中添加两个命令按钮（Command1的Caption属性为“退出”，Command2的Caption属性为“连接服务器”，Command3的Caption属性为“发送”）。

3.在窗体是添加四个TextBox控件，其名称分别为txtClientIP，txtServerIP，txtSend和txtReceive。

4.在窗体上添加一个Winsock控件，将其Protocol（协议）属性设置为0（即sckTCPProtocol）。

客户端的源代码：

PrivateSubForm_Load()

设置聊天服务器的侦听端口

WinsockClient.RemotePort=10001

读取本机的IP地址

txtClientIP.Text=WinsockClient.LocalIP

EndSub

PrivateSubCommand1_Click()

点击“退出”按钮后关闭应用程序

UnloadMe

EndSub

PrivateSubCommand2_Click()

根据txtServerIP文本框中输入的服务器IP，连接聊天服务器

WinsockClient.RemoteHost=txtServerIP.Text

WinsockClient.Connect

EndSub

PrivateSubCommand3_Click()

输入txtSend文本框的内容后由WinsockServer控件发送

WinsockClient.SendDatatxtSend.Text

EndSub

PrivateSubWinsockClient_Connect()

如果与服务器连接成功，则向用户提供下列信息

MsgBox你成功地与聊天服务器进行了连接,vbInformation

EndSub

PrivateSubWinsockClient_DataArrival(ByValBytesTotalAsLong)

当服务器有信息发送来时，利用WinsockClient控件的GatData方法读取数据

并将其显示在txtReceive文本框中

DimMyStrAsString

WinsockClient.GetDataMyStr

txtR