计算机实验代码.doc.docVIP

用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.Listen End Sub Private Sub Txtfs_Change() Winsockfwq.sendData Txtfs.Text End Sub Private Sub Winsockfwq_Close() Winsockfwq.Close End End Sub Private Sub Winsockfwq_ConnectionRequest(Byvalrequestld As Long) Txtfs.Visible=True Txtjs.Visible=True If Winsockfwq.StateSckclosed Then Winsockfwq.close Winsockfwq.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主窗体 Winsock1 Winsock 连接控件 Label1 Label CONNECT WITH IP标签 Label2 Label LOCAL PORT标签 Label3 Label REMOTE PORT标签 txtRemoteIP TextBox 远程IP地址输入框 txtLocalPort TextBox 本地PORT输入框 txtRemotePort TextBox 远程PORT输入框 cmdConnect Comman