【正文】 Chr(10)End SubPrivate Sub Timer1_Timer()If connecting_Time connect_OutTime Then connecting_Time = connecting_Time + 1 Exit Sub End If If = 7 Then = False Exit Sub Else Unload Me MsgBox 連接服務(wù)器失敗！, 0 + 16 + 0, 聊天室客戶端 = True End IfEnd SubPrivate Sub VScroll1_Change()ChangHeight = Hig = + ChangHeight * (4560 / 19)Hig = End Sub：模塊Public userName As StringPublic Msgnum As IntegerPublic ServerIP As StringPublic connecting_Time As IntegerPublic connect_OutTime As IntegerPublic Function ReadServerIP(filename As String) As String Dim ss As String cs = ss = Open filename For Input As 1 Line Input 1, ss Close 1 ReadServerIP = Mid(ss, 2, Len(ss) 2)End Function。 s amp。 amp。 amp。Unload Me Exit Sub End If If InStr(1, s, SystemOrder:addtolist) = 1 Then s = Right(s, Len(s) 21) 39。 連接超時時限為3秒 = ServerIP = 1000 Call ConnectServer 所有人 = 0 End SubPrivate Sub Form_Unload(Cancel As Integer) End SubPrivate Sub HScroll1_Change() = 50 * 10End Sub Private Sub sckClient_Close() MsgBox 服務(wù)器通道已關(guān)閉！, 0 + 16 + 0, 聊天室客戶端 End End Sub Private Sub sckClient_Connect() userName If InStr(1, userName, *) = 1 Then userName = Right(userName, Len(userName) 1) End If End Sub Private Sub sckClient_DataArrival(ByVal bytesTotal As Long) Dim s As String Msgnum = Msgnum + 1 s 39。 Msgnum = 0 connecting_Time = 0 39。 DoEvents End If = Else = MsgBox 很抱歉，你被管理員禁言！ End If End SubPrivate Sub cmdCls_Click() = = 4680 = 50 = 19 = 19 Hig = 19 con = 0End SubPrivate Sub cmdExit_Click() Unload MeEnd SubPrivate Sub Command1_Click() End Sub Private Sub Form_Load() = userName Hig = 19 39。 recUser amp。 amp。 amp。 DoEvents Else amp。 recUser amp。 amp。 If = 0 Or = 所有人 Then amp。 \) MsgBox (！) Else MsgBox (,安裝失敗!) End IfEnd IfEnd SubPrivate Sub Image1_Click()End SubPrivate Sub SetIP_Click() End Sub：服務(wù)器IP設(shè)置窗體Private Sub cmdOK_Click() WriteServerIP () Unload MeEnd SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Function WriteServerIP(filename As String) As String Dim ss As String Open filename For Output As 1 Write 1, Close 1 End FunctionPrivate Sub Form_Load() = ReadServerIP()End Sub：客戶端聊天室窗體Dim n As IntegerDim Hig As LongDim con As IntegerPrivate Sub ConnectServer()On Error GoTo ErrorPro Exit SubErrorPro: MsgBox 服務(wù)器未開或網(wǎng)絡(luò)出錯！ EndEnd Sub Private Sub cmdSend_Click() Dim recUser As String If n 1 Then recUser = If 所有人 Then recUser = amp。設(shè)置用戶狀態(tài)為離線 Call AddToText1(S) End IfEnd Sub：模塊Public MaxChan As Integer 客戶端：登錄窗體Dim fso As New FileSystemObjectDim fil As FilePrivate Sub Command1_Click() ServerIP = ReadServerIP() userName = Trim() If userName = Then MsgBox 姓名不能為空！ Exit Sub End If Load frmClient = FalseEnd SubPrivate Sub Form_Load() Dim filepath As String sysfilepath = (1)If (sysfilepath amp。清除退出者姓名記錄 userIP(index) = 39。 user(index)) For i = 0 To 1 If (i) = user(index) Then Exit For Next i 39。 user(index) amp。 user(index) amp。 user(index) amp。 user(index) amp。 zxrs amp。State0 非正常終止 Dim S As String sckServer(index).Close If userState(index) 0 Then zxrs = zxrs 1 39。 Chr(10)End SubPrivate Sub VScroll1_Change()ChangHeight = Hig = + ChangHeight * (5760 / 24)Hig = End SubPrivate Function FindSckIndex(UserName As String) For i = 0 To MaxChan 1 If user(i) = UserName Then Exit For Next FindSckIndex = iEnd FunctionPrivate Function checkUserIP(IP As String) As Integer checkUserIP = 0 For i = 0 To MaxChan 1 If userIP(i) = IP Then checkUserIP = 1 Exit For End If NextEnd FunctionPrivate Function checkUserName(UserName As String) As Integer checkUserName = 0 For i = 0 To MaxChan 1 If user(i) = UserName Then checkUserName = 1 Exit For End If NextEnd FunctionPrivate Sub Stop_sckServer(index As Integer, State As Integer) 39。 S amp。利用winsock的State屬性給所有連接在服務(wù)器上的客戶發(fā)消息Private Sub SendToAll(msg As String) For i = 0 To MaxChan 1 If sckServer(i).State = 7 Then sckServer(i).SendData Trim(msg) DoEvents End If Next iEnd Sub39。將所發(fā)信息也寫入服務(wù)器 Call AddToText1(S)End SubPrivate Sub sckServer_Error(index As Integer, ByVal Number As Integer, Description As String, _ ByVal Scode As Long, ByVal