fagg

Module Module1

    Sub Main()

        '-----------------------------------------------------------------------------------
        'timer
        Dim zTimer = New System.Timers.Timer(1000) 'Creating a timer with 1000 ms name as zTimer
        AddHandler zTimer.Elapsed, AddressOf TimerEvent 'Adding event to the timer
        zTimer.Enabled = True
        '-----------------------------------------------------------------------------------






        'shit that dosen't really matter lol
        Console.Title = "BetaLauncher"
        Console.Beep()
        Console.ReadLine()
        '-----------------------------------------------------------------------------------



    End Sub
    '-----------------------------------------------------------------------------------
    Private Sub TimerEvent()
        'TimerEvent (What to do every 1000 ms)
        'stuff that detects robloxplayerbeta.exe and opens form1
        Dim p() As Process = Process.GetProcessesByName("RobloxPlayerBeta")

        If p.Count > 0 Then

            Console.Beep()
            Console.BackgroundColor = ConsoleColor.White
            Console.WriteLine("Status: Exploit Injected!")
            Console.WriteLine("Continue")
            Console.BackgroundColor = ConsoleColor.Blue

        Else
            Console.Beep()
            Console.WriteLine("Status: Not Connected")


        End If





        Console.WriteLine("I am a maggot")
    End Sub
    '-----------------------------------------------------------------------------------
End Module