Imports System.Net

Public Class Form1

    Dim client As WebClient = New WebClient()
    Dim rgb As Integer = 0
    Dim drag As Boolean
    Dim mousex As Integer
    Dim mousey As Integer
    Dim r As Integer = 254
    Dim g As Integer = 0
    Dim b As Integer = 0

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        TextBox1.ReadOnly = True

        client.Credentials = New NetworkCredential("talking", "1P@ssw0rd1213")
        Dim text3 As String = client.DownloadString("ftp://162.212.152.65/chatlog.txt")

        TextBox1.Text = text3

        Me.AcceptButton = Button1

        TextBox1.ForeColor = Color.FromArgb(255, 255, 255)
        TextBox1.SelectionStart = TextBox1.Text.Length

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        client.Credentials = New NetworkCredential("talking", "1P@ssw0rd1213")
        Dim text2 As String = client.DownloadString("ftp://162.212.152.65/chatlog.txt")

        TextBox1.Text = text2

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox2.Text <> "" Then
            If TextBox2.TextLength <= 120 Then
                client.Credentials = New NetworkCredential("talking", "1P@ssw0rd1213")
                Dim text As String = client.DownloadString("ftp://162.212.152.65/chatlog.txt") + vbNewLine + " User: SpookedOnion//   " + TextBox2.Text

                TextBox1.Text = text
                client.UploadString("ftp://162.212.152.65/chatlog.txt", text)

                TextBox2.Text = ""

                Button1.Enabled = False
                Timer3.Start()
            End If
        End If
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        If rgb = 0 Then
            If b = 0 Then
                If r <= 254 Then
                    r = r + 1
                Else
                    rgb = 1
                End If
            Else
                If r <= 254 Then
                    b = b - 1
                    r = r + 1
                Else
                    rgb = 1
                End If
            End If
        End If

        If rgb = 1 Then
            If g <= 254 Then

                r = r - 1
                g = g + 1

            Else

                rgb = 2

            End If
        End If

        If rgb = 2 Then

            If b <= 254 Then

                g = g - 1
                b = b + 1

            Else

                rgb = 0

            End If
        End If

        Panel1.BackColor = Color.FromArgb(r, g, b)

    End Sub

    Private Sub Panel2_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel2.MouseDown
        drag = True
        mousex = Cursor.Position.X - Me.Left
        mousey = Cursor.Position.Y - Me.Top
    End Sub

    Private Sub Panel2_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel2.MouseMove
        If drag Then
            Me.Top = Cursor.Position.Y - mousey
            Me.Left = Cursor.Position.X - mousex
        End If
    End Sub

    Private Sub Panel2_MouseUp(sender As Object, e As MouseEventArgs) Handles Panel2.MouseUp
        drag = False
    End Sub

    Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
        drag = True
        mousex = Cursor.Position.X - Me.Left
        mousey = Cursor.Position.Y - Me.Top
    End Sub

    Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
        If drag Then
            Me.Top = Cursor.Position.Y - mousey
            Me.Left = Cursor.Position.X - mousex
        End If
    End Sub

    Private Sub Panel1_MouseUp(sender As Object, e As MouseEventArgs) Handles Panel1.MouseUp
        drag = False
    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        If TextBox2.TextLength > 120 Then
            Label1.ForeColor = Color.FromArgb(255, 100, 0)
            Label1.Text = "Characters: " + Convert.ToString(TextBox2.TextLength) + "/120"
        Else
            Label1.ForeColor = Color.FromArgb(255, 255, 255)
            Label1.Text = "Characters: " + Convert.ToString(TextBox2.TextLength) + "/120"
        End If

        Dim allowed As String = ("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@#$%^&*()-=_+`~[]{};:'"",./<>?")
        For Each c As Char In TextBox2.Text
            If allowed.Contains(c) = False Then
                TextBox2.Text = TextBox2.Text.Remove(TextBox2.SelectionStart - 1, 1)
                TextBox2.Select(TextBox2.Text.Count, 0)
            End If
        Next

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub TextBox1_GotFocus(sender As Object, e As EventArgs) Handles TextBox1.GotFocus
        TextBox1.SelectionStart = TextBox1.Text.Length
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Button1.Enabled = True
        Timer3.Stop()
    End Sub
End Class