【正文】 reList Then If Word(ServerCommand, 1) = .AddIgnore Then Word(ServerCommand, 2) If Word(ServerCommand, 1) = .Connected Then = 改變用戶名和密碼... Dim Temp2 As String If = 1 Then Temp2 = Yes Else Temp2 = No End If .login amp。 amp。 amp。 amp。 amp。 Temp2 End If If Word(ServerCommand, 1) = .LogOff Then = 登錄 = False = False = False = 離線 = False = False End If If Word(ServerCommand, 1) = .AlreadyOnList Then MsgBox 這個(gè)用戶名已經(jīng)存在! End If If Word(ServerCommand, 1) = .UserInfo Then Dim NewfrmInfo As New frmInfo = Info on amp。 RemoteNick = Word(ServerCommand, 2) = Word(ServerCommand, 3) = Word(ServerCommand, 4) = Word(ServerCommand, 5) = Word(ServerCommand, 6) = MidWord(Replace(ServerCommand, //crlf\\, vbCrLf), 7, Val(Words(ServerCommand)) 7) = Word(ServerCommand, Words(ServerCommand)) End If If Word(ServerCommand, 1) = .SendFile Then FileSendRemoteIP = Word(ServerCommand, 2) On Error Resume Next = True If = Then Exit Sub .RecieveFile amp。 FileSendRemoteNick sendFile_01 , , FileSendRemoteIP, 1982, End If If Word(ServerCommand, 1) = .RecieveFile Then receiveFile_01 Word(ServerCommand, 2), 1983 End If If Word(ServerCommand, 1) = .RemoveBuddy Then On Error Resume Next For i = 1 To If InStr(1, (i).Key, Word(ServerCommand, 2)) Then i Exit For End If Next End If If Word(ServerCommand, 1) = .LoginGood Then = 進(jìn)入服務(wù)器... Unload Connect .status Online = 在線 = True = True = True = True = True = True mnuOtherChatFile = True = True = True = True = True = True = False = False = False DoEvents .getbuddys = True ElseIf Word(ServerCommand, 1) = .LoginBad Then Dim reason As String reason = MidWord(ServerCommand, 4, Words(ServerCommand) 4) = 哦... = 看起來(lái) If Word(ServerCommand, 2) = 0 Then = amp。 您的數(shù)據(jù)找不到！請(qǐng)重新輸入您的用戶名！ ElseIf Word(ServerCommand, 2) = 1 Then = amp。 您的密碼錯(cuò)誤！請(qǐng)重新輸入! ElseIf Word(ServerCommand, 2) = 2 Then = amp。 您的輸入因 amp。 reason amp。 .而臨時(shí)受禁止!還剩下 amp。 Word(ServerCommand, 3) amp。 天的時(shí)間. ElseIf Word(ServerCommand, 2) = 3 Then = amp。 您的數(shù)據(jù)因 amp。 reason amp。 而受禁止. ElseIf Word(ServerCommand, 2) = 4 Then = amp。 您的數(shù)據(jù)因 amp。 reason amp。 而被凍結(jié). ElseIf Word(ServerCommand, 2) = 5 Then = amp。 服務(wù)器過(guò)載,請(qǐng)稍候再試! ElseIf Word(ServerCommand, 2) = 6 Then = amp。 這個(gè)用戶名已經(jīng)存在! ElseIf Word(ServerCommand, 2) = 7 Then = amp。 服務(wù)器已關(guān)閉! End If = vbBlack = vbBlack = True = True = True = 關(guān)閉 ElseIf Word(ServerCommand, 1) = .msg Then Dim NewReponseMessage As New GotMessage ownerform:=Me = 信息來(lái)自 amp。 Trim(Replace(Word(ServerCommand, 3), , )) = Trim(Replace(Word(ServerCommand, 3), , )) amp。 ( amp。 Trim(Word(ServerCommand, 2) amp。 )) = Trim(Word(ServerCommand, 2)) = Trim(Replace(Word(ServerCommand, 3), , )) = Trim(Replace(SplitString(ServerCommand, ..//..), //crlf\\, vbCrLf)) ElseIf Word(ServerCommand, 1) = .pushbuddyupdate Then On Error Resume Next For i = 1 To If InStr(1, (i).Key, Word(ServerCommand, 2)) Then (i).Image = Word(ServerCommand, 3) (i).SelectedImage = Word(ServerCommand, 3) Exit For End If Next ElseIf Word(ServerCommand, 1) = .pushbuddy Then Dim BuddyUserID Dim BuddyUserTitle 39。MsgBox ServerCommand BuddyStatus = Word(ServerCommand, 2) BuddyUserID = Word(ServerCommand, 3) BuddyUserTitle = SplitString(ServerCommand, Word(ServerCommand, 3)) 39。MsgBox Server pushed user amp。 SplitString(ServerCommand, .pushbuddy) amp。 to me! On Error Resume Next , tvwChild, BuddyUserID, BuddyUserTitle, BuddyStatus, BuddyStatus End If If Word(ServerCommand, 1) = .ClearBuddys Then End If If Word(ServerCommand, 1) = .msg2 Then ownerform:=Me = 由 amp。 Word(ServerCommand, 2) amp。 發(fā)來(lái)的消息! = Word(ServerCommand, 2) = Word(ServerCommand, 2) = Word(ServerCommand, 2) = MidWord(ServerCommand, 3, Words(ServerCommand)) End If If Word(ServerCommand, 1) = .ServerMessage Then MsgBox 服務(wù)器消息: amp。 MidWord(ServerCommand, 2, Words(ServerCommand)) End IfEnd IfExit SubDoNothing: If = cdlCancel Then Exit Sub Else MsgBox End IfEnd Sub 39