Aim Remote Control Bot

[brett]

hey, i havn't been on this forum for a while now, but i gota pm for the source of my aimbot, which probably isn't totaly workin...but w/e i hope it helps

expandcollapse popup

Opt("TrayIconDebug", 1)
Opt ("RunErrorsFatal", 0)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;



;****************************************Read all Ini's and make them global Var's




Global $FromSN
Global $BotSN


$OldFROMSN = IniRead("Settings.ini", "AimBotSettings", "FromScreenName", "KeyNotFound")
$OldBOTSN = IniRead("Settings.ini", "AimBotSettings", "AimBotScreenName", "KeyNotFound")
$FTPURL = IniRead("Settings.ini", "AimBotSettings", "FTP", "KeyNotFound")
$FTPDOWNLOAD = IniRead("Settings.ini", "AimBotSettings", "FTPDownload", "KeyNotFound")
$FTPIETITLE = IniRead("Settings.ini", "AimBotSettings", "FTPIETitle", "KeyNotFound")
$FTPFOLDERTITLE = IniRead("Settings.ini", "AimBotSettings", "FTPFolderTitle", "KeyNotFound")













;===================================================================================================

======================
;
;
;
;
;        GUI Start
;
;
;
;
;===================================================================================================

======================



GUICreate("AimBot Setup", 500, 500)
GUICreateEx("", 0x00E0FFFF, "AimBotIcon.ico")    

GUISetControl( "pic", "logo.bmp", 220, 25)


GUISetControl("label", "Your SN?", 15, 135)
GUISetControl("label", "Your Computer's SN?", 15, 225, 55, 100)
GUISetControl("label", "Created By: Brett", 210, 375, 50, 50)
GUISetControl("label", "Version 1.0", 320, 375, 50, 50)





$NINPUT = GUISetControl("input", $OldFROMSN, 85, 130, 100, 20)
$NINPUT2 = GUISetControl("input", $OldBOTSN, 85, 230, 100, 20)

$nStartAimBot = GUISetControl("button", "Start Aim Bot", 275, 450)
$nCancel = GUISetControl("button", "Cancel", 125, 450)


GUIWaitClose()







If $nStartAimBot = GUIRead() Then
   
   
$NewFROMSN = GUIRead($NINPUT)
$NewBOTSN = GUIRead($NINPUT2) 


  ;;;;;;;;;;;;;;;;
   If $NewFromSN = $OldFROMSN Then
    $NewFromSN = $FromSN
   Else
      IniWrite("Settings.ini", "AimBotSettings", "FromScreenName", $NewFromSN)
    $NewBotSN = $BotSN
   EndIf
  ;;;;;;;;;;;;;;;;
   If $NewBotSN = $OldBOTSN Then
    $NewBotSN = $BotSN
   Else
      IniWrite("Settings.ini", "AimBotSettings", "AimBotScreenName", $NewBotSN)
    $NewBotSN = $BotSN
   EndIf
  ;;;;;;;;;;;;;;;;
   
   
   
   

   
   
   
   
Else
   Exit
EndIf 

$FROMSN = IniRead("Settings.ini", "AimBotSettings", "FromScreenName", "KeyNotFound")
$BOTSN = IniRead("Settings.ini", "AimBotSettings", "AimBotScreenName", "KeyNotFound")



$IMTITLE = $FROMSN & " : " & $BOTSN & " - Instant Message"
$BUDDYALERTTITLE = $BOTSN & " - Buddy Alert"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;









    MsgBox(0, "IM Title", "My variable is " & $IMTitle)



Wait()






Func Wait()
   
   
   
   While 1
      If WinExists($IMTITLE) Then
         ReadText()
      EndIf
      
      If WinExists($BUDDYALERTTITLE) Then
         Welcome()
      EndIf
      Sleep(100)
      
      
   Wend
   
   
   
   
   
   
EndFunc  ;==>Wait






Func ReadText()
   WinActivate($IMTITLE, "",)
   
   $COMMANDPOS1 = 0
   $COMMANDPOS2 = 0
   
   $EVERYTHING = WinGetText($IMTITLE, "",)
   
   
   
   $COMMANDPOS1 = StringInStr($EVERYTHING, "~~")
   $COMMANDPOS2 = StringInStr($EVERYTHING, "@@")
   
   
   
   
   $COMMANDPOS1 = $COMMANDPOS1 + 2
   
   
   
   
   $COMMANDNUMTOEXTRACT = $COMMANDPOS2 - $COMMANDPOS1
   $COMMAND = StringMid($EVERYTHING, $COMMANDPOS1, $COMMANDNUMTOEXTRACT)
   
   
   If $COMMANDPOS1 And $COMMANDPOS2 == 0 Then
      $COMMAND = "NotCommand"
   EndIf
   
   
   RunCommand($COMMAND)
   
EndFunc  ;==>ReadText





Func RunCommand($COMMAND)
   
   
   
   
   
   Select
      
      Case $COMMAND = "NotCommand"
         WinClose($IMTITLE, "",)
         Sleep(50)
         Wait()
      Case $COMMAND = "CloseAIMBOT"
         Exit
      Case $COMMAND = "FTP"
         WinClose($IMTITLE, "",)
         FTP()
      Case $COMMAND = "Shutdown"
         Shutdown(1)
         WinClose($IMTITLE, "",)
         Sleep(50)
         Wait()
      Case $COMMAND = "LogOff"
         Shutdown(0)
         WinClose($IMTITLE, "",)
         Sleep(50)
         Wait()
      Case $COMMAND = "SwitchUser"
         WinClose($IMTITLE, "",)
         Sleep(50)
         Send("#l")
         Wait()
      Case $COMMAND = "Test"
  BlockInput(1)
         WinActivate($IMTITLE, "",)
         Send("Test Worked")
         Sleep(50)
         Send("{ENTER}")
         Sleep(50)
         WinClose($IMTITLE, "",)
         Sleep(50)
  BlockInput(0)
         Wait()
      Case $COMMAND = "Notepad"
         WinClose($IMTITLE, "",)
         Sleep(50)
         Run("NotePad")
         Sleep(50)
         Wait()
      Case $COMMAND = "CommandList"
  BlockInput(1)
         Send("The command are:  shutdown, logoff, switchuser, test, notepad, ftp, commandlist, Run, close.")
         Sleep(50)
         Send("{ENTER}")
         WinClose($IMTITLE, "",)
         Sleep(50)
  BlockInput(0)
         Wait()
      Case $COMMAND = "Run"
  BlockInput(1)
         Send("Program's Path?")
         Sleep(50)
         Send("{ENTER}")
  BlockInput(0)
         WinClose($IMTITLE, "",)
         Sleep(50)
         RunProgPath()
      Case Else
  BlockInput(1)
         WinActivate($IMTITLE, "",)
         Send("Command ")
         Send("^b")
         Send($COMMAND)
         Send("^b")
         Send(" is not recognized.")
         Sleep(50)
         Send("{ENTER}")
  BlockInput(0)
         WinClose($IMTITLE, "",)
         Sleep(50)
         Wait()
         

         
   EndSelect
   
   
   
EndFunc  ;==>RunCommand






;===================================================================================================

======================
;
;
;
;
;        Welcome Bot Commander
;
;
;
;
;===================================================================================================

======================

;you can do this if u want to...



Func Welcome()
   
   
   WinActivate($BUDDYALERTTITLE, "",)
   MouseClick("Button2")
   Sleep(500)
   Send("Hi " & $FROMSN & ", the AIMBot is ready to receive commands.")
   Send("{ENTER}")
   Sleep(1500)
   Send("{ESC}")
   
   Wait()
   
EndFunc  ;==>Welcome







;===================================================================================================

======================
;
;
;
;
;        RUN COMMAND Functions
;
;
;
;
;===================================================================================================

======================




Func RunProgPath()
   
   WinWait($IMTITLE, "",)
   
   
   
   $PATHPOS1 = 0
   $PATHPOS2 = 0
   
   $EVERYTHING = WinGetText($IMTITLE, "",)
   
   
   
   $PATHPOS1 = StringInStr($EVERYTHING, "~~")
   $PATHPOS2 = StringInStr($EVERYTHING, "@@")
   
   
   
   
   $PATHPOS1 = $PATHPOS1 + 2
   
   
   
   
   $PATHNUMTOEXTRACT = $PATHPOS2 - $PATHPOS1
   $PATH = StringMid($EVERYTHING, $PATHPOS1, $PATHNUMTOEXTRACT)
   
   
   
   
   
   
   Run($PATH)
   
   
   If @error Then
      WinActivate($IMTITLE, "",)
      Send("Program Run Error.")
      Send("{ENTER}")
      Sleep(500)
      WinClose($IMTITLE, "",)
      Sleep(50)
   Else
      WinActivate($IMTITLE, "",)
      Send("Program Run Complete.")
      Send("{ENTER}")
      Sleep(500)
      WinClose($IMTITLE, "",)
      Sleep(50)
   EndIf
   
   
   
   Wait()
   
   
EndFunc  ;==>RunProgPath










;===================================================================================================

======================
;
;
;
;
;        FTP Function
;
;
;
;
;===================================================================================================

======================



Func FTP()
   
   If $FTPURL = "KeyNotFound" Then
      MsgBox(0, "Ini Reading Error", "The FTP URL in the Settings.ini file was not found.")
      Wait()
   EndIf
   
   If $FTPDOWNLOAD = "KeyNotFound" Then
      MsgBox(0, "Ini Reading Error", "The FTP Path to download files, in the Settings.ini file, was not found.")
      Wait()
   EndIf
   
   
   
   
   Run('C:\Program Files\Internet Explorer\IEXPLORE.EXE ' & $FTPURL)
   Sleep(10000)
   
   
   WinActivate($FTPIETITLE, "")
   Sleep(500)
   Send("^a")
   Send("^x")
   Sleep(500)
   Run("explorer " & $FTPDOWNLOAD)
   Sleep(50)
   WinActivate($FTPFOLDERTITLE, "")
   Sleep(500)
   Send("^v")
   Sleep(1000)
   
   
   If WinExists("Confirm File Replace") Then
      Send("{ENTER}")
   EndIf
   
   
   
   
   WinClose($FTPIETITLE, "")
   WinClose($FTPFOLDERTITLE, "")
   
   
   
   
   Wait()
EndFunc  ;==>FTP

There is an ini file that you have to make

thanks

brett