[转帖]VB聊天程序

secowu · 发表于 2005-11-10 01:30:00

好几天没写什么东西给大家看了，今天地没什么好写的（技术也没有多高，只给写几个烂程序，大家就这样看吧）就写一个简单的聊天程序吧。不过大家可以改成一个远程控制程序，一会就让大家知道了，好了不多说了！以后用我的习惯，直接写出代码，慢慢看啊！！

Private Sub cmd_connect_Click()

连接

SockClient.RemoteHost = txt_ip.Text

SockClient.Connect

End Sub

Private Sub cmd_quit_Click()

退出

　　SockClient.Close

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

End If

txt_get.Text = txt_get.Text & Chr(13) & Chr(10) & Time & 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_send_KeyPress(KeyAscii As Integer)

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

If KeyAscii = 13 Then

cmd_send_Click

End If

End Sub

不知道大家有没有看到这段

If MyGetData = "quit" Then

      SockServer.Close

      SockServer.Listen

      End

End If

　　向对方发送quit指令，就会退出聊天程序，但是当我们发送如果不是quit而是别的呢？比如说是"重起"."关机"......哈哈！！大家想到了吧，怎么做就是大家的事了，你们就看这办吧！不懂的大家可以交流一下。