用VB开发局域网聊天程序初步.docVIP

用VB开发局域网聊天程序初步 利用VB6提供的winsock控件开发 （1）Client客户端 参考代码： Private Sub Command3_Click 输入txtSend文本框的内容后由WinsockServer控件发送 WinsockClient.SendData txtSend.Text End Sub Private Sub Form_Load 设置聊天服务器的侦听端口 WinsockClient.RemotePort 10001 读取本机的IP地址 txtClientIP.Text WinsockClient.LocalIP End Sub Private Sub Command1_Click 点击“退出”按钮后关闭应用程序 Unload Me End Sub Private Sub Command2_Click 根据txtServerIP文本框中输入的服务器IP，连接聊天服务器 WinsockClient.RemoteHost txtServerIP.Text WinsockClient.Connect End Sub Private Sub WinsockClient_Connect 如果与服务器连接成功，则向用户提供下列信息 MsgBox 你成功地与聊天服务器进行了连接, vbInformation End Sub Private Sub WinsockClient_DataArrival ByVal BytesTotal As Long 当服务器有信息发送来时，利用WinsockClient控件的GatData方法读取数据 并将其显示在txtReceive文本框中 Dim MyStr As String WinsockClient.GetData MyStr txtReceive.Text MyStr End Sub （2）Server服务器端 参考代码： Private Sub Form_Load 设置侦听端口 WinsockServer.LocalPort 10001 读取服务器的IP地址 TxtServerIP.Text WinsockServer.LocalIP 开始侦听 WinsockServer.Listen End Sub Private Sub Command1_Click 点击“退出”按钮后关闭应用程序 Unload Me End Sub Private Sub Command2_Click 只要txtSend文本框的内容写好以后就由WinsockServer控件发送 WinsockServer.SendData TxtSend.Text End Sub Private Sub WinsockServer_ConnectionRequest ByVal requestID As Long 当收到连接请求时，Winsock处于侦听状态 此时应该使用Close方法关闭Winsock，然后使用Accept方法接受连接请求 WinsockServer.Close WinsockServer.Accept requestID End Sub Private Sub WinsockServer_DataArrival ByVal BytesTotal As Long 当客户端有信息发送来时，利用WinsockServer控件的GatData方法读取数据 并将其显示在txtReceive文本框中 Dim MyStr As String WinsockServer.GetData MyStr TxtReceive.Text MyStr End Sub