Feb 1, 2015 03:55 AM
(This post was last modified: Feb 1, 2015 03:57 AM by Bastian.)
Hello Guys,
today im gonna releasing "Botkill" which stops bots from start up in your system.
King regards,
~ Bastian.
today im gonna releasing "Botkill" which stops bots from start up in your system.
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 NamespaceKing regards,
~ Bastian.


