Achtung: Nicht von mir!

Code:
Dim defaultnickname As String

    Dim defaultchannel As String

     

    Private Sub Form_Load()

    defaultnickname = "hai"

    defaultchannel = "#darkmindz"

    Winsock1.RemoteHost = "irc.darkmindz.com"

    Winsock1.RemotePort = "6667"

    Winsock1.Connect

    End Sub

     

    Private Sub Winsock1_Connect()

    Winsock1.SendData "NICK " & defaultnickname & vbCrLf

    Winsock1.SendData "USER " & defaultnickname & " " & defaultnickname & " " & defaultnickname & " " & defaultnickname & " :" & defaultnickname & vbCrLf

    End Sub

     

    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

    Dim buffer As String

    Winsock1.GetData buffer

    RecievedData.Text = buffer & RecievedData.Text

    If InStr(buffer, "PING :") Then

    ping = buffer

    pingnumbers = Split(ping, "PING :")

    Winsock1.SendData "PONG :" & pingnumbers(1)

    Winsock1.SendData "JOIN " & defaultchannel & vbCrLf

    End If

    End Sub