saw

Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Net
Imports System.Net.Security
Imports System.Net.Sockets
Imports System.Runtime.CompilerServices
Imports System.Security.Cryptography
Imports System.Security.Cryptography.X509Certificates
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Threading
Imports System.Web
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Public Class Form1

    Private OFF As Boolean

    Private OFF2 As Boolean

    Private m1 As String

    Private c1 As String

    Private lgcsrftoken As String

    Private lgsessionid As String

    Private lgds_user As String

    Private lgmid As String

    Private point_0 As Point

    Private lgds_user_id As String

    Private cook As String

    Private iu As String

    Private ip As String

    Private logged_in As Boolean

    Private Email As String

    Private Bio As String

    Private External As String

    Private Phone As String

    Private bool_0 As Boolean

    Private Bio0 As String

    Private csrftoken As String

    Private resc As Integer

    Private once As Integer

    Private tr2 As Thread

    Public Sub New()
        AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)
        Me.resc = 0
        Me.once = 0
        Me.InitializeComponent()
    End Sub

    Public Function Edit() As Boolean
        ' The following expression was wrapped in a checked-statement
        Dim result As Boolean
        While True
            Try
                Dim text As String = Guid.NewGuid().ToString()
                Dim text2 As String = String.Concat(New String() {"{""gender"":""3"",""_csrftoken"":""", Me.lgcsrftoken, """,""_uuid"":""", text, """,""_uid"":""", Me.lgds_user_id, """,""external_url"":""", Me.External, """,""username"":""", Me.TextBox5.Text, """,""email"":""", Me.Email, """,""phone_number"":""", Me.Phone, """,""biography"":""", Me.Bio0, """,""first_name"":""Turbo.E @5f5""}"})
                Dim text3 As String = "signed_body=" + WebUtility.UrlEncode(Me.Code(text2) + "." + text2) + "&ig_sig_key_version=4"
                Dim expression As String = String.Concat(New String() {"POST /api/v1/accounts/edit_profile/ HTTP/1.1" & vbCrLf & "Host: i.instagram.com" & vbCrLf & "Accept: */*" & vbCrLf & "Accept-Encoding: gzip, deflate" & vbCrLf & "Accept-Language: en;q=1, fr;q=0.9, de;q=0.8, zh-Hans;q=0.7, zh-Hant;q=0.6, ja;q=0.5" & vbCrLf & "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & vbCrLf & "Content-Length: ", Conversions.ToString(Encoding.ASCII.GetBytes(text3).Length), vbCrLf & "X-IG-Capabilities: 3Q==" & vbCrLf & "User-Agent: Instagram 9.7.0 Android" & vbCrLf & "Cookie: ", Me.cook, vbCrLf & vbCrLf, text3})
                Dim tcpClient As TcpClient = New TcpClient()
                tcpClient.Connect("i.instagram.com", 443)
                tcpClient.ReceiveBufferSize = 5000
                tcpClient.SendTimeout = 5000
                Dim obj As Object = New SslStream(tcpClient.GetStream(), False, Function(a0 As Object, a1 As X509Certificate, a2 As X509Chain, a3 As SslPolicyErrors) Me.thessl(), Nothing)
                NewLateBinding.LateCall(RuntimeHelpers.GetObjectValue(obj), Nothing, "AuthenticateAsClient", New Object() {"i.instagram.com"}, Nothing, Nothing, Nothing, True)
                Dim aSCIIEncoding As ASCIIEncoding = New ASCIIEncoding()
                Dim array As String() = Strings.Split(expression, vbCrLf & vbCrLf, -1, CompareMethod.Binary)
                Dim array4 As Boolean()
                For i As Integer = 0 To array.Length - 1
                    Dim str As String = array(i)
                    Dim array2 As Byte() = Encoding.[Default].GetBytes(str + vbCrLf & vbCrLf)
                    Dim array3 As Object() = New Object() {array2, 0, array2.Length}
                    Dim expr_1FD As Boolean() = New Boolean(2) {}
                    expr_1FD(0) = True
                    array4 = expr_1FD
                    NewLateBinding.LateCall(RuntimeHelpers.GetObjectValue(obj), Nothing, "Write", array3, Nothing, Nothing, array4, True)
                    Dim flag As Boolean = array4(0)
                    If flag Then
                        array2 = CType(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(array3(0))), GetType(Byte())), Byte())
                    End If
                    NewLateBinding.LateCall(RuntimeHelpers.GetObjectValue(obj), Nothing, "Flush", New Object(-1) {}, Nothing, Nothing, Nothing, True)
                Next
                Dim array5 As Byte() = New Byte(20000) {}
                Dim array6 As Object() = New Object() {array5, 0, array5.Length}
                Dim expr_2B6 As Boolean() = New Boolean(2) {}
                expr_2B6(0) = True
                array4 = expr_2B6
                Try
                    NewLateBinding.LateCall(RuntimeHelpers.GetObjectValue(obj), Nothing, "Read", array6, Nothing, Nothing, array4, True)
                Catch expr_2D9 As Exception
                    ProjectData.SetProjectError(expr_2D9)
                    ProjectData.ClearProjectError()
                End Try
                Dim flag2 As Boolean = array4(0)
                If flag2 Then
                    array5 = CType(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(array6(0))), GetType(Byte())), Byte())
                End If
                result = Not aSCIIEncoding.GetString(array5).Contains("""status"":")
                Me.Label2.Text = "Fuck You @" + TextBox5.Text
                Me.OFF = True
            Catch expr_333 As Exception
                ProjectData.SetProjectError(expr_333)
                ProjectData.ClearProjectError()
                Continue While
            End Try
            Exit While
        End While
        Return result
    End Function

    Public Function Code(Txt As String) As String
        ' The following expression was wrapped in a checked-statement
        Dim result As String
        Try
            Dim s As String = "2f6dcdf76deb0d3fd008886d032162a79b88052b5f50538c1ee93c4fe7d02e60"
            Dim hMACSHA As HMACSHA256 = New HMACSHA256(Encoding.ASCII.GetBytes(s))
            Dim array As Byte() = hMACSHA.ComputeHash(Encoding.ASCII.GetBytes(Txt))
            Dim stringBuilder As StringBuilder = New StringBuilder(array.Length * 2)
            Dim array2 As Byte() = array
            For i As Integer = 0 To array2.Length - 1
                Dim number As Byte = array2(i)
                stringBuilder.Append(Conversion.Hex(number).PadLeft(2, "0"c))
            Next
            result = stringBuilder.ToString().ToLower()
        Catch expr_81 As Exception
            ProjectData.SetProjectError(expr_81)
            result = Nothing
            ProjectData.ClearProjectError()
        End Try
        Return result
    End Function

    Public Function Info() As String
        Dim result As String
        Try
            Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/api/v1/accounts/current_user/?edit=true"), HttpWebRequest)
            httpWebRequest.UserAgent = "Instagram 8.2.0 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
            httpWebRequest.Headers.Add("Cookie", Me.cook)
            httpWebRequest.Credentials = CredentialCache.DefaultCredentials
            Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
            Dim responseStream As Stream = httpWebResponse.GetResponseStream()
            Dim streamReader As StreamReader = New StreamReader(responseStream)
            Dim text As String = streamReader.ReadToEnd()
            streamReader.Close()
            httpWebResponse.Close()
            result = text
        Catch expr_79 As WebException
            ProjectData.SetProjectError(expr_79)
            Dim ex As WebException = expr_79
            result = New StreamReader(ex.Response.GetResponseStream()).ReadToEnd()
            ProjectData.ClearProjectError()
        End Try
        Return result
    End Function

    Public Function hsha(Txt As String) As String
        ' The following expression was wrapped in a checked-statement
        Dim result As String
        Try
            Dim s As String = "55e91155636eaa89ba5ed619eb4645a4daf1103f2161dbfe6fd94d5ea7716095"
            Dim hMACSHA As HMACSHA256 = New HMACSHA256(Encoding.ASCII.GetBytes(s))
            Dim array As Byte() = hMACSHA.ComputeHash(Encoding.ASCII.GetBytes(Txt))
            Dim stringBuilder As StringBuilder = New StringBuilder(array.Length * 2)
            Dim array2 As Byte() = array
            For i As Integer = 0 To array2.Length - 1
                Dim number As Byte = array2(i)
                stringBuilder.Append(Conversion.Hex(number).PadLeft(2, "0"c))
            Next
            result = stringBuilder.ToString().ToLower()
        Catch expr_81 As Exception
            ProjectData.SetProjectError(expr_81)
            result = Nothing
            ProjectData.ClearProjectError()
        End Try
        Return result
    End Function

    Public Function login(username As String, password As String) As String
        ' The following expression was wrapped in a checked-statement
        Dim result As String
        While True
            Try
                Dim text As String = Guid.NewGuid().ToString().ToUpper()
                Dim text2 As String = String.Concat(New String() {"{""username"":""", username, """,""password"":""", password, """,""_csrftoken"":""missing"",""device_id"":""", text, """,""login_attempt_count"":""0""}"})
                Dim text3 As String = String.Concat(New String() {"signed_body=", Me.hsha(text2), ".", text2, "&ig_sig_key_version=4"})
                Dim bytes As Byte() = Encoding.ASCII.GetBytes(text3)
                Dim expression As String = "POST /api/v1/accounts/login/ HTTP/1.1" & vbCrLf & "Host: i.instagram.com" & vbCrLf & "User-Agent: Instagram 8.2.0 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)" & vbCrLf & "Accept: */*" & vbCrLf & "Accept-Language: ar-SA;q=1, en-SA;q=0.9" & vbCrLf & "Accept-Encoding: gzip, deflate" & vbCrLf & "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & vbCrLf & "Content-Length: " + Conversions.ToString(bytes.Length) + vbCrLf & "Connection: Keep-Alive" & vbCrLf & vbCrLf + text3
                Dim tcpClient As TcpClient = New TcpClient()
                tcpClient.Connect("i.instagram.com", 443)
                tcpClient.ReceiveBufferSize = 5000
                tcpClient.SendTimeout = 5000
                Dim obj As Object = New SslStream(tcpClient.GetStream(), False, Function(a0 As Object, a1 As X509Certificate, a2 As X509Chain, a3 As SslPolicyErrors) Me.thessl(), Nothing)
                NewLateBinding.LateCall(RuntimeHelpers.GetObjectValue(obj), Nothing, "AuthenticateAsClient", New Object() {"i.instagram.com"}, Nothing, Nothing, Nothing, True)
                Dim aSCIIEncoding As ASCIIEncoding = New ASCIIEncoding()
                Dim array As String() = Strings.Split(expression, vbCrLf & vbCrLf, -1, CompareMethod.Binary)
                Dim array4 As Boolean()
                For i As Integer = 0 To array.Length - 1
                    Dim str As String = array(i)
                    Dim array2 As Byte() = Encoding.[Default].GetBytes(str + vbCrLf & vbCrLf)
                    Dim array3 As Object() = New Object() {array2, 0, array2.Length}
                    Dim expr_189 As Boolean() = New Boolean(2) {}
                    expr_189(0) = True
                    array4 = expr_189
                    NewLateBinding.LateCall(RuntimeHelpers.GetObjectValue(obj), Nothing, "Write", array3, Nothing, Nothing, array4, True)
                    Dim flag As Boolean = array4(0)
                    If flag Then
                        array2 = CType(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(array3(0))), GetType(Byte())), Byte())
                    End If
                    NewLateBinding.LateCall(RuntimeHelpers.GetObjectValue(obj), Nothing, "Flush", New Object(-1) {}, Nothing, Nothing, Nothing, True)
                Next
                Dim array5 As Byte() = New Byte(20000) {}
                Dim array6 As Object() = New Object() {array5, 0, array5.Length}
                Dim expr_242 As Boolean() = New Boolean(2) {}
                expr_242(0) = True
                array4 = expr_242
                Try
                    NewLateBinding.LateCall(RuntimeHelpers.GetObjectValue(obj), Nothing, "Read", array6, Nothing, Nothing, array4, True)
                Catch expr_265 As Exception
                    ProjectData.SetProjectError(expr_265)
                    ProjectData.ClearProjectError()
                End Try
                Dim flag2 As Boolean = array4(0)
                If flag2 Then
                    array5 = CType(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(array6(0))), GetType(Byte())), Byte())
                End If
                Dim flag3 As Boolean = Not aSCIIEncoding.GetString(array5).Contains("""status""")
                If flag3 Then
                    Me.lgcsrftoken = Regex.Match(aSCIIEncoding.GetString(array5), "csrftoken=(.*?);").Groups(1).Value
                    Me.lgds_user = Regex.Match(aSCIIEncoding.GetString(array5), "ds_user=(.*?);").Groups(1).Value
                    Me.lgds_user_id = Regex.Match(aSCIIEncoding.GetString(array5), "ds_user_id=(.*?);").Groups(1).Value
                    Me.lgmid = Regex.Match(aSCIIEncoding.GetString(array5), "mid=(.*?);").Groups(1).Value
                    Me.lgsessionid = Regex.Match(aSCIIEncoding.GetString(array5), "sessionid=(.*?);").Groups(1).Value
                    Me.cook = String.Concat(New String() {"csrftoken=", Me.lgcsrftoken, "; ds_user=", Me.iu, "; ds_user_id=", Me.lgds_user_id, "; is_starred_enabled=yes; mid=", Me.lgmid, "; s_network=; sessionid=", Me.lgsessionid})
                    Dim input As String = Me.info()
                    Me.Email = Regex.Match(input, """email"": ""(.*?)""").Groups(1).Value
                    Me.Bio = Regex.Match(input, """biography"": ""(.*?)""").Groups(1).Value
                    Me.External = Regex.Match(input, """external_url"": ""(.*?)""").Groups(1).Value
                    Me.Bio0 = Regex.Match(input, """biography"": ""(.*?)""").Groups(1).Value
                    Me.Phone = Regex.Match(input, """phone_number"": ""(.*?)""").Groups(1).Value
                    Me.logged_in = True
                    MsgBox("Logged in Successfully", MsgBoxStyle.Information, "Turbo.E")
                    Me.TextBox3.Enabled = False
                    Me.TextBox4.Enabled = False
                Else
                    Interaction.MsgBox("Username or Password is incorrect", MsgBoxStyle.Critical, "Turbo.E")
                End If
            Catch expr_4CF As Exception
                ProjectData.SetProjectError(expr_4CF)
                ProjectData.ClearProjectError()
                Continue While
            End Try
            Exit While
        End While
        Return result
    End Function

    Public Sub Turbo()
        ' The following expression was wrapped in a checked-statement
        Try
            If Not Me.OFF Then
                While Not Conversions.ToBoolean(Me.Check())
                    If Me.OFF Then
                        Return
                    End If
                    Me.once += 1
                    Me.co.Text = Conversions.ToString(Me.once)
                End While
                Me.Edit()
            End If
        Catch expr_7B As Exception
            ProjectData.SetProjectError(expr_7B)
            Me.OFF = True
            ProjectData.ClearProjectError()
        End Try
    End Sub

    Public Function Check() As Object
        Dim result As Object
        Try
            Dim text As String = "email=agfgfggnbadfgdfgfgfgfg%40gmail.com&password=123xxxs&username=" + Me.TextBox5.Text + "&first_name=Hook :)"
            Dim bytes As Byte() = Encoding.ASCII.GetBytes(text)
            Dim obj As Object = My.Resources.checker.Replace("#packet", text)
            obj = RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(obj, Nothing, "Replace", New Object() {"##", bytes.Length}, Nothing, Nothing, Nothing))
            result = Me.S(Conversions.ToString(obj)).Contains(My.Resources.av3)
        Catch expr_86 As Exception
            ProjectData.SetProjectError(expr_86)
            result = False
            ProjectData.ClearProjectError()
        End Try
        Return result
    End Function

    Public Function S(pk As String) As String
        Dim tcpClient As TcpClient = New TcpClient()
        tcpClient.Connect("i.instagram.com", 443)
        tcpClient.ReceiveBufferSize = 3000
        tcpClient.SendTimeout = 3000
        Dim obj As Object = New SslStream(tcpClient.GetStream(), False, AddressOf Me.ValidateServerCertificate, Nothing)
        NewLateBinding.LateCall(obj, Nothing, "AuthenticateAsClient", New Object() {"i.instagram.com"}, Nothing, Nothing, Nothing, True)
        Dim aSCIIEncoding As ASCIIEncoding = New ASCIIEncoding()
        Dim array As String() = Strings.Split(pk, vbCrLf, -1, CompareMethod.Binary)
        ' The following expression was wrapped in a checked-statement
        Dim array4 As Boolean()
        For i As Integer = 0 To array.Length - 1
            Dim str As String = array(i)
            Dim array2 As Byte() = Encoding.[Default].GetBytes(str + vbCrLf)
            Dim arg_FD_0 As Object = obj
            Dim arg_FD_1 As Type = Nothing
            Dim arg_FD_2 As String = "Write"
            Dim array3 As Object() = New Object() {array2, 0, array2.Length}
            Dim arg_FD_3 As Object() = array3
            Dim arg_FD_4 As String() = Nothing
            Dim arg_FD_5 As Type() = Nothing
            array4 = New Boolean() {True, False, False}
            NewLateBinding.LateCall(arg_FD_0, arg_FD_1, arg_FD_2, arg_FD_3, arg_FD_4, arg_FD_5, array4, True)
            If array4(0) Then
                array2 = CType(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(array3(0)), GetType(Byte())), Byte())
            End If
            NewLateBinding.LateCall(obj, Nothing, "Flush", New Object(0 - 1) {}, Nothing, Nothing, Nothing, True)
        Next
        Dim array5 As Byte() = New Byte(20001 - 1) {}
        Dim arg_1B1_0 As Object = obj
        Dim arg_1B1_1 As Type = Nothing
        Dim arg_1B1_2 As String = "Read"
        Dim array6 As Object() = New Object() {array5, 0, array5.Length}
        Dim arg_1B1_3 As Object() = array6
        Dim arg_1B1_4 As String() = Nothing
        Dim arg_1B1_5 As Type() = Nothing
        array4 = New Boolean() {True, False, False}
        NewLateBinding.LateCall(arg_1B1_0, arg_1B1_1, arg_1B1_2, arg_1B1_3, arg_1B1_4, arg_1B1_5, array4, True)
        If array4(0) Then
            array5 = CType(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(array6(0)), GetType(Byte())), Byte())
        End If
        Return aSCIIEncoding.GetString(array5)
    End Function

    Private Function ValidateServerCertificate(sender As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors__1 As SslPolicyErrors) As Boolean
        Return sslPolicyErrors__1 = SslPolicyErrors.None
    End Function

    Public Function HTTP(url As String, cookies As CookieContainer) As String
        ' The following expression was wrapped in a checked-statement
        Dim result As String
        Try
            Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
            httpWebRequest.CookieContainer = cookies
            httpWebRequest.Credentials = CredentialCache.DefaultCredentials
            Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
            Dim responseStream As Stream = httpWebResponse.GetResponseStream()
            Dim streamReader As StreamReader = New StreamReader(responseStream)
            Dim text As String = streamReader.ReadToEnd()
            streamReader.Close()
            httpWebResponse.Close()
            Dim num As Integer = httpWebResponse.Cookies.Count - 1
            For i As Integer = 0 To num
                Dim flag As Boolean = Operators.CompareString(httpWebResponse.Cookies(i).Name, "mid", False) = 0
                If flag Then
                    Me.m1 = httpWebResponse.Cookies(i).Value
                Else
                    Dim flag2 As Boolean = Operators.CompareString(httpWebResponse.Cookies(i).Name, "csrftoken", False) = 0
                    If flag2 Then
                        Me.c1 = httpWebResponse.Cookies(i).Value
                    End If
                End If
            Next
            result = text
        Catch expr_100 As WebException
            ProjectData.SetProjectError(expr_100)
            Dim ex As WebException = expr_100
            result = New StreamReader(ex.Response.GetResponseStream()).ReadToEnd()
            ProjectData.ClearProjectError()
        End Try
        Return result
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.HTTP("https://www.instagram.com/", New CookieContainer)
    End Sub

    Public Function thessl() As Boolean
        Return True
    End Function

    Public Sub Started()
        ' The following expression was wrapped in a checked-statement
        Try
            Dim num As Integer = Conversions.ToInteger(Me.TextBox1.Text)
            Dim arg_16_0 As Integer = 0
            Dim num2 As Integer = num - 1
            For i As Integer = arg_16_0 To num2
                Me.tr2 = New Thread(AddressOf Me.Turbo)
                Me.tr2.IsBackground = True
                Me.tr2.Start()
            Next
        Catch expr_52 As Exception
            ProjectData.SetProjectError(expr_52)
            ProjectData.ClearProjectError()
        End Try
    End Sub

    Private Sub Label4_Click(sender As Object, e As EventArgs)
        Me.Close()
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Label1_MouseDown(sender As Object, e As MouseEventArgs)
        If (e.Button = MouseButtons.Left) Then
            Me.point_0 = New Point((0 - e.X), (0 - e.Y))
            Me.bool_0 = True
        End If
    End Sub

    Private Sub Label1_MouseMove(sender As Object, e As MouseEventArgs)
        If Me.bool_0 Then
            Dim mousePosition As Point = Control.MousePosition
            mousePosition.Offset(Me.point_0.X, Me.point_0.Y)
            Me.Location = mousePosition
        End If
    End Sub

    Private Sub Label1_MouseUp(sender As Object, e As MouseEventArgs)
        If (e.Button = MouseButtons.Left) Then
            Me.bool_0 = False
        End If
    End Sub

    Private Sub Label5_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Label5_MouseDown(sender As Object, e As MouseEventArgs)
        If (e.Button = MouseButtons.Left) Then
            Me.point_0 = New Point((0 - e.X), (0 - e.Y))
            Me.bool_0 = True
        End If
    End Sub

    Private Sub Label5_MouseMove(sender As Object, e As MouseEventArgs)
        If Me.bool_0 Then
            Dim mousePosition As Point = Control.MousePosition
            mousePosition.Offset(Me.point_0.X, Me.point_0.Y)
            Me.Location = mousePosition
        End If
    End Sub

    Private Sub Label5_MouseUp(sender As Object, e As MouseEventArgs)
        If (e.Button = MouseButtons.Left) Then
            Me.bool_0 = False
        End If
    End Sub
    Private Sub Label10_MouseLeave(sender As Object, e As EventArgs)
        Me.Label10.BackColor = Color.FromArgb(40, 40, 40)
    End Sub

    Private Sub Label10_MouseMove(sender As Object, e As MouseEventArgs)
        Me.Label10.BackColor = Color.FromArgb(50, 50, 50)
    End Sub
    Private Sub Label19_MouseLeave(sender As Object, e As EventArgs)
        Me.Label19.BackColor = Color.FromArgb(40, 40, 40)
    End Sub
    Private Sub Label19_MouseMove(sender As Object, e As MouseEventArgs)
        Me.Label19.BackColor = Color.FromArgb(50, 50, 50)
    End Sub

    Private Sub ThirteenButton1_Click(sender As Object, e As EventArgs) Handles Label19.Click
        If Me.Label19.Text = "Login" Then
            Dim left As String = Me.login(Me.TextBox3.Text, Me.TextBox4.Text)
            Dim flag As Boolean = Operators.CompareString(left, Conversions.ToString(True), False) = 0
            If flag Then
                Me.logged_in = True
                MsgBox("Logged in Successfully", MsgBoxStyle.Information, "Turbo.E")
                Me.TextBox3.Enabled = False
                Me.TextBox4.Enabled = False
            Else
                flag = (Operators.CompareString(left, Conversions.ToString(False), False) = 0)
                If flag Then
                    Me.logged_in = False
                    Interaction.MsgBox("Username or Password is incorrect", MsgBoxStyle.Critical, "Turbo.E")
                End If
            End If
        End If
    End Sub

    Private Sub ThirteenButton2_Click(sender As Object, e As EventArgs) Handles Label10.Click
        If Not Me.logged_in Then
            Interaction.MsgBox("First Login ", MsgBoxStyle.Critical, "Turbo.E")
        Else
            If (Me.Label10.Text = "Start") Then
                Me.OFF = False
                Me.TextBox5.Enabled = True
                Me.Label10.Text = "Stop"
                Me.once = 0
                Me.TextBox5.Enabled = False
                Dim thread As New Thread(New ParameterizedThreadStart(AddressOf Me.Started)) With
            {.IsBackground = True}
                thread.Start()
            ElseIf (Me.Label10.Text = "Stop") Then
                Me.OFF = True
                Me.TextBox5.Enabled = False
                Me.Label10.Text = "Start"
                Me.TextBox5.Enabled = True
            End If
        End If
    End Sub

    Private Sub ThirteenForm1_Click(sender As Object, e As EventArgs) Handles ThirteenForm1.Click

    End Sub

    Private Sub TextBox3_Click(sender As Object, e As EventArgs) Handles TextBox3.Click
        If (Me.TextBox3.Text = "Username") Then
            Me.TextBox3.Text = Nothing
        End If
    End Sub
    Private Sub TextBox4_Click(sender As Object, e As EventArgs) Handles TextBox4.Click
        If (Me.TextBox4.Text = "Password") Then
            Me.TextBox4.Text = Nothing
            Me.TextBox4.UseSystemPasswordChar = True
        End If
    End Sub

    Private Sub TextBox5_Click(sender As Object, e As EventArgs) Handles TextBox5.Click
        If (Me.TextBox5.Text = "Target") Then
            Me.TextBox5.Text = Nothing
        End If
    End Sub
End Class