Jop aber dafür hats geruckelt..
Ich verstoßte jetzt mal gegen meine eigene Regel und haue einfach mal den Code rein!
Code:
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\Iris v1.0 [eF_Hacks]\eF_Hacks.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: Felix Lehmann [eF_Hacks]
Script Function: Zoom Hack for www.elitepvpers.com [GUILDWARS SECTION]
HTML: http://www.elitepvpers.com/forum/gw-exploits-hacks-bots-tools-macros/
#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants2.au3>
#include <Array.au3>
#include "tt6.au3"
#include-once
HotKeySet("{PGUP}", "Freez")
HotKeySet("{PGDN}", "Unfreez")
HotKeySet("{Home}", "Update")
HotKeySet("{End}", "Ende")
FileInstall("C:\Users\Felix\Desktop\PvP Tool v1.0 [eF_Hacks]\Zoom Hack\GUI.jpg", @ScriptDir & "/gwwp.jpg", 1)
Const $MEM_AREAID = IniRead("update.ini", "SECTION 9-A", "AREA_ID", "Not Found")
Const $eXpanderA = IniRead("update.ini", "SECTION 9-A", "EXPANDERA", "Not Found")
Const $MEM_OwnID = 0x00A057B8
Global $Combo1
Dim $AREA_ID[1]
$AREA_ID[0] = 0
;-Get Global ID's
$AreaID = _MemoryRead($MEM_AREAID, $hprocess)
_ArrayAdd($AREA_ID, $AreaID)
$OwnID = _MemoryRead($MEM_OwnID, $hprocess)
Func AreaCheck()
$GetAreaID = _MemoryRead($MEM_AREAID, $hprocess)
If $GetAreaID = Not $AREA_ID[1] Then
_ArrayDelete($AREA_ID, $AREA_ID[1])
_ArrayAdd($AREA_ID, $GetAreaID)
$OwnID = _MemoryRead($MEM_OwnID, $hprocess)
EndIf
EndFunc
Func Freez()
$InputeXpander = GUICtrlRead($Combo1)
_MemoryWrite($eXpanderA, $hprocess, $InputeXpander)
Sleep(500)
_MemoryWrite($MEM_OwnID, $hprocess, 0)
EndFunc
Func UnFreez()
_MemoryWrite($MEM_OwnID, $hprocess, $OwnID)
EndFunc
Func Update()
$update = InetGet("http://efcoop.bplaced.net/Guild%20Wars/update.ini", "update.ini")
While @InetGetActive
TrayTip("Downloading", "Bytes = " & @InetGetBytesRead, 10, 16)
Sleep(250)
WEnd
MsgBox(0, "Heruntergeladen:", @InetGetBytesRead & " Bytes")
If $update = Not 0 Then
MsgBox(0, "Update", "Update erfolgreich durchgeführt")
Else
MsgBox(0x40, "Update - Error", "File Not Found.. Please try again later.")
EndIf
EndFunc ;==>_Update
Func Ende()
Exit
EndFunc
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Zoom Hack v1.0 [eF_Hacks]", 349, 286, 0, 0)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "/gwwp.jpg", 0, 0, 348, 284, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_DISABLE)
$Combo1 = GUICtrlCreateCombo("Zoomvalue", 32, 24, 145, 25)
GUICtrlSetData(-1, "69|70|71|72|73|74|75")
$Freez = GUICtrlCreateButton("Freez", 32, 64, 75, 25, 0)
$Unfreez = GUICtrlCreateButton("Unfreez", 32, 104, 75, 25, 0)
$Update = GUICtrlCreateButton("Update", 32, 144, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
AdlibEnable("AreaCheck", 1000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Freez
Freez()
Case $Unfreez
Unfreez()
Case $Update
Update()
EndSwitch
WEnd
Dazu brauche ich die Memory Addresse welche den Titeltext des angewählen Objektes angibt.
