Anonymous

Private Sub btnSend_Click()
Dim newtext As String
newtext = txtIRC.Text
sckIRC.SendData txtIRC.Text
rtbIRC.Text = rtbIRC & newtext
rtbIRC.Refresh
txtIRC.Text = ""
End Sub
Private Sub sckIRC_DataArrival(ByVal bytestotal As Long)
Dim dat As String
    
sckIRC.GetData dat, vbString
If InStr(dat, "PING") = 1 Then
    sckIRC.SendData "PONG " & Split(dat, " ")(1)
End If
    
rtbIRC = rtbIRC & "Server: " & dat & vbCrLf

End Sub


Private Sub Form_Load()
sckIRC.Close
sckIRC.RemoteHost = "66.252.27.202"
sckIRC.RemotePort = "6667"
sckIRC.Protocol = sckTCPProtocol
sckIRC.localport = "6667"

sckIRC.Connect
rtbIRC.Text = "Host: " & sckIRC.RemoteHost & ":" & sckIRC.RemotePort & " " & sckIRC.RemoteHostIP & " Connected Return Value: " & sckIRC.State
rtbIRC.Refresh
frmIRC.Caption = "IRC - Connecting to: " & sckIRC.RemoteHost & ":" & sckIRC.RemotePort
End Sub

Private Sub sckIRC_connect()
On Error GoTo fuckup

 With sckIRC
    .SendData "NICK CORDY" & vbCrLf
    .SendData "USER TEST TEST TEST TEST TEST" & vbCrLf
 End With
 
fuckup:
 MsgBox "FUCK UP DETECTED."
End Sub