Stuff

#Region "IRC"
    Private Sub Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectIRC.Click
        ws.RemotePort = "8080"
        ws.RemoteHost = "darklite.be.eu.swiftirc.net"
        ws.Connect()
    End Sub

    Private Sub ws_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ws.SendData("USER " + TextBox1.Text + " x x " + TextBox1.Text + vbCrLf)
        ws.SendData("NICK " + TextBox1.Text + 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)
        If data.Contains("001") Then
            ws.SendData("JOIN #Justchat" + vbCrLf)
        End If
        If data.Contains("justchat") Then
            BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ")" + "  <" + get_nick(data) + "> " + get_line(data)
        ElseIf data.Contains("AUTH") Then
            StatusMessages.Text = StatusMessages.Text + vbNewLine + "(" + TimeString + ")" + "  <" + get_nick(data) + "> [MESSAGE]" + get_line(data)
        ElseIf data.Contains("NOTICE") Then
            PMMessages.Text = PMMessages.Text + vbNewLine + "(" + TimeString + ")" + "  <" + get_nick(data) + "> [NOTICE]" + get_line(data)
        ElseIf data.Contains("PRIVMSG " + TextBox1.Text) Then
            PMMessages.Text = PMMessages.Text + vbNewLine + "(" + TimeString + ")" + "  <" + get_nick(data) + "> [PM]" + get_line(data)
        Else
            StatusMessages.Text = StatusMessages.Text + vbNewLine + "(" + TimeString + ")" + "  <" + get_nick(data) + "> " + get_line(data)
        End If
        Dim ping() As String = data.Split(" ")
        If ping(0) = "PING" Then
            ws.SendData("PONG :" + ping(1) + vbCrLf)
            StatusMessages.Text = StatusMessages.Text + vbNewLine + ("PONG :" + ping(1) + vbCrLf)
        End If
    End Sub
    Private Sub BsKToBeSent_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles BsKToBeSent.KeyDown
        If e.KeyCode = Keys.Return Then
            Dim what() As String = BsKToBeSent.Text.Split(" ")
            If what(0) = "/notice" Then
                ws.SendData("NOTICE " + Regex.Replace(BsKToBeSent.Text, what(0), ""))
                BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ") " + "***Notice to " + Regex.Replace(BsKToBeSent.Text, what(0), "")
                BsKToBeSent.Text = ""
            ElseIf what(0) = "/msg" Then
                ws.SendData("PRIVMSG " + Regex.Replace(BsKToBeSent.Text, what(0), ""))
                BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ") " + "***PM to " + Regex.Replace(BsKToBeSent.Text, what(0), "")
                BsKToBeSent.Text = ""
            ElseIf what(0) = "/me" Then
                ws.SendData("ACTION #clanbsk " + Regex.Replace(BsKToBeSent.Text, what(0), ""))
                BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ") " + TextBox1.Text + Regex.Replace(BsKToBeSent.Text, what(0), "")
                BsKToBeSent.Text = ""
            Else
                ws.SendData("PRIVMSG #Justchat " + BsKToBeSent.Text + vbCrLf)
                BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ") " + "<" + TextBox1.Text + ">" + BsKToBeSent.Text
                BsKToBeSent.Text = ""
            End If
        End If
    End Sub
#End Region
#Region "Functions"
    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
#End Region