Dracons
Newbie cheater
![]() Reputation: 0
Joined: 08 Nov 2016
Posts: 16
|
 Posted: Mon Jan 23, 2017 7:47 am Post subject: [AutoIT] pointers. |
 |
|
Hello.
I want to make application, which will be reading my "Player HP" from game continuously. For now I am able to do it only once. Even when I am trying to do my best I still need your help guys.
Here you go my script:
| Code: | #RequireAdmin
#include <Timers.au3>
#include <MemoryPointer.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 139, 267, 562, 301)
$Label1 = GUICtrlCreateLabel("Auto Heal:", 8, 16, 66, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
$Input1 = GUICtrlCreateInput("2000", 8, 56, 121, 21)
$Button1 = GUICtrlCreateButton("Start", 56, 136, 75, 25)
$Input2 = GUICtrlCreateInput("{F1}", 8, 106, 121, 21)
$Label2 = GUICtrlCreateLabel("HP:", 8, 38, 22, 17)
$Label3 = GUICtrlCreateLabel("Hotkey:", 8, 88, 41, 17)
$Label4 = GUICtrlCreateLabel("Current HP:", 8, 224, 59, 17)
$Label5 = GUICtrlCreateLabel("0", 8, 240, 122, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Value = _Pointer()
While 1
_Timer_SetTimer($form1,2000,"readhp")
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$ks = guictrlread($Input2)
$ksks = guictrlread($Input1)
_Timer_SetTimer($form1,$ksks,"senzu")
EndSwitch
WEnd
Func readhp($1,$2,$3,$4)
GUICtrlSetData ($label5, $Value)
EndFunc
Func senzu($1,$2,$3,$4)
controlsend("Client","","",$ks)
EndFunc
Func _Pointer()
Local $Staticoffset = 0x002410E0
Local $hOpen, $sRead
$PID = ProcessExists("Client.exe")
$hOpen = _MemoryOpen($PID )
Local $Base = _MemoryModuleGetBaseAddress($PID, 'Client.exe')
$sRead = _MemoryRead($Base + $Staticoffset, $hOpen, 'dword') + 0xb8
$sRead = _MemoryRead($sRead, $hOpen, 'dword') + 0x8
$sValue = _MemoryRead($sRead , $hOpen, 'double')
_MemoryClose($hOpen)
Return ($sValue)
EndFunc |
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
