[Release] GR Autolooter

#RequireAdmin
#Region
#AutoIt3Wrapper_Icon=gw2.ico
#AutoIt3Wrapper_Outfile=GW2_WvW_Tool64.exe
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_Description=Guild Wars 2 WvW Tool 64bit
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#EndRegion
Global $GUI_EVENT_CLOSE=-3, $pid = 0, $open=0, $loot = 0, $timed = 0, $lootkey, $lootaddr_ini, $clicker_key
$Admin = IsAdmin()
If $Admin <> 1 Then
	MsgBox(0x30, "ERROR", "You must run this app as Administrator!")
	Exit
EndIf

Opt("TrayMenuMode", 3)
$Exit = TrayCreateItem("Exit")

If Not FileExists("GW2_WvW_64.ini") Then
	IniWrite("GW2_WvW_64.ini", "main", "lootkey", "f")
	IniWrite("GW2_WvW_64.ini", "main", "lootaddress", "0x1C513DB")
	IniWrite("GW2_WvW_64.ini", "main", "clicker_key", "{NUMPAD0}")
Else
	$lootkey = IniRead("GW2_WvW_64.ini", "main", "lootkey", "f")
	$lootaddr_ini = IniRead("GW2_WvW_64.ini", "main", "lootaddress", "")
	$clicker_key = IniRead("GW2_WvW_64.ini", "main", "clicker_key", "{NUMPAD0}")
EndIf

$GW2Tool = GUICreate("WvW Tool 64bit", 200, 100, -1, -1)
$Checkbox1 = GUICtrlCreateCheckbox(" Autoloot", 10, 10)
	GUICtrlSetTip(-1, "Automatically collects bags, boxes, etc.")
$Checkbox2 = GUICtrlCreateCheckbox(" Anti AFK", 10, 40)
	GUICtrlSetTip(-1, "Moves the character every 4 min. automatically" & @CRLF & "(GW2 window do not need to be active)")
$Checkbox3 = GUICtrlCreateCheckbox(" Clicker ", 10, 70)
GUICtrlSetTip(-1, "Mouseover an item in the inventory and press " & @CRLF & "the clicker key. The item stack is emptied quickly." & @CRLF & "Clickerkey:    " & $clicker_key)
$btninfo = GUICtrlCreateButton("?", 175, 75, 20, 20)
GUICtrlSetTip(-1, "Click!" & @CRLF & "")
For $Checkbox = $Checkbox1 To $Checkbox3
	GUICtrlSetState($Checkbox, 128)
Next
GUISetState(@SW_SHOW)

While $pid = 0
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			CleanUp()
		Case $btninfo
			info()
	EndSwitch
	Switch TrayGetMsg()
		Case $Exit
			CleanUp()
	EndSwitch
	$pid = ProcessExists("Gw2-64.exe")
WEnd

For $Checkbox = $Checkbox1 To $Checkbox3
    GUICtrlSetState($Checkbox, 64)
Next
SetPrivilege("SeDebugPrivilege", 1)
$open = _MemoryOpen($pid)
$baseAddr = _MemoryModuleGetBaseAddress($pid, "Gw2-64.exe")
$lootaddr = $baseAddr + $lootaddr_ini
$timer = TimerInit()

While 1
	;Autoloot
	If GUICtrlRead($Checkbox1) = 1 Then
		If WinActive("[CLASS:ArenaNet_Dx_Window_Class]") Then
			$loot = _MemoryRead($lootaddr, $open)
			If $loot = 64 Then
				ControlSend("","",0,$lootkey)
				Sleep(20)
			EndIf
		EndIf
	EndIf

	;Anti AFK
	If GUICtrlRead($Checkbox2) = 1 Then Anti_AFK()

	;Clicker
	If GUICtrlRead($Checkbox3) = 1 Then
		HotKeySet($clicker_key, "clicker")
	Else
		HotKeySet($clicker_key) ;kill hotkey
	EndIf

	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			CleanUp()
		Case $btninfo
			info()
	EndSwitch
	Switch TrayGetMsg()
		Case $Exit
			CleanUp()
	EndSwitch
	$pid = ProcessExists("Gw2-64.exe")
	If $pid = 0 Then CleanUp()
WEnd

Func _MemoryOpen($iv_Pid, $iv_DesiredAccess = 0x1F0FFF, $if_InheritHandle = 1)
	If Not ProcessExists($iv_Pid) Then
		SetError(1)
        Return 0
	EndIf
	Local $ah_Handle[2] = [DllOpen('kernel32.dll')]
	If @Error Then
        SetError(2)
        Return 0
    EndIf
	Local $av_OpenProcess = DllCall($ah_Handle[0], 'int64', 'OpenProcess', 'int64', $iv_DesiredAccess, 'int64', $if_InheritHandle, 'int64', $iv_Pid)
	If @Error Then
        DllClose($ah_Handle[0])
        SetError(3)
        Return 0
    EndIf
	$ah_Handle[1] = $av_OpenProcess[0]
	Return $ah_Handle
EndFunc

Func _MemoryRead($iv_Address, $ah_Handle, $sv_Type = 'dword')
	If Not IsArray($ah_Handle) Then
		SetError(1)
        Return 0
	EndIf
	Local $v_Buffer = DllStructCreate($sv_Type)
	If @Error Then
		SetError(@Error + 1)
		Return 0
	EndIf
	DllCall($ah_Handle[0], 'int64', 'ReadProcessMemory', 'int64', $ah_Handle[1], 'int64', $iv_Address, 'ulong_ptr', DllStructGetPtr($v_Buffer), 'int64', DllStructGetSize($v_Buffer), 'int64', '')
	If Not @Error Then
		Local $v_Value = DllStructGetData($v_Buffer, 1)
		Return $v_Value
	Else
		SetError(6)
        Return 0
	EndIf
EndFunc

Func _MemoryClose($ah_Handle)
	If Not IsArray($ah_Handle) Then
		SetError(1)
        Return 0
	EndIf
	DllCall($ah_Handle[0], 'int64', 'CloseHandle', 'int64', $ah_Handle[1])
	If Not @Error Then
		DllClose($ah_Handle[0])
		Return 1
	Else
		DllClose($ah_Handle[0])
		SetError(2)
        Return 0
	EndIf
EndFunc

Func SetPrivilege( $privilege, $bEnable )
    Const $TOKEN_ADJUST_PRIVILEGES = 0x0020
    Const $TOKEN_QUERY = 0x0008
    Const $SE_PRIVILEGE_ENABLED = 0x0002
    Local $hToken, $SP_auxret, $SP_ret, $hCurrProcess, $nTokens, $nTokenIndex, $priv
    $nTokens = 1
    $LUID = DLLStructCreate("dword;int64")
    If IsArray($privilege) Then    $nTokens = UBound($privilege)
    $TOKEN_PRIVILEGES = DLLStructCreate("dword;dword[" & (3 * $nTokens) & "]")
    $NEWTOKEN_PRIVILEGES = DLLStructCreate("dword;dword[" & (3 * $nTokens) & "]")
    $hCurrProcess = DLLCall("kernel32.dll","hwnd","GetCurrentProcess")
    $SP_auxret = DLLCall("advapi32.dll","int","OpenProcessToken","hwnd",$hCurrProcess[0],   _
            "int64",BitOR($TOKEN_ADJUST_PRIVILEGES,$TOKEN_QUERY),"int*",0)
    If $SP_auxret[0] Then
        $hToken = $SP_auxret[3]
        DLLStructSetData($TOKEN_PRIVILEGES,1,1)
        $nTokenIndex = 1
        While $nTokenIndex <= $nTokens
            If IsArray($privilege) Then
                $priv = $privilege[$nTokenIndex-1]
            Else
                $priv = $privilege
            EndIf
            $ret = DLLCall("advapi32.dll","int64","LookupPrivilegeValue","str","","str",$priv,   _
                    "ulong_ptr",DLLStructGetPtr($LUID))
            If $ret[0] Then
                If $bEnable Then
                    DLLStructSetData($TOKEN_PRIVILEGES,2,$SE_PRIVILEGE_ENABLED,(3 * $nTokenIndex))
                Else
                    DLLStructSetData($TOKEN_PRIVILEGES,2,0,(3 * $nTokenIndex))
                EndIf
                DLLStructSetData($TOKEN_PRIVILEGES,2,DllStructGetData($LUID,1),(3 * ($nTokenIndex-1)) + 1)
                DLLStructSetData($TOKEN_PRIVILEGES,2,DllStructGetData($LUID,2),(3 * ($nTokenIndex-1)) + 2)
                DLLStructSetData($LUID,1,0)
                DLLStructSetData($LUID,2,0)
            EndIf
            $nTokenIndex += 1
        WEnd
        $ret = DLLCall("advapi32.dll","int64","AdjustTokenPrivileges","hwnd",$hToken,"int64",0,   _
                "ulong_ptr",DllStructGetPtr($TOKEN_PRIVILEGES),"int64",DllStructGetSize($NEWTOKEN_PRIVILEGES),   _
                "ulong_ptr",DllStructGetPtr($NEWTOKEN_PRIVILEGES),"int64*",0)
        $f = DLLCall("kernel32.dll","int","GetLastError")
    EndIf
    $NEWTOKEN_PRIVILEGES=0
    $TOKEN_PRIVILEGES=0
    $LUID=0
    If $SP_auxret[0] = 0 Then Return 0
    $SP_auxret = DLLCall("kernel32.dll","int64","CloseHandle","hwnd",$hToken)
    If Not $ret[0] And Not $SP_auxret[0] Then Return 0
    return $ret[0]
EndFunc

Func _MemoryModuleGetBaseAddress($iPID, $sModule)
    If Not ProcessExists($iPID) Then Return SetError(1, 0, 0)
    If Not IsString($sModule) Then Return SetError(2, 0, 0)
    Local   $PSAPI = DllOpen("psapi.dll")
    Local   $hProcess
    Local   $PERMISSION = BitOR(0x0002, 0x0400, 0x0008, 0x0010, 0x0020)
    If $iPID > 0 Then
        Local $hProcess = DllCall("kernel32.dll", "ulong_ptr", "OpenProcess", "dword", $PERMISSION, "int64", 0, "dword", $iPID)
        If $hProcess[0] Then
            $hProcess = $hProcess[0]
        EndIf
    EndIf
    Local   $Modules = DllStructCreate("ptr[1024]")
    Local   $aCall = DllCall($PSAPI, "int64", "EnumProcessModules", "ulong_ptr", $hProcess, "ulong_ptr", DllStructGetPtr($Modules), "dword", DllStructGetSize($Modules), "dword*", 0)
    If $aCall[4] > 0 Then
        Local   $iModnum = $aCall[4] / 4
        Local   $aTemp
        For $i = 1 To $iModnum
            $aTemp =  DllCall($PSAPI, "dword", "GetModuleBaseNameW", "ulong_ptr", $hProcess, "ulong_ptr", Ptr(DllStructGetData($Modules, 1, $i)), "wstr", "", "dword", 260)
            If $aTemp[3] = $sModule Then
                DllClose($PSAPI)
                Return Ptr(DllStructGetData($Modules, 1, $i))
            EndIf
        Next
    EndIf
    DllClose($PSAPI)
    Return SetError(-1, 0, 0)
EndFunc

Func CleanUp()
	_MemoryClose($open)
	Exit
EndFunc

Func Anti_AFK()
	$timed = TimerDiff($timer)
	If $timed >240000 Then
		ControlSend("[CLASS:ArenaNet_Dx_Window_Class]", "", 0, "{w down}")
		Sleep(500)
		ControlSend("[CLASS:ArenaNet_Dx_Window_Class]", "", 0, "{w up}")
		ControlSend("[CLASS:ArenaNet_Dx_Window_Class]", "", 0, "{s down}")
		Sleep(1300)
		ControlSend("[CLASS:ArenaNet_Dx_Window_Class]", "", 0, "{s up}")
		$timer = TimerInit()
	EndIf
EndFunc

Func info()
    MsgBox(0+64, "Info", "Guild Wars 2 - WvW Tool" & @CR & @CR & "©  2015" & " Kellerkind",6)
EndFunc

Func clicker()
	MouseClick("left")
EndFunc