#include <GUIConstants.au3>

$title = "KillaWithWin v2.0"

Opt("WinTitleMatchMode", 3) 
Global $select= ""
Global $selectEnd= ""
Global $autodestroy = 0


_GUIMainWin()




Func _GUIMainWin()
	HotKeySet("{ESC}","_esci")
	Global $select= ""
	Global $selectEnd= ""
	Global $autodestroy = 0
	#Region ### START Koda GUI section ### Form=
	$Form1 = GUICreate($title, 362, 240, 368, 305)
			;				   xDim,yDim,x  , y

	$Group1 = GUICtrlCreateGroup("Trigger method", 8, 16, 161, 149)
	$Radio1 = GUICtrlCreateRadio("Wait close window", 16, 40, 113, 17)
	GUICtrlSetState(-1, $GUI_CHECKED)
	$Radio2 = GUICtrlCreateRadio("Checksum zone", 16, 64, 113, 17)
	$Radio3 = GUICtrlCreateRadio("Wait process close", 16, 88, 113, 17)
	$Radio7 = GUICtrlCreateRadio("Timer", 16, 112, 113, 17)
	$Radio8 = GUICtrlCreateRadio("Wait new size directory", 16, 136, 133, 17)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	$Group2 = GUICtrlCreateGroup("Trigger action", 184, 16, 169, 105)
	$Radio4 = GUICtrlCreateRadio("Shutdown PC (forced)", 192, 40, 129, 17)
	GUICtrlSetState(-1, $GUI_CHECKED)
	$Radio5 = GUICtrlCreateRadio("Close process", 192, 64, 113, 17)
	$Radio6 = GUICtrlCreateRadio("Close window", 192, 88, 113, 17)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	$Action = GUICtrlCreateButton("Action!", 144, 200, 75, 25, 0)
	
	$Checkbox1 = GUICtrlCreateCheckbox("Autodestroy file after action", 120, 172, 153, 17)
	GUISetState(@SW_SHOW)
	#EndRegion ### END Koda GUI section ###

	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				Exit
			Case $Action
	;~ 			if GUICtrlRead($Radio1) OR $Radio2 OR $Radio3
;~ 				MsgBox(0,"",)
				
				if GUICtrlRead($Radio1) = 1 Then
					$trigger = "win"
				ElseIf GUICtrlRead($Radio2) = 1 Then
					$trigger = "check"
				ElseIf GUICtrlRead($Radio3) = 1 Then
					$trigger = "process"
				ElseIf GUICtrlRead($Radio7) = 1 Then
					$trigger = "timer"
				ElseIf GUICtrlRead($Radio8) = 1 Then
					$trigger = "directory"
				EndIf

				if GUICtrlRead($Radio4) = 1 Then
					$triggerAction = "shutdown"
				ElseIf GUICtrlRead($Radio5) = 1 Then
					$triggerAction = "process"
				ElseIf GUICtrlRead($Radio6) = 1 Then
					$triggerAction = "window"
				EndIf
				
				if GUICtrlRead($Checkbox1) = 1 Then
					$autodestroy = 1
				EndIf
				
	;~ 		Case $Radio4 OR $Radio5 OR $Radio6	
	;~ 			MsgBox(0,"","2")
			GUIDelete($Form1)
			_GUIselectWin($trigger, $triggerAction)
			ExitLoop
		EndSwitch
	WEnd
EndFunc


Func _GUIselectWin($trigger, $triggerAction)
	;MsgBox(0,"",$trigger & @CRLF & $triggerAction)
	
	if $trigger = "win" Then
		TrayTip($title, "Take focus of the trigger window and press CTRL+SHIFT+F key",5)
;~ 		HotKeySet("{LCTRL}","_select")
;~ 		HotKeySet("x","_select")
		HotKeySet("^+f","_select")

		Do
			Sleep(1000)
		Until $select <> ""
		
		HotKeySet("^+f")
		
;~ 		MsgBox(0,$title,"Window selected:" & @CRLF & $select)
		
		_selectActionMethod($triggerAction)
		
		if $triggerAction= "shutdown" AND IsAdmin() = 0 AND $autodestroy = 1 Then
			$ret=MsgBox(4,$title, "You don't have administrator privileges. The program can't Shutdown+autodestroy exe file" & @CRLF & "Can you shutdown without autodestroy exe file?")
			if $ret = 6 Then
				$autodestroy = 0
				;Global $adminpw= InputBox($title, "Insert administrator password","","*")
			Else
				_GUIMainWin()
			EndIf
		EndIf
		
		
		MsgBox(0,$title,"Press OK for start Trigger")
		For $i=5 to 0 Step -1
			TrayTip($title, "Trigger active in " & $i & " seconds" & @CRLF & "Press ESC for abort",5)
			Sleep(1000)
		Next
		
		TrayTip("", "",5)
		
		HotKeySet("{ESC}")
		
		do
			Sleep(1000)
		Until WinExists($select,"") = 0
		
	ElseIf $trigger = "check" Then ;**************************************************************** CHEACKSUM
		TrayTip($title, "Press CTRL+SHIFT+F for select up-left of the checksum zone",5)
;~ 		HotKeySet("{LCTRL}","_select")
;~ 		HotKeySet("x","_select")
		HotKeySet("^+f","_selectCord")

		Do
			Sleep(1000)
		Until $select <> ""
		
		HotKeySet("^+f")
		
		$ur = $select
		
		$select= ""
		TrayTip($title, "Press CTRL+SHIFT+F for select down-right of the checksum zone",5)
;~ 		HotKeySet("{LCTRL}","_select")
;~ 		HotKeySet("x","_select")
		HotKeySet("^+f","_selectCord")

		Do
			Sleep(1000)
		Until $select <> ""
		
		HotKeySet("^+f")
		
		$dl= $select
		
		_test($ur, $dl)
		
		_selectActionMethod($triggerAction)
		
		
		
		
		MsgBox(0,$title,"Press OK for start Trigger")
		
		For $i=5 to 0 Step -1
			TrayTip($title, "Trigger active in " & $i & " seconds" & @CRLF & "Press ESC for abort",5)
			Sleep(1000)
		Next
		
		TrayTip("", "",5)
		HotKeySet("{ESC}")
		
		$checksum = PixelChecksum($ur[0],$ur[1], $dl[0], $dl[1])

		; Wait for the region to change, the region is checked every 100ms to reduce CPU load
		While $checksum = PixelChecksum($ur[0],$ur[1], $dl[0], $dl[1])
		  Sleep(100)
		WEnd
		
		
	ElseIf $trigger = "process" Then
		
		$proclist = ProcessList()
		
		$proclistTXT = ""
		for $i=1 to $proclist[0][0]
			$proclistTXT = $proclistTXT & "|" & $proclist[$i][0] & " (" & $proclist[$i][1] & ")"
		Next
		
		#Region ### START Koda GUI section ### Form=
		$Form2 = GUICreate("Select process", 256, 214, 304, 386)
		$List1 = GUICtrlCreateList("", 8, 8, 233, 149)
		$ok = GUICtrlCreateButton("Trigger this", 80, 176, 75, 25, 0)
		
		GUICtrlSetData($List1, $proclistTXT)
		GUISetState(@SW_SHOW)
		#EndRegion ### END Koda GUI section ###

		While 1
			$nMsg = GUIGetMsg()
			Switch $nMsg
				Case $ok
					$select = StringMid(GUICtrlRead($List1), StringInStr(GUICtrlRead($List1), "("), StringLen(GUICtrlRead($List1))-1)
					GUIDelete($Form2)
					ExitLoop
					
				Case $GUI_EVENT_CLOSE
					Exit

			EndSwitch
		WEnd

		_selectActionMethod($triggerAction)
		
		MsgBox(0,$title,"Press OK for start Trigger")
		For $i=5 to 0 Step -1
			TrayTip($title, "Trigger active in " & $i & " seconds" & @CRLF & "Press ESC for abort",5)
			Sleep(1000)
		Next
		
		TrayTip("", "",5)
		HotKeySet("{ESC}")
		
		do
			Sleep(1000)
		Until ProcessExists($select) = 0

	ElseIf $trigger = "timer" Then

		#Region ### START Koda GUI section ### Form=
		$Form3 = GUICreate("Set timer", 208, 78, 442, 482)
		$Input1 = GUICtrlCreateInput("", 72, 8, 121, 21)
		$Button1 = GUICtrlCreateButton("Go!", 64, 40, 75, 25, $BS_DEFPUSHBUTTON)
		$Label1 = GUICtrlCreateLabel("Minutes:", 8, 8, 61, 20)
		GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
		GUISetState(@SW_SHOW)
		#EndRegion ### END Koda GUI section ###

		While 1
			$nMsg = GUIGetMsg()
			Switch $nMsg
				Case $Button1
					$select = GUICtrlRead($Input1)
					GUIDelete($Form3)
					ExitLoop
				Case $GUI_EVENT_CLOSE
					Exit

			EndSwitch
		WEnd

		_selectActionMethod($triggerAction)
		
		
		MsgBox(0,$title,"Press OK for start Trigger")
		
		For $i=5 to 0 Step -1
			TrayTip($title, "Trigger active in " & $i & " seconds" & @CRLF & "Press ESC for abort",5)
			Sleep(1000)
		Next
		
		TrayTip("", "",5)
		
		HotKeySet("{ESC}")
		
		$timer= TimerInit()		
		do
			Sleep(1000)
		Until TimerDiff($timer) >= ($select * 60000)
		
	ElseIf $trigger = "directory" Then

	$Form1_1 = GUICreate("Directory size", 292, 202, 320, 175)
	$Input1 = GUICtrlCreateInput("", 16, 32, 121, 21)
	$Label1 = GUICtrlCreateLabel("Select directory", 16, 8, 113, 20)
	GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
	$Button1 = GUICtrlCreateButton("Browse", 144, 32, 75, 25, 0)
	$Label2 = GUICtrlCreateLabel("Trigger action when", 16, 85, 140, 20)
	GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
	$Label3 = GUICtrlCreateLabel("Directory", 8, 112, 83, 60)
	GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
	$Input2 = GUICtrlCreateInput("", 136, 112, 81, 21)
	$Button2 = GUICtrlCreateButton(">", 96, 112, 27, 25, 0)
	GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
	$Button3 = GUICtrlCreateButton("Start", 104, 160, 75, 25, 0)
	$Button4 = GUICtrlCreateButton("Byte", 224, 112, 41, 25, 0)
	
	GUICtrlSetFont(-1, 1, 800, 0, "MS Sans Serif")
	$alert = GUICtrlCreateLabel("For best precision use Byte", 135, 138, 140, 12)
	GUICtrlSetState($alert,$GUI_HIDE)
	;whichever
	$wii = GUICtrlCreateCheckbox("Whichever different size",80, 63, 140, 21)
	
	
	GUISetState(@SW_SHOW)
	#EndRegion ### END Koda GUI section ###

		$folder=""
		$folderByteSize=0
		
		While 1
			$nMsg = GUIGetMsg()
			Switch $nMsg
				
			Case $wii
;~ 				MsgBox(0,"",GUICtrlRead($wii))
					if GUICtrlRead($wii) = 1 Then
						GUICtrlSetState($Label3,$GUI_DISABLE)
						GUICtrlSetState($Label2,$GUI_DISABLE)
						GUICtrlSetState($Input2,$GUI_DISABLE)
						GUICtrlSetState($Button2,$GUI_DISABLE)
						GUICtrlSetState($Button4,$GUI_DISABLE)
					Else
						GUICtrlSetState($Label3,$GUI_ENABLE)
						GUICtrlSetState($Label2,$GUI_ENABLE)
						GUICtrlSetState($Input2,$GUI_ENABLE)
						GUICtrlSetState($Button2,$GUI_ENABLE)
						GUICtrlSetState($Button4,$GUI_ENABLE)
					EndIf

				Case $Button4
					$dimension = GUICtrlRead($Button4)
					
					Switch $dimension
						Case "Byte"
							GUICtrlSetData($Button4, "KByte")
							GUICtrlSetState($alert,$GUI_SHOW)
							$dimension = "KByte"
						Case "KByte"
							GUICtrlSetData($Button4, "MByte")
							$dimension = "MByte"
						Case "MByte"
							GUICtrlSetState($alert,$GUI_HIDE)
							GUICtrlSetData($Button4, "Byte")
							$dimension = "Byte"
					EndSwitch
					
					if $folder <> "" Then
					
						Switch $dimension
						Case "Byte"
							GUICtrlSetData($Label3, "Directory" & @CRLF & "(" & $folderByteSize & " " & $dimension & ")")
							GUICtrlSetData($Input2, DirGetSize($folder,2))
						Case "KByte"
							GUICtrlSetData($Label3, "Directory" & @CRLF & "(" & Round($folderByteSize/ 1024,2) & " " & $dimension & ")")
							GUICtrlSetData($Input2, Round(DirGetSize($folder,2)/ 1024,2))
						Case "MByte"
							GUICtrlSetData($Label3, "Directory" & @CRLF & "(" & Round($folderByteSize/ 1024 / 1024,2) & " " & $dimension & ")")
							GUICtrlSetData($Input2, Round(DirGetSize($folder,2)/ 1024 / 1024,2))
						EndSwitch
					EndIf
					
				Case $Button2
					if GUICtrlRead($Button2) = ">" Then
						GUICtrlSetData($Button2, "<")
					Else
						GUICtrlSetData($Button2, ">")
					EndIf
				Case $Button1
					$folder = FileSelectFolder("Select trigger directory action","")
					GUICtrlSetData($Input1, $folder)
					$dimension = GUICtrlRead($Button4)
					
					$folderByteSize= DirGetSize($folder,2)
					Switch $dimension
						Case "Byte"
							GUICtrlSetData($Label3, "Directory" & @CRLF & "(" & $folderByteSize & " " & $dimension & ")")
							GUICtrlSetData($Input2, DirGetSize($folder,2))
						Case "KByte"
							GUICtrlSetData($Label3, "Directory" & @CRLF & "(" & Round($folderByteSize/ 1024,2) & " " & $dimension & ")")
							GUICtrlSetData($Input2, Round(DirGetSize($folder,2)/ 1024,2))
						Case "MByte"
							GUICtrlSetData($Label3, "Directory" & @CRLF & "(" & Round($folderByteSize/ 1024 / 1024,2) & " " & $dimension & ")")
							GUICtrlSetData($Input2, Round(DirGetSize($folder,2)/ 1024 / 1024,2))
					EndSwitch
					
				Case $Button3
					if GUICtrlRead($Input1) = "" Then
						MsgBox(0,$title, "Set folder please")
					Else
						GUISetState(@SW_HIDE)
						ExitLoop
					EndIf
					
				Case $GUI_EVENT_CLOSE
					Exit

			EndSwitch
		WEnd

;~ 		MsgBox(0,"",$triggerAction)
		_selectActionMethod($triggerAction)
		
		
;~ 		MsgBox(0,$title,"Press OK for start Trigger")
		
		For $i=5 to 0 Step -1
			TrayTip($title, "Trigger active in " & $i & " seconds" & @CRLF & "Press ESC for abort",5)
			Sleep(1000)
		Next
		
		TrayTip("", "",5)
		
		HotKeySet("{ESC}")
		
		if GUICtrlRead($wii) = 4 Then
			Switch $dimension
				Case "Byte"
					$sizeTrigger= GUICtrlRead($Input2)
				Case "KByte"
					$sizeTrigger= GUICtrlRead($Input2)*1024
				Case "MByte"
					$sizeTrigger= GUICtrlRead($Input2)* 1024 * 1024
			EndSwitch
			
;~ 			MsgBox(0,$folderByteSize,$sizeTrigger)
			
			if GUICtrlRead($Button2) = ">" Then
				do
					Sleep(1000)
	;~ 				MsgBox(0,"",DirGetSize($folder,2)& " > " & $sizeTrigger)
				Until DirGetSize($folder,2) > $sizeTrigger
			Else
				
				do
					Sleep(1000)
				Until DirGetSize($folder,2) < $sizeTrigger
			EndIf
		Else
			do
				Sleep(1000)
			Until DirGetSize($folder,2) <> $folderByteSize
		EndIf
	EndIf
	
	
	
;~ 	MsgBox(0,"","")
;~ 	MsgBox(0,"","")
	_action($triggerAction)
EndFunc

Func _selectActionMethod($triggerAction)
	TrayTip("", "",1)
	Sleep(1000)
	HotKeySet("^+f")
	
	if $triggerAction = "process" Then
		$proclist = ProcessList()
		
		$proclistTXT = ""
		for $i=1 to $proclist[0][0]
			$proclistTXT = $proclistTXT & "|" & $proclist[$i][0] & " (" & $proclist[$i][1] & ")"
		Next
		
		#Region ### START Koda GUI section ### Form=
		$Form2 = GUICreate("Select process", 256, 214, 304, 386)
		$List1 = GUICtrlCreateList("", 8, 8, 233, 149)
		$ok = GUICtrlCreateButton("Trigger this", 80, 176, 75, 25, 0)
		
		GUICtrlSetData($List1, $proclistTXT)
		GUISetState(@SW_SHOW)
		#EndRegion ### END Koda GUI section ###

		While 1
			$nMsg = GUIGetMsg()
			Switch $nMsg
				Case $ok
					$selectEnd= StringMid(GUICtrlRead($List1), StringInStr(GUICtrlRead($List1), "(")+1, StringLen(GUICtrlRead($List1))-StringInStr(GUICtrlRead($List1), "(")-1)
					;MsgBox(0,"",$selectEnd)
					GUIDelete($Form2)
					ExitLoop
					
				Case $GUI_EVENT_CLOSE
					Exit

			EndSwitch
		WEnd


	
	ElseIf $triggerAction = "window" Then
		
		TrayTip($title, "Take focus of the close window and press CTRL+SHIFT+F key",5)
;~ 		HotKeySet("{LCTRL}","_select")
;~ 		HotKeySet("x","_select")
		HotKeySet("^+f","_selectEnd")

		Do
			Sleep(1000)
		Until $selectEnd <> ""
		
		HotKeySet("^+f")
		
;~ 		MsgBox(0,$title,"Window selected:" & @CRLF & $select)
		
		
	ElseIf $triggerAction = "shutdown" Then
		$triggerAction= "shutdown"
	EndIf
EndFunc

Func _action($triggerAction)
	if $triggerAction = "shutdown" Then
;~ 		MsgBox(0,"","Shutdown")
		
		if $autodestroy <> 1 Then
			HotKeySet("{ESC}","_esci")
			For $i=10 to 0 Step -1
				TrayTip($title, "Shutdown in " & $i & " seconds" & @CRLF & "Press ESC for abort",1)
				Sleep(1000)
			Next
			
			
			Shutdown(13)
		EndIf
	ElseIf $triggerAction = "process" Then
;~ 		MsgBox(0,"","Close process")
		ProcessClose($selectEnd)
	ElseIf $triggerAction = "window" Then
;~ 		MsgBox(0,"","Close window")
		WinClose($selectEnd)
	EndIf
	if $autodestroy = 1 AND @Compiled = 1 Then
		_SelfDelete($triggerAction)
	EndIf
	Exit
EndFunc

#cs
				if GUICtrlRead($Radio4) = 1 Then
					$triggerAction = "shutdown"
				ElseIf GUICtrlRead($Radio5) = 1 Then
					$triggerAction = "process"
				ElseIf GUICtrlRead($Radio6) = 1 Then
					$triggerAction = "window"
				EndIf

#ce


Func _select()
	$select= _activeWin()
EndFunc

Func _selectEnd()
	$selectEnd= _activeWin()
EndFunc

Func _selectCord()
	$select= MouseGetPos()
EndFunc

Func _activeWin()
	$var = WinList()
#cs
For $i = 1 to $var[0][0] 
  ; Only display visble windows that have a title
  If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
    MsgBox(0, "Details", "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])
  EndIf
Next
#ce
$dir=""
	For $i = 1 to $var[0][0]
	  ; Only display visble windows that have a title
	  ;If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
		;if StringInStr($var[$i][0],":") > 0 AND WinActive($var[$i][0]) Then
		if WinActive($var[$i][0]) AND IsVisible($var[$i][1]) AND $var[$i][0] <> "" Then
			;MsgBox(0,$var[$i][1],$var[$i][0])
			Return WinGetHandle($var[$i][0])
			;MsgBox(0,"",$dir)
			ExitLoop
		EndIf
		;MsgBox(0, "Details", "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])
	  ;EndIf
	Next
EndFunc


Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then 
    Return 1
  Else
    Return 0
  EndIf

EndFunc

Func _test($SelTopLeftXY, $SelTopRightXY)
	$mousePos = MouseGetPos()
;~ 	$SelTopLeftXY = StringSplit(GUICtrlRead($SelTopLeft),"x")
;~ 	$SelTopRightXY = StringSplit(GUICtrlRead($SelTopRight),"x")
				
	For $i = $SelTopLeftXY[0] to $SelTopRightXY[0] Step 15
		MouseMove($i,$SelTopLeftXY[1],0)				
	Next
	
	For $i = $SelTopLeftXY[1] to $SelTopRightXY[1] Step 15
		MouseMove($SelTopRightXY[0],$i,0)				
	Next
	
	For $i = $SelTopRightXY[0] to $SelTopLeftXY[0] Step -15
		MouseMove($i,$SelTopRightXY[1],0)				
	Next
	
	For $i = $SelTopRightXY[1] to $SelTopLeftXY[1] Step -15
		MouseMove($SelTopLeftXY[0],$i,0)				
	Next
	
	MouseMove($mousePos[0],$mousePos[1],0)
EndFunc

Func _esci()
	Exit
EndFunc

	
Func _SelfDelete($triggerAction)
	if @Compiled = 1 Then
		Local $cmdfile
		FileDelete(@TempDir & "scratch.cmd")
		$cmdfile = ':loop' & @CRLF _
				& 'del "' & @ScriptFullPath & '"' & @CRLF _
				& 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
				& 'del ' & @TempDir & 'scratch.cmd'
		if $triggerAction = "shutdown" Then
			$cmdfile = $cmdfile & @CRLF & 'Shutdown -s -f' 
		EndIf
		FileWrite(@TempDir & "scratch.cmd", $cmdfile)
		;RunAsSet("Administrator", @Computername, $adminpw)
		Run(@TempDir & "scratch.cmd", @TempDir, @SW_HIDE)
	EndIf
EndFunc