VB 局域网简单聊天器

Private Sub cmd_connect_Click()

 取得远端机IP，并请求连接

End Sub

Private Sub cmd_quit_Click()

End Sub

Private Sub cmd_send_Click()

 发送文本

End Sub

Private Sub cmd_end_Click()

 发送退出请求，由服务器关闭

End Sub

Private Sub Form_Load()

 服务器开始监听

End Sub

Private Sub SockClient_Close()

 激活连接按钮

End Sub

Private Sub SockClient_Connect()

 连接成功", vbInformation, "ok!"

 使连接按钮无效，避免错误

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)

 出错后关闭

End Sub

Private Sub SockServer_Close()

End Sub

Private Sub SockServer_ConnectionRequest(ByVal requestID As Long)

 判断服务器不关闭时接受连接请求

End Sub

Private Sub SockServer_DataArrival(ByVal bytesTotal As Long)

 得到数据

End Sub

Private Sub Timer1_Timer()

 不断的监控服务器和客户端状态

 客户端关闭"

 客户端打开"

 客户端已经连接"

 服务器关闭"

 服务器侦听"

 服务器已经连接"

End Sub

Private Sub txt_get_Change()

End Sub

Private Sub txt_send_KeyPress(KeyAscii As Integer)

 发现按下回车键时就发送文本

End If

End Sub