IRC connect

Dim defaultnickname as string


Dim defaultchannel as string


     

    Private Sub Form_Load()

    defaultnickname = "person"

    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