VB 局域网简单聊天器.doc

Private Sub cmd_connect_Click() 取得远端机IP，并请求连接 SockClient.RemoteHost = txt_ip.Text SockClient.Connect End Sub Private Sub cmd_quit_Click() End End Sub Private Sub cmd_send_Click() 发送文本 Dim MySendData As String MySendData = txt_send.Text SockClient.SendData MySendData txt_send.Text = End Sub Private Sub cmd_end_Click() 发送退出请求，由服务器关闭 SockClient.SendData ~quit~ End Sub Private Sub Form_Load() 服务器开始监听 SockServer.Listen End Sub Private Sub SockClient_Close() 激活连接按钮 cmd_connect.Enabled = True txt_send.Text = txt_get.Text = End Sub Private Sub SockClient_Connect() MsgBox 连接成功, vbInformation, ok! 使连接按钮无效，避免错误 cmd_connect.Enabled = False End Sub Private Sub SockClient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) 出错后关闭 SockClient.Close End Sub Private Sub SockServer_Close() cmd_connect.Enabled = True End Sub Private Sub SockServer_ConnectionRequest(ByVal requestID As Long) 判断服务器不关闭时接受连接请求 If SockServer.State sckClosed Then SockServer.Close SockServer.Accept requestID End Sub Private Sub SockServer_DataArrival(ByVal bytesTotal As Long) Dim MyGetData As String 得到数据 SockServer.GetData MyGetData If MyGetData = ~quit~ Then SockServer.Close SockServer.Listen End If txt_get.Text = txt_get.Text Chr(13) Chr(10) MyGetData End Sub Private Sub Timer1_Timer() 不断的监控服务器和客户端状态 Select Case SockClient.State Case 0: StatusBar1.Panels(2) = 客户端关闭 Case 1: StatusBar1.Panels(2) = 客户端打开 Case 7: StatusBar1.Panels(2) = 客户端已经连接 End Select Select Case SockServer.State Case 0: StatusBar1.Panels(1) = 服务器关闭 Case 2: StatusBar1.Panels(1) = 服务器侦听 Case 7: StatusBar1.Panels(1) = 服务器已经连接 End Select End Sub Private Sub txt_get_Change() End Sub Private Sub txt_send_