Anonymous

Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ws.RemotePort = 6667
        ws.RemoteHost = "irc.swiftirc.net"
        ws.Connect()
    End Sub

    Private Sub ws_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ws.ConnectEvent
        ws.SendData("USER VBCode x x VBCode" + vbCrLf)
        ws.SendData("NICK VBCode" + vbCrLf)
    End Sub

    Private Sub ws_DataArrival(ByVal sender As System.Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles ws.DataArrival
        Dim data As String = ""
        ws.GetData(data)
        ListBox1.Items.Add(regex.Replace(data, vbCrLf, vbNewLine))
        If data.Contains("001") Then
            ws.SendData("JOIN #Justchat" + vbCrLf)
        End If
        If get_line(data) = ".cookie" Then
            ws.SendData("PRIVMSG #Justchat 4YES PLEASE" + vbCrLf)
            ListBox1.Items.Add("4YES PLEASE" + vbCrLf)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ws.SendData("PRIVMSG #Justchat " + TextBox1.Text + vbCrLf)
        ListBox1.Items.Add(TextBox1.Text)
    End Sub

    Function get_line(ByVal raw As String) As String
        Dim a() As String = raw.Split(":")
        Return a(2).Replace(vbCrLf, "")
    End Function

    Function get_nick(ByVal raw As String) As String
        Dim b() As String = raw.Split(":")
        Dim c() As String = b(1).Split("!")
        Return c(0)
    End Function

    Function get_chan(ByVal raw As String) As String
        Dim d() As String = raw.Split(" ")
        Return d(2)
    End Function

    Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Return Then
            ws.SendData("PRIVMSG #Justchat " + TextBox1.Text + vbCrLf)
            ListBox1.Items.Add(TextBox1.Text)
            TextBox1.Text = ""
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ws.SendData("WHOIS " + TextBox1.Text + vbCrLf)
    End Sub
End Class