Const Server As String = "irc.irc-mania.de" 'Definiert den Server wo wir später 
' drauf Connecten möchten.
Const Port As Integer = 6667 'Definiert den Server Port Standart ist bei Irc 
' 6667.
Const Channel As String = "#Michaschat" 'Definiert den Channel in welchen der 
' Bot soll.
Const Nick As String = "GAGA" 'Definiert den Nicknamen von dem Bot.
 
 
Private Sub Command1_Click()
sckIRC.Connect Server, Port 'Baut eine Verbindung zu dem Server mit dem Port 
' auf die wir vorher festgelegt haben.
End Sub
 
 
 
Private Sub sckIRC_Connect()
Dim UserName, RealName As String ' Definiert die 2 Variablen UserName und 
' RealName als String Variable.
UserName = Nick ' Ordnet der Variable UserName den Inhalt der Variable Nick zu.
RealName = Nick ' Ordnet der Variable RealName den Inhalt der Variable Nick zu.
 
sckIRC.SendData "USER " & UserName & " 0 * " & RealName & vbCrLf ' Sendet an 
' den Server die User Daten die der Server zum Verbindet verlangt.
sckIRC.SendData "NICK " & Nick & vbCrLf ' Sendet den gewünschten NickName an 
' den Server.
End Sub
 
 
Private Sub sckIRC_DataArrival(ByVal bytesTotal As Long)
Dim strData As String ' Definiert die Variable strData als String.
sckIRC.GetData strData ' Die einkommenden Daten werden in der Variablen strData 
' Gespeichert.
DoEvents ' Führt die nachfolgenden Befehle aus.
 
If InStr(strData, "PING") <> 0 Then ' Wenn der Server wie oben schon PING sendet.
sckIRC.SendData Replace(strData, "PING", "PONG") & vbCrLf ' Antworten wir ? 
' Richtig!.. PONG :>
End If ' Oder wir werden Disconnected T_T
 
If strData Like "*376*" Then ' Wenn der Server 376 sendet , kann man im RFC von 
' IRC nachlesen ist das Ende der MOTD
sckIRC.SendData "JOIN " & Channel & vbCrLf ' Betretten wir den Channel weil wir 
' wissen wenn die MOTD zu Ende ist sind wir sicher aufm dem Server verbunden.
End If
End Sub

Private Sub Command2_Click()
sckIRC.SendData Channel & "df"
End Sub