.NET Botkill by Bastian - Printable Version

Code
Imports System.Collections.Generic

Imports System.Linq

Imports System.Text

Imports System.Threading.Tasks

Imports Microsoft.Win32



Namespace Bastian bot_killer



Class Program

Private Shared Sub Main(args As String())

Dim RegKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)

Console.WriteLine("Welcome to Bastians Botkill System")

Console.WriteLine("Enter yes to stop bots from start up")

Dim conline As String = (Console.ReadLine().ToLower())



If conline <> "yes" Then

Try

Console.WriteLine("You did not enter yes, Botkill is now exiting")

Return

Catch e As Exception

Console.WriteLine("Error: ", e)

Return

End Try

ElseIf conline = "yes" Then

For i As Integer = 0 To RegKey.GetValueNames().Length - 1

'try

Try

Console.WriteLine("Do you want to kill ", RegKey.GetValueNames()(i).ToString(), "?", Environment.NewLine, "Enter yes to delete and anything else to skip")

Dim conline2 As String = (Console.ReadLine().ToLower())

'Regkey = current\version\run (a start up key)



'Over write it

If conline2 = "yes" Then

'Regkey setvalue = int (converting int before applying)

RegKey.SetValue(RegKey.GetValueNames()(i).ToString(), "")

'Sucess 

Console.WriteLine(RegKey.GetValueNames()(i).ToString(), " was succefully killed")

Console.WriteLine("If you enjoyed please vouch in Bastians Thread on HackForums.net")

Else

'else

'Pop up a messagebox

Console.WriteLine(RegKey.GetValueNames()(i).ToString(), "was not killed, usually you have to manually remove this.")

End If

Catch e As Exception

'Catch

Console.WriteLine("Error: ", e)

Return

End Try

Next

End If



End Sub

End Class

End Namespace