Private Sub Winsock1_Connect()
Label1.Caption = "Dang Ket Noi Nick Bot."
Winsock1.SendData Get_Key(Text1)
End Sub
----------------------------------------------------------------------------------------------
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String, ChallengeString As String
Winsock1.GetData Data
Select Case Asc(Mid(Data, 12, 1))
Case Is = 87
ChallengeString = Split(Data, "94À€")(1)
 ChallengeString = Split(ChallengeString, "À€")(0)
 getencrstrings Text1, Text2, ChallengeString, Crypt(0), Crypt(1), 1
 Winsock1.SendData Login(Text1.Text)
 SessionKey = Mid(Data, 17, 4)
Case Is = 84
 Label1.Caption = "Sai ID/Pass Nick Bot!"
 Winsock1.Close
Case Is = 85
 Label1.Caption = "Nick Bot Da Ket Noi."
     If Winsock1.State = sckConnected Then
        Winsock1.SendData BotStatus(Text1, "Visit Yahoo-69 www.vnpower.org")
      End If

 End Select
Debug.Print Asc(Mid(Data, 12, 1)) & " - " & Data
End Sub
----------------------------------------------------------------------------------------------
Private Sub Winsock1_sonic(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)
Label1.Caption = "Error"
Winsock1.Close
End Sub