Я пытаюсь настроить пакетный сценарий, «Killswitch», если хотите, который можно удаленно загрузить на компьютер пользователя и удалить приложение из файловой системы компьютера, если приложение взломано. Я хочу иметь возможность добавить пакетный сценарий при запуске Windows, чтобы при загрузке системы он мог удалить все файлы с именем «Project Superior» в имени файла.
Dim directory As String = "C:\Users\" + Environment.UserName + "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"
Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Check As New Net.WebClient
Dim CheckKS = Check.DownloadString("https://pastebin.com/raw/c691KNVC")
If CheckKS.Contains("0") Then
ElseIf CheckKS.Contains("1") Then
Dim applicationPath As String = AppDomain.CurrentDomain.BaseDirectory
Dim regKey As Microsoft.Win32.RegistryKey
regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
regKey.SetValue("Project Superior", """" & applicationPath & """")
regKey.Close()
If directory.Contains("Updater.bat") Then
Dim run As String = Environment.CurrentDirectory + "\Updater.bat"
Process.Start(run, "")
Else
End If
End If
End Sub
Я хочу, чтобы у меня работал выключатель.