Create a new version of paste:

;Written by LemonFrosting
;With the help from OiJkN
;all comments refer to lines below
#SingleInstance, Force
#Persistent
#InstallKeybdHook
#UseHook, On
#Include ./Ranger Recovery/FindClick.ahk
;http://www.autohotkey.com/board/topic/89592-findclick-2nd-edition/
;#NoTrayIcon


;run as admin and get vars from ini file sets mouse speed to fastest.
RunAsAdmin()

ExeName()				;<== call the function to rename the app // ADDED
Menu, Tray, Icon , %A_WorkingDir%/Ranger Recovery/Icon.ico, 1, 1

sysget,PriMon,Monitorprimary
sysget,PriMon,Monitor,,
;;Default Vars if no ini file present.
gui1in = 0
gui2in = 10
gui3in = 1
gui4in = 15
gui5in = 5
gui6in = 10
gui7in = C:\Program Files (x86)\Battle.net\Battle.net.exe
gui8in = HearthRanger.exe
gui9in = 
gui10in = ExternBot\silverfish\Silver.exe
gui11in = 1
gui12in = 1
gui13in = 1
gui14in = 1
gui15in = 1
gui16in := 100
gui17in := 100

;version number var
versionnum = 1.5
;mousemove Coordinate mode.
coordmode,mouse,screen
;Global starting vars
SetDefaultMouseSpeed,0
readvarsfromfile()
UserConfig_a = o20,TransBlack
ClickContinue = 1
BotStarted = 0
PausedBot = 0
Pausex := 249
Controlsy := 150
Playx := 210
AutoStopAfter = 1
AppName .= ExeName()	;<== set the name of the app // ADDED
CrashCounterInt = -1	;<== set the counter // ADDED

;GUI self explanotory
GUIsub:
Gui, Show ,W530 H400 x%gui16in% y%gui17in%,%AppName%	; <== %AppName% // ADDED
Gui, Color, dddddd
Gui, Font, s14 c212121,Arial
Gui, Add, Text,x16 y16,Ranger Crash Recovery
Gui, Font, s10
Gui, Add, Text,x405 y10 ,Bot Status:
Gui, Add, Text, x405 y25 h12 vBotStatusGui cRed, Script not running
Gui, Add, Text,x255 y10 ,Number of Crashes:							; <== Text Number of Crashes // ADDED
Gui, Add, Text, x375 y10 h12 cRed vCrachCounter, %CrashCounterInt%	; <== Value of crashes // ADDED
GuiControl,Hide,%CrashCounterInt%									; <== Hide the negative counter value // ADDED
Gui, Add, Button, x320 y11 h30 w80 vSkipBreakBtn gskipBreak, Skip Break
guicontrol,hide,SkipBreakBtn
Gui, Add, Button, x376 y59 w140 h40 default vStartBtnBtn gStartBot, Start
Gui, Add, Button, x376 y99 w140 h40 vPauseBot gExecFunc, Pause
GuiControl,Disable,PauseBot
Gui, Add, Checkbox, Checked%gui12in% vgui12out x378 y139,Pause bot too?
Gui, Add, Button, c323232 x376 y159 w140 h40 vRestartBtn gExecFunc, Restart
Gui, Add, Button, x376 y199 w140 h40 gSaveVars, Save Settings
gui, add, text, x16 y45 w502 0x10
Gui, Add, Checkbox,checked%gui11in% x376 y250 w140 vgui11out ,Close Battle net after Hearthstone launch?
Gui, Add, Checkbox,checked%gui1in% x376 y310 w140 vgui1out ,Start Hearthstone Deck Tracker?
Gui, Add, Checkbox,checked%gui2in% x376 y350 w140 vgui2out ,Check this if you use Silver.exe
Gui, Add, Text, x14 y380,Ver %versionnum%
Gui, Add, Tab2,x10 y64 h310, Settings|Paths|About

Gui, Tab, 1 
Gui, Font, s8
Gui, Add, CheckBox,checked%gui13in% x45 y100 vgui13out, Close the Bot when auto stop condition met
Gui, Add, CheckBox,checked%gui14in% x45 y120 vgui14out, Close the Game when auto stop condition met
Gui, Add, CheckBox,checked%gui15in% x45 y140 vgui15out, Close Recovery when auto stop condition met
Gui, Add, CheckBox,checked%gui3in% vgui3out x45 y170,Take breaks between games?
Gui, Add, Edit, x16 y190 w45 h20,Percent Chance
Gui, Add, UpDown,vgui4out, %gui4in%
Gui, Add, Text,x66 y193,Percent chance to take a break after each game
Gui, Add, Edit, x16 y220 w45 h20, Min break time
Gui, Add, UpDown, vMinTime vgui5out, %gui5in%
Gui, Add, Edit, x16 y240 w45 h20, Max break time
Gui, Add, UpDown, vMaxTime vgui6out, %gui6in%
Gui, Add, Text, x66 y230,Range in minutes for breaks

Gui, Tab, 2 
Gui, Add, Text, x20 y100,Location of Battle.net.exe:
Gui, Add, Edit, x20 y120 w330 h20 vBattleLauncher,%gui7in%
Gui, Add, Text, x20 y150,Location of HearthRanger.exe:
Gui, Add, Edit, x20 y170 w330 h20 vHearthRangerPath,%gui8in%
Gui, Add, Text, x20 y200,Location of Deck/Stat Tracker.exe:
Gui, Add, Edit, x20 y220 w330 h20 vDeckTracker,%gui9in%
Gui, Add, Text, x20 y250,Location of Silver.exe:
Gui, Add, Edit, x20 y270 w330 h20 vSilverLoc,%gui10in%
Gui, Add, Text, x20 y300 w330,Note: Please put the full path including the EXE files into the text box.`nIt will automatically strip quote marks so use copy as path in windows explorer (Shift right click a file and press copy as path).

Gui, Tab, 3
Gui, Font, s12
Gui, Add, Text, x20 y100,Ranger Crash Recovery ver %versionnum%
Gui, Add, Text, x20 y130,Written by Lemon Frosting(Jammo2k5) with `nhelp from OiJkN.
Gui, Font,s10
Gui, Add, Text, x20 y180, Intructions for use:`n1. Set your settings in the settings tab.`n2. Set your paths to the programs you want to launch `nin the paths tab.`n3. Press the start button and let it do it's thing.
;pulls in command line arguments and checks for -r only
loop %0%
{
	If %A_Index% = -r
	{
		gosub,StartBot
	}
}
Return

;emergencey restart sub routine.
^F10::
gosub,SaveVars
Reload
return

skipBreak:
SkipSleep = 1
return


;Start button sub routine
StartBot:
gosub,SaveVars
MainFunc()
return

;Saves all variables to the ini file. reads them back to filter "" and such other nonsence and resaves them.
SaveVars:
gui,submit,nohide
rememberposition()
SaveVars()
return

;this saves all vars on closing of the GUI.
GuiClose:
gosub,SaveVars
ExitApp

;Subroutine to launch functions from buttons vValue.
ExecFunc:
gosub,SaveVars
%A_GuiControl%()
return

;Main loop function ########Needs to be cleaned up##########
MainFunc()
{
	global
	readvarsfromfile()
	PausedBot = 0
	GuiControl,Disable,StartBtnBtn
	GuiControl,Enable,PauseBot
	LogLast := ReadLog(20)
	;Resumes bot if paused
	while PausedBot = 0
	{	
		LogLast := ReadLog(20)
		ifinstring,LogLast,Bot paused
		{	
			sleep 2000
			;msgbox, botpaused found
			LogLast2 := ReadLog(20)
			;If (InStr(LogLast,Bot paused,false,0) > InStr(LogLast,Bot is running,false,0))
			if (LogLast2 = LogLast)
			{
				StartRanger(Pausex,Controlsy)
				BotStatusMod("Running","Green")
				;msgbox, Ranger should be running ID1
			}
		}
		DelLogs()
		BotStatusMod("Starting Game","Blue")
		CheckIfExist(BattleLauncher,"Battle.net")
		CheckIfExist(HearthRangerPath,"Ranger")
		If PausedBot = 1
		{
			BotStatusMod("Script paused","Yellow")
			If gui12in = 1
			{
				BotStatusMod("Bot user paused","Yellow")
			}
			exit
		}
		If gui1in = 1
		{
			CheckIfExist(DeckTracker,"Tracker")
		}
		if gui2in = 1
		{
			CheckIfExist(SilverLoc,"Silver.exe")
		}
		GuiControl,Enable,PauseBtn
		process,exist,Hearthstone.exe
		if (ErrorLevel = 0)
		{
			StartGame()
		}
		If PausedBot = 1
		{
			BotStatusMod("Script paused","Yellow")
			If gui12in = 1
			{
				BotStatusMod("Bot user paused","Yellow")
			}
			exit
		}
		If gui1out = 1
		{
			BotStatusMod("Starting Tracker","Blue")
			Ifexist %DeckTracker%
			{
				Run, %DeckTracker%,%Trackerpath%,,DeckTrackerPID
			}
		}
		If PausedBot = 1
		{
			BotStatusMod("Script paused","Yellow")
			If gui12in = 1
			{
				BotStatusMod("Bot user paused","Yellow")
			}
			exit
		}
		If gui2in = 1
		{
			BotStatusMod("Starting Silver.exe","Blue")
			IfExist,%SilverLoc%
			{
				process,Exist,Silver.exe
				If (ErrorLevel = 0)
				{
					Run,%SilverLoc%,%Silverpath%
				}
			}
		}
		if pausedbot = 1
		{
			BotStatusMod("Script paused","Yellow")
			If gui12in = 1
			{
				BotStatusMod("Bot user paused","Yellow")
			}
			exit
		}
		process,exist,HearthRanger.exe
		if (ErrorLevel = 0)
		{
			DelLogs()
			BotStatusMod("Starting Bot","Blue")
			Run, %HearthRangerPath%,%Rangerpath%
		}
		if pausedbot = 1
		{
			BotStatusMod("Script paused","Yellow")
			If gui12in = 1
			{
				BotStatusMod("Bot user paused","Yellow")
			}
			exit
		}
		if pausedbot = 1
		{
			BotStatusMod("Script paused","Yellow")
			If gui12in = 1
			{
				BotStatusMod("Bot user paused","Yellow")
			}
			exit
		}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;second loop
		while PausedBot = 0
		{
			BotStatusMod("Running","Green")
			readvarsfromfile()
			If gui11out = 1
			{
				process,close,Battle.net.exe
			}
			If LogLast = `n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n
			{
				process,exist,HearthRanger.exe
				if (ErrorLevel = 0)
				{					
					BotStatusMod("Restarting bot","Blue")
					DelLogs()
					Run, %HearthRangerPath%,%Rangerpath%
				}
				StartRanger(Playx,Controlsy)
				;msgbox, Ranger should be running ID4
				BotStatusMod("Running","Green")
			}
			LogLast := ReadLog(1)
			
				
				IfInString, LogLast,Please start game
				{
					IfWinNotExist Hearthstone 
					{
					StartGame()
					}
				}
				
			
			LogLast := ReadLog(20)
;;;
			
			If gui3in = 1
			{
				IfNotInString, LogLast, Click to continue ret=True
				{
					ClickContinue = 0
				}		
				IfInString, LogLast, Click to continue ret=True
				{
					If ClickContinue = 0
					{
						Random,BreakRand,1,100
						If (BreakRand <= gui4in)
						{	
							BotStatusMod("Pausing","Blue")
							process,close,Hearthranger.exe
							;msgbox, Ranger should be paused ID5
							SleepFunc(gui5in,gui6in)
							BotStatusMod("Un Pausing","Blue")
							DelLogs()
							Run, %HearthRangerPath%,%Rangerpath%
							StartRanger(Playx,Controlsy)
							LogLast := ReadLog(2)
							LogLastCompare := ReadLog(2)
							while LogLast = LogLastCompare
							{
								StartRanger(Playx,Controlsy)
								sleep 1000
								LogLastCompare := LogLast
								LogLast := ReadLog(2)
							}
							;msgbox, Ranger should be running ID6
							BotStatusMod("Running","Green")
						}
					}
					ClickContinue = 1
				}
			}
			process,exist,HearthRanger.exe
			if (ErrorLevel = 0)
			{
				BotStatusMod("Restarting Bot","Blue")
				DelLogs()
				Run, %HearthRangerPath%,%Rangerpath%
			}
			process,exist,Hearthstone.exe
			if (ErrorLevel = 0)
			{
				BotStatusMod("Restarting Game","Blue")
				StartGame()
			}
			LogLast := ReadLog(20)
			IfInString, LogLast ,Bot stopped
			{
				sleep 500
				LogLast := ReadLog(2)
				IfInString, LogLast ,auto stop
				{
					if StartedRanger = 1
					{
						Ifinstring,LogLast,auto stop bot - stop bot after current game
						{
							BotStatusMod("Script not running","Red")
							GuiControl,Enable,StartBtnBtn
							GuiControl,Disable,PauseBot
							AutoStopAfter = 1
							exit
						}
						else
						{
							CloseDown(gui15out)
						}
						StartedRanger = 0
					}
					Else
					{	
						StartRanger(Playx,Controlsy)
					}
				}
				else
				{
					;Restartbot()
					break		
				}
			}
			LogLast2 := ReadLog(20)
			sleep 2000
			LogLast := ReadLog(20)
			emptyLog = `n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n
			/*
			If (LogLast != emptyLog)
			{
				if (LogLast2 = LogLast)
				{
					sleep 300000
					LogLast2 := ReadLog(20)
					if (LogLast2 = LogLast)
					{
						process,close,Hearthstone.exe
					}
				}
			}
			*/
		}
		if pausedbot = 1
		{
			BotStatusMod("Script paused","Yellow")
			If gui12in = 1
			{
				BotStatusMod("Bot user paused","Yellow")
			}
			exit
		}
		controlclick,,Hearthstone,,Left
	}
}

;Start battle launcher and launch the game ########currently relies on 
;hearthstone being the selected game want to add selecting hearthstone in the future
StartGame()
{

	global
	CountCrash()			; <== Call the function to count number of crashes // ADDED
	attempts:=0
	IfWinExist Hearthstone
	{
	return	
	}
	process,exist,Battle.net.exe
	if (ErrorLevel = 0) ; if Battle.net isnt open
	{
	Run %BattleLauncher%
	}
	process,exist,Battle.net.exe
	if (ErrorLevel > 0) ; if Battle.net exists
	{
		process,exist,Hearthstone.exe
		While (ErrorLevel = 0) ;while Hearthstone does not exist, keep trying to open it
		{
			
			process,exist,Battle.net.exe
			if (ErrorLevel > 0)
			{
				
				FindClick("./Ranger Recovery/play.png","!a rBattle.net Silent1")
				;MsgBox ,Trying to open game
				process,exist,Hearthstone.exe
				if (ErrorLevel > 0)
				{
					Break
				}
				WinGetTitle, title, A
				WinMove,Battle.net,,0,0,1,1
				Wingetpos,Bx,By,BattleWidth,,Battle.net
				DPIScaleMod := BattleWidth/720
				Winactivate,Battle.net
				MouseGetPos, xpos, ypos 
				Mouseclick,left,Bx+(290*DPIScaleMod),By+(477*DPIScaleMod)
				MouseMove, xpos, ypos , 1
				winactivate,% title
				Sleep 100
				attempts++
				if (attempts>30) ;if battle.net is frozen or something's wrong 
				{
					process,close,Battle.net.exe
					Run %BattleLauncher%
					Sleep,5000
					StartGame()
				}
			}
			
		}	;Hearthstone is opened
		
		if pausedbot = 1
		{
			exit
		}
		sleep 1000
		
		StartRanger(Playx,Controlsy)
	}
	
	;process,close,Battle.net.exe
	
}

;Pauses the bot 
PauseBot()
{
	global
	readvarsfromfile()
	BotStatusMod("Script paused","Yellow")
	GuiControl,Enable,StartBtnBtn
	GuiControl,Disable,PauseBot
	If gui12in = 1
	{
		Loop
		{
			LogLast := ReadLog(20)
			if StartedRanger = 1
			{
				If LogLast = `n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n
				{
					BotStatusMod("Pausing ASAP","Blue")
					sleep 10000
				}
				else ifinstring,LogLast,Please wait, checking
				{
					BotStatusMod("Pausing ASAP","Blue")
					LogLast := ReadLog(20)
					ifinstring,LogLast,Login success
					{
						sleep 1000
						StartRanger(Pausex,Controlsy)
						BotStatusMod("Paused","Yellow")
						;msgbox, Ranger should be paused ID9
						break
					}
					sleep 1000
				}
				else
				{
					StartRanger(Pausex,Controlsy)
					;msgbox, Ranger should be paused ID10
					BotStatusMod("Paused","Yellow")
					break
				}
			}			
		}
	}
	PausedBot = 1
	
}

;checks if ranger is working if not checks if it is running and if not it will launch it.
CheckIfRangerRunning()
{
	LogLast := ReadLog(20)
	If LogLast = `n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n
	{
		process,exist,HearthRanger.exe
		if (ErrorLevel = 0)
		{
			DelLogs()
			Run, %HearthRangerPath%,%Rangerpath%
		}
	}
}

;log cleaning ########### Change code to make deleting logs obselete and chose last created log and open that instead.########
DelLogs()
{
	FileRemoveDir,%Rangerpath%task_log,1
	FileCreateDir,%Rangerpath%task_log 
}

; clicks the play button on Ranger
StartRanger(Bx,By)
{	
	global
	StartedRanger = 1
	WinGetTitle, title, A
	Process Exist,HearthRanger.exe
	RangerPID := ErrorLevel
	
	WinGetPos,Rx,Ry,Rangerwidth,Rangerheight,ahk_pid %RangerPID%
	winactivate,ahk_pid %RangerPID%
	rangerscalemod := Rangerwidth/500
	;msgbox % rangerscalemod
	MouseGetPos, xpos, ypos 
	Mouseclick,left,Rx+(Bx*rangerscalemod),Ry+(By*rangerscalemod)
	;MouseMove, xpos, ypos , 1
	Winactivate,% title
}

;Shuts down everything on bot auto stop########add check for autostop after current game.
CloseDown(fullclose)
{
	global
	BotStatusMod("Stopping","Blue")
	if gui14out = 1
	{
		process,close,Battle.net.exe
		process,close,Hearthstone.exe
		FileAppend, gui4, D:\Downloads\Hearthranger_v.3.2.0\HearthRanger\output.txt
	}
	if gui13out = 1
	{
		process,close,Hearthranger.exe
		Process,close,silver.exe
		Process,Close,%TrackerProcess%
		FileAppend, gui3, D:\Downloads\Hearthranger_v.3.2.0\HearthRanger\output.txt
		}
	If fullclose = 1
	{
		exitapp
	}
	BotStatusMod("Not Running","Red")
	GuiControl,Enable,StartBtnBtn
	GuiControl,Disable,PauseBot
	exit
}

; Reads the last K lines of the Hearthranher%date%.log and returns it
ReadLog(k)
{
	loop,%A_WorkingDir%/task_log/HearthRanger*.log
	{
		Loop Read,%A_WorkingDir%/task_log/%A_LoopFileName%
		{
			i := Mod(A_Index,k)
			L%i% = %A_LoopReadLine%
		}
		L := L%i%
		Loop % k-1
		{
			IfLess i,1, SetEnv i,%k%
			i--      
			L := L%i% "`n" L
		}
		Return L
	}
}

;This is the bot status updater
BotStatusMod(status,color)
{
	Gui,Font,c%color% s10
	GuiControl,Font,BotStatusGui
	GuiControl,text,BotStatusGui,%Status%

}

;checks if a program exists if not it will send a message and status notif
CheckIfExist(path,name)
{	
	Ifnotexist %path%
	{	
		GuiControl,Enable,StartBtnBtn
		GuiControl,Disable,PauseBot
		BotStatusMod("Check "name,"Red")
		msgbox,Please make sure the %name% path is correct in the Path tab.
		exit
	}
}

;this saves all the GUI vars to an INI file.
SaveVars()
{
	global
	FileDelete,%A_WorkingDir%\Ranger Recovery\RangerRecovery.ini
	FileAppend,%gui1out%`n%gui2out%`n%gui3out%`n%gui4out%`n%gui5out%`n%gui6out%`n%BattleLauncher%`n%HearthRangerPath%`n%DeckTracker%`n%SilverLoc%`n%gui11out%`n%gui12out%`n%gui13out%`n%gui14out%`n%gui15out%`n%gui16out%`n%gui17out%`n      ,%A_WorkingDir%\Ranger Recovery\RangerRecovery.ini
	
}

;this reads all vars from the INI file and trims the "fat"
readvarsfromfile()
{
	global
	i = 0
	loop 17
	{
	i++
	FileReadLine, gui%i%in, %A_WorkingDir%\Ranger Recovery\RangerRecovery.ini,%i%
	}
	StringReplace,BattleLauncher,gui7in,",,All
	StringReplace,HearthRangerPath,gui8in,",,All
	StringReplace,DeckTracker,gui9in,",,All
	StringReplace,SilverLoc,gui10in,",,All
	SplitPath,HearthRangerPath,,Rangerpath
	SplitPath,DeckTracker,TrackerProcess,Trackerpath
	SplitPath,SilverLoc,,Silverpath
}

;This restarts the bot, game and all supporting programs
RestartBot()
{
	global
	SaveVars()
	process,close,Hearthranger.exe
	process,close,Hearthstone.exe
	process,close,Battle.net.exe
	Process,close,silver.exe
	Process,Close,%TrackerProcess%
}

;This is the random sleep function
SleepFunc(x,y)
{	
	global
	GuiControl,Enable,StartBtnBtn
	GuiControl,Disable,PauseBot
	Random,BreakTime,%x%,%y%
	TimeLeft := BreakTime*60
	guicontrol,Show,SkipBreakBtn
	loop %TimeLeft%
	{
		BotStatus := % "Paused for " FormatSeconds(TimeLeft-1)
		BotStatusMod(BotStatus,"Yellow")
		sleep 1000
		TimeLeft--
		if Skipsleep = 1
		{
			Break
		}
	}
	skipsleep = 0
	guicontrol,hide,SkipBreakBtn
	GuiControl,disable,StartBtnBtn
	GuiControl,enable,PauseBot
}

; Formats the time into mm:ss for the status
FormatSeconds(NumberOfSeconds)
{
    time = 19990101  ; *Midnight* of an arbitrary date.
    time += %NumberOfSeconds%, seconds
    FormatTime, mmss, %time%, mm:ss
    return mmss  ; This method is used to support more than 24 hours worth of sections.
}

;this is the restart button func
RestartBtn()
{
	global
	rememberposition()
	gosub,savevars
	msgbox,3,Kill Bot and Game?,Do you want to Restart HearthRanger and Hearthstone too?`nThey can be restarted automatically by starting recoery when it reloads.
	Ifmsgbox yes
	{
		SaveVars()
		process,close,Battle.net.exe
		process,close,Hearthstone.exe
		process,close,Hearthranger.exe
		Process,close,silver.exe
		Process,Close,%TrackerProcess%
		Reload
	}
	ifmsgbox no
	{
		Reload
	}
}

;More comprehensive argument check.
getParams:
	Loop, %0% ; for each parameter
	{
		param := %A_Index%
		; check for switches
		StringLeft, paramType, param, 1
		If (paramType = - or paramType = /)
		{
		    ; determine type of switch
		    StringMid, switch, param, 2, 1
		    ; settings file switch
			If switch = s
			{
			    ; access value (= next parameter)
				param = % A_Index + 1
				file_settings := %param%
				MsgBox, settings file:`n%file_settings%
			}
		}
	}
Return

rememberposition()
{
	global
	wingetpos,gui16out,gui17out,,,%AppNAme%,,-
}

;Run program as admin.
RunAsAdmin()
{
global
  Loop, %0%  ; For each parameter:
    {
      param := %A_Index%  ; Fetch the contents of the variable whose name is contained in A_Index.
      params .= A_Space . param
    }
  ShellExecute := A_IsUnicode ? "shell32\ShellExecute":"shell32\ShellExecuteA"
       
  if not A_IsAdmin
  {
      If A_IsCompiled
         DllCall(ShellExecute, uint, 0, str, "RunAs", str, A_ScriptFullPath, str, params , str, A_WorkingDir, int, 1)
      Else
         DllCall(ShellExecute, uint, 0, str, "RunAs", str, A_AhkPath, str, """" . A_ScriptFullPath . """" . A_Space . params, str, A_WorkingDir, int, 1)
	  exitapp
  }
}

ExeName()																;<== Function to return a random name for the app //ADDED
{
	var_Types := "alnum"

	Loop, Parse, var_Types, `,
	{
	  var_result := ""
		var_result .= RandomVar(6,12,A_LoopField)
	}
	return var_result
}

RandomVar(p_MinLength,p_MaxLength,p_Type="",p_MinAsc=32,p_MaxAsc=126)	;<== Function to randomize // ADDED
{
  StringReplace,p_Type,p_Type,!,,All
  l_Neg := !ErrorLevel
  StringReplace,p_Type,p_Type,#,@,All
  l_Cse := !ErrorLevel
  StringReplace,p_Type,p_Type,@,,All
  l_Rep := !ErrorLevel
  Random, l_Aux, %p_MinLength%, %p_MaxLength%
  Loop, %l_Aux% {
    Loop {
      Random, l_Aux, %p_MinAsc%, %p_MaxAsc%
      l_Aux := Chr(l_Aux)
      If ( !l_Rep ) OR ( l_Rep AND !InStr(l_Output,l_Aux,l_Cse) ) {
        If p_Type not in integer,number,digit,xdigit,alpha,upper,lower,alnum,space
          break
        Else
          If l_Neg {
            If l_Aux is not %p_Type%
              break
          }
          Else
            If l_Aux is %p_Type%
              break
      }
    }
    l_Output .= l_Aux
  }
  return l_Output
}
  
CountCrash()														; <== Function to count // ADDED
{  
    Global
    CrashCounterInt++    ;this increases Counter value by 1
	GuiControl,Show,CrachCounter
    GuiControl,,CrachCounter,%CrashCounterInt%
}
F9::pause