计算机实验代码.docxVIP

用WINSOCK控件编写聊天程序 在工具箱中增加Winsock控件，选中 “Microsoft Winsock Control 6.0” 1、 设计Tcp服务器程序 在窗体中加入一个Winsock控件，取名Winsockfwq Txtfs (发送)文本框 Txtjs (接收)文本框 Cmdexit (退出)按钮 Private Sub Cmdexit_click() End End Snd Private Sub Form_Load() Txtfs.Visible=False Txtjs.Visible=False Winsockfwq.LocalPort=1001 Winsockfwq.Liste n End Sub Private Sub Txtfs_Change() Winsockfwq.sendData Txtfs.Text End Sub Private Sub Winsockfwq_Close() Win sockfwq.Close End End Sub Private Sub Winsockfwq_ConnectionRequest(Byvalrequestld As Long) Txtfs. Visible=True Txtjs. Visible=True If Winsockfwq.StateoSckclosed Then Winsockfwq.close Win sockfwq.Acceptrequested End Sub Private Sub Winsockfwq_DataArrival(ByvalbytesTotal As Long) Dim tmPstr As String Winsockfwq.GetData tmPstr Txtjs.Text=tmPstr End Sub 2、 设计Tcp客户端程序 在窗体中加入Winsock,取名为Winsockkhd Txtzjm （主机名）文本框 Txtfs （发送） 文本框 Txtjs （接收） 文本框 Cmdexit （退出） 按钮 Cmdlj （连接） 按钮 Private Sub Cmdlj_Click() Winsockkhd.Connect End Sub Private Sub Cmdexit_Click() End End Sub Private Sub Form_Load() Txtfs.Visble=False Txtjs.Visible=False Winsockkhd. RemotePort=1001 Winsockkhd. RemoteHost=”0” End Sub Private Sub Txtzjm_Change() Winsockkhd. RemoteHost=Txtzjm.Text End Sub Private Sub Txtfs_Change() Winsockkhd.SendData Txtfs.Text End Sub Private Sub Winsockkhd_Close() Winsockkhd.Close End End Sub Private Sub Winsockkhd_DataArrval(ByvalbytesTotal As Long) Dim tmPstr As String Winsockkhd.GetData tmPstr Txtjs.Text=tmPstr End Sub Option Explicit Private IgnoreText As Boolean * 各控件说明 ■名称 类型 作用 ?frmMain Form CHAT 主窗体 Winsockl Winsock 连接控件 *Label1 Label CONNECT WITH IP 标签 *Label2 Label LOCAL PORT 标签 *Label3 Label REMOTE PORT 标签 txtRemotelP TextBox远程IP地址输入框 txtLocalPort TextBox 本地 PORT 输入框 txtRemotePort TextBox 远程 PORT 输入框 cmdConnect CommandButton 连接 CONNECT 按钮 Label4 Label Type your text and hit Enter to send it.标签 Framel (remoteip) Frame REMOTE IP 框架 Frame2(host ip) Frame HOST IP 框架 *Text1 TextBox显示对方(远程主机)发送的CHAT内容 Text2 TextBox输入己方(本地主机)要发送的CHAT内容，按ENTER键发送 cmdClear CommandButton清空输入框