Anonymous

    Private Sub ws_DataArrival(ByVal sender As System.Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent)
        Dim data As String = ""
        If data.Contains("justchat") Then
            BsKMessages.Text = BsKMessages.Text + vbNewLine + ("(" + TimeString + ")" + "  <" + get_nick(data) + "> " + 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
        If data.Contains("001") Then
            ws.SendData("JOIN #Justchat" + vbCrLf)
        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 Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectIRC.Click
        If ConnectIRC.Text = "Connect" Then
            ws.RemotePort = 6667
            ws.RemoteHost = "darklite.be.eu.SwiftIRC.net"
            ws.Connect()
            ConnectIRC.Text = "Disconnect"
        ElseIf ConnectIRC.Text = "Disconnect" Then
            ws.SendData("QUIT BsK Client - download now!")
            StatusMessages.Text = ""
            ConnectIRC.Text = "Connect"
        End If
    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 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