Thnx. Any Chance u find out Fishing Pointers?
Original Thread https://www.mpgh.net/forum/showthread.php?t=1153911
But i got the source on https://www.mpgh.net/forum/showthread.php?t=1431927
Working: April 29, 2019
Code:#NoEnv #SingleInstance, Force #WinActivateForce SendMode Input SetWorkingDir %A_ScriptDir% global Pointer:="0x00FFAF90" global MaxOffset:="0x1C+0x30+0xC4+0x6C+0x388" global RealOffset:="0x1C+0x30+0xC4+0x6C+0x384" global iniFile := A_ScriptDir . "/hppot_ptr.ini" FirstRun := 1 if (FileExist(iniFile)){ IniRead, Pointer, %iniFile%, Global, Pointer IniRead, MaxOffset, %iniFile%, Global, MaxOffset IniRead, RealOffset, %iniFile%, Global, RealOffset } else{ IniWrite, %Pointer%, %iniFile%, Global, Pointer IniWrite, %MaxOffset%, %iniFile%, Global, MaxOffset IniWrite, %RealOffset%, %iniFile%, Global, RealOffset } if FirstRun = 1 { Gui, font, s10, Verdana Gui, Add, GroupBox, x10 y15 w165 h100, AutoPot Settings Gui, font Gui, Add, text, x20 y35, Heal on Gui, Add, Edit, x60 y32 w27 Number Limit2 vHeal, 50 Gui, Add, text, x90 y35, percent Gui, Add, Checkbox, x20 y65 vNotifications, Windows notifications? Gui, Add, Button, x25 y90 w140 h22 default gSaveSettings, Start Gui, Show, x386 y200 h120 w185, AutoPot } return SaveSettings: Gui, Submit FirstRun = 0 AutoHeal = off Gui, Destroy AutoHeal = on SetTimer, AutoHeal, 100 SoundPlay, %A_WinDir%\Media\Windows Ding.wav If (Notifications)= 1{ TrayTip ,AutoPot, Bot started! Press "Num 7" again to stop the bot! } return NumPad7:: If AutoHeal = off { AutoHeal = on SetTimer, AutoHeal, 100 SoundPlay, %A_WinDir%\Media\Windows Ding.wav If (Notifications)= 1{ TrayTip ,AutoPot, Bot started! Press "Num 7" again to stop the bot! } return } else If AutoHeal = on { AutoHeal = off SetTimer, AutoHeal, Off SoundPlay, %A_WinDir%\Media\Windows Ding.wav sleep 80 SoundPlay, %A_WinDir%\Media\Windows Ding.wav If (Notifications) = 1{ TrayTip ,AutoPot, Bot stopped! Press "Num 7" again to start the bot! } } return AutoHeal: WinGet, l, list, Trove Loop %l% { d := l%a_index% WinGet, pid, PID, ahk_id %d% WinGet, Handle, ID, ahk_pid %pid% Base := getProcessBaseAddress(Handle) MaxAddress := GetAddress(pid, Base, Pointer, MaxOffset) RealAddress := GetAddress(pid, Base, Pointer, RealOffset) MaxValue := ReadMemory(MaxAddress, pid) RealValue := ReadMemory(RealAddress, pid) if (RealValue < MaxValue/100*Heal){ ControlSend, , {q down}, ahk_pid %pid% Sleep, 90 ControlSend, , {q up}, ahk_pid %pid% heal += 1 Sleep, 1000 } } return getProcessBaseAddress(Handle){ Return DllCall( A_PtrSize = 4 ? "GetWindowLong" : "GetWindowLongPtr" , "Ptr", Handle , "Int", -6 , "Int64") } GetAddress(PID, Base, Address, Offset){ PointerBase := base + Address y := ReadMemory(PointerBase,PID) OffsetSplit := StrSplit(Offset, "+") OffsetCount := OffsetSplit.MaxIndex() Loop, %OffsetCount%{ if (a_index = OffsetCount) { Address := (y + OffsetSplit[a_index]) }Else if(a_index = 1) { y := ReadMemory(y + OffsetSplit[a_index],PID) }Else{ y := ReadMemory(y + OffsetSplit[a_index],PID) } } Return Address } ReadMemory(MADDRESS, pid){ VarSetCapacity(MVALUE,4,0) ProcessHandle := DllCall("OpenProcess", "Int", 24, "Char", 0, "UInt", pid, "UInt") DllCall("ReadProcessMemory", "UInt", ProcessHandle, "Ptr", MADDRESS, "Ptr", &MVALUE, "Uint",4) Loop 4 result += *(&MVALUE + A_Index-1) << 8*(A_Index-1) Return, result } ToolTipDisplay(Message) { ToolTip, %Message% SetTimer, RemoveToolTip, 5000 return } RemoveToolTip: SetTimer, RemoveToolTip, Off ToolTip return
Thnx. Any Chance u find out Fishing Pointers?
Is there a chance of fishing pointers?
can someone update the pointers? trying to find it myself but... >.>
Here... (I just made it i dont see if it working... so please test it...)
Code:#NoEnv #SingleInstance, Force #WinActivateForce SendMode Input SetWorkingDir %A_ScriptDir% global Pointer:="0x00ECEE64" global MaxOffset:="0x1C+0x30+0xC4+0x6C+0x388" global RealOffset:="0x1C+0x30+0xC4+0x6C+0x384" global iniFile := A_ScriptDir . "/hppot_ptr.ini" FirstRun := 1 if (FileExist(iniFile)){ IniRead, Pointer, %iniFile%, Global, Pointer IniRead, MaxOffset, %iniFile%, Global, MaxOffset IniRead, RealOffset, %iniFile%, Global, RealOffset } else{ IniWrite, %Pointer%, %iniFile%, Global, Pointer IniWrite, %MaxOffset%, %iniFile%, Global, MaxOffset IniWrite, %RealOffset%, %iniFile%, Global, RealOffset } if FirstRun = 1 { Gui, font, s10, Verdana Gui, Add, GroupBox, x10 y15 w165 h100, AutoPot Settings Gui, font Gui, Add, text, x20 y35, Heal on Gui, Add, Edit, x60 y32 w27 Number Limit2 vHeal, 50 Gui, Add, text, x90 y35, percent Gui, Add, Checkbox, x20 y65 vNotifications, Windows notifications? Gui, Add, Button, x25 y90 w140 h22 default gSaveSettings, Start Gui, Show, x386 y200 h120 w185, AutoPot } return SaveSettings: Gui, Submit FirstRun = 0 AutoHeal = off Gui, Destroy AutoHeal = on SetTimer, AutoHeal, 100 SoundPlay, %A_WinDir%\Media\Windows Ding.wav If (Notifications)= 1{ TrayTip ,AutoPot, Bot started! Press "Num 7" again to stop the bot! } return NumPad7:: If AutoHeal = off { AutoHeal = on SetTimer, AutoHeal, 100 SoundPlay, %A_WinDir%\Media\Windows Ding.wav If (Notifications)= 1{ TrayTip ,AutoPot, Bot started! Press "Num 7" again to stop the bot! } return } else If AutoHeal = on { AutoHeal = off SetTimer, AutoHeal, Off SoundPlay, %A_WinDir%\Media\Windows Ding.wav sleep 80 SoundPlay, %A_WinDir%\Media\Windows Ding.wav If (Notifications) = 1{ TrayTip ,AutoPot, Bot stopped! Press "Num 7" again to start the bot! } } return AutoHeal: WinGet, l, list, Trove Loop %l% { d := l%a_index% WinGet, pid, PID, ahk_id %d% WinGet, Handle, ID, ahk_pid %pid% Base := getProcessBaseAddress(Handle) MaxAddress := GetAddress(pid, Base, Pointer, MaxOffset) RealAddress := GetAddress(pid, Base, Pointer, RealOffset) MaxValue := ReadMemory(MaxAddress, pid) RealValue := ReadMemory(RealAddress, pid) if (RealValue < MaxValue/100*Heal){ ControlSend, , {q down}, ahk_pid %pid% Sleep, 90 ControlSend, , {q up}, ahk_pid %pid% heal += 1 Sleep, 1000 } } return getProcessBaseAddress(Handle){ Return DllCall( A_PtrSize = 4 ? "GetWindowLong" : "GetWindowLongPtr" , "Ptr", Handle , "Int", -6 , "Int64") } GetAddress(PID, Base, Address, Offset){ PointerBase := base + Address y := ReadMemory(PointerBase,PID) OffsetSplit := StrSplit(Offset, "+") OffsetCount := OffsetSplit.MaxIndex() Loop, %OffsetCount%{ if (a_index = OffsetCount) { Address := (y + OffsetSplit[a_index]) }Else if(a_index = 1) { y := ReadMemory(y + OffsetSplit[a_index],PID) }Else{ y := ReadMemory(y + OffsetSplit[a_index],PID) } } Return Address } ReadMemory(MADDRESS, pid){ VarSetCapacity(MVALUE,4,0) ProcessHandle := DllCall("OpenProcess", "Int", 24, "Char", 0, "UInt", pid, "UInt") DllCall("ReadProcessMemory", "UInt", ProcessHandle, "Ptr", MADDRESS, "Ptr", &MVALUE, "Uint",4) Loop 4 result += *(&MVALUE + A_Index-1) << 8*(A_Index-1) Return, result } ToolTipDisplay(Message) { ToolTip, %Message% SetTimer, RemoveToolTip, 5000 return } RemoveToolTip: SetTimer, RemoveToolTip, Off ToolTip return
not working, got the same results as pointer/offsets, tried different ones too but noone of em r working
@edIT::: guess i got it, if someone more can test
Pointer=0x00ECEE64
MaxOffset=0x1C+0x3C+0x30+0xC4+0x6C+0x388
RealOffset=0x1C+0x3C+0x30+0xC4+0x6C+0x384
Last edited by kdigo.chr; 05-15-2019 at 08:03 PM.
Sorry, i forget the offset :V
Now its working (I tested it)
Code:#NoEnv #SingleInstance, Force #WinActivateForce SendMode Input SetWorkingDir %A_ScriptDir% global Pointer:="0x00ECEE64" global MaxOffset:="0x1C+0x34+0xF0+0x214+0x388" global RealOffset:="0x1C+0x34+0xF0+0x214+0x384" global iniFile := A_ScriptDir . "/hppot_ptr.ini" FirstRun := 1 if (FileExist(iniFile)){ IniRead, Pointer, %iniFile%, Global, Pointer IniRead, MaxOffset, %iniFile%, Global, MaxOffset IniRead, RealOffset, %iniFile%, Global, RealOffset } else{ IniWrite, %Pointer%, %iniFile%, Global, Pointer IniWrite, %MaxOffset%, %iniFile%, Global, MaxOffset IniWrite, %RealOffset%, %iniFile%, Global, RealOffset } if FirstRun = 1 { Gui, font, s10, Verdana Gui, Add, GroupBox, x10 y15 w165 h100, AutoPot Settings Gui, font Gui, Add, text, x20 y35, Heal on Gui, Add, Edit, x60 y32 w27 Number Limit2 vHeal, 50 Gui, Add, text, x90 y35, percent Gui, Add, Checkbox, x20 y65 vNotifications, Windows notifications? Gui, Add, Button, x25 y90 w140 h22 default gSaveSettings, Start Gui, Show, x386 y200 h120 w185, AutoPot } return SaveSettings: Gui, Submit FirstRun = 0 AutoHeal = off Gui, Destroy AutoHeal = on SetTimer, AutoHeal, 100 SoundPlay, %A_WinDir%\Media\Windows Ding.wav If (Notifications)= 1{ TrayTip ,AutoPot, Bot started! Press "Num 7" again to stop the bot! } return NumPad7:: If AutoHeal = off { AutoHeal = on SetTimer, AutoHeal, 100 SoundPlay, %A_WinDir%\Media\Windows Ding.wav If (Notifications)= 1{ TrayTip ,AutoPot, Bot started! Press "Num 7" again to stop the bot! } return } else If AutoHeal = on { AutoHeal = off SetTimer, AutoHeal, Off SoundPlay, %A_WinDir%\Media\Windows Ding.wav sleep 80 SoundPlay, %A_WinDir%\Media\Windows Ding.wav If (Notifications) = 1{ TrayTip ,AutoPot, Bot stopped! Press "Num 7" again to start the bot! } } return AutoHeal: WinGet, l, list, Trove Loop %l% { d := l%a_index% WinGet, pid, PID, ahk_id %d% WinGet, Handle, ID, ahk_pid %pid% Base := getProcessBaseAddress(Handle) MaxAddress := GetAddress(pid, Base, Pointer, MaxOffset) RealAddress := GetAddress(pid, Base, Pointer, RealOffset) MaxValue := ReadMemory(MaxAddress, pid) RealValue := ReadMemory(RealAddress, pid) if (RealValue < MaxValue/100*Heal){ ControlSend, , {q down}, ahk_pid %pid% Sleep, 90 ControlSend, , {q up}, ahk_pid %pid% heal += 1 Sleep, 1000 } } return getProcessBaseAddress(Handle){ Return DllCall( A_PtrSize = 4 ? "GetWindowLong" : "GetWindowLongPtr" , "Ptr", Handle , "Int", -6 , "Int64") } GetAddress(PID, Base, Address, Offset){ PointerBase := base + Address y := ReadMemory(PointerBase,PID) OffsetSplit := StrSplit(Offset, "+") OffsetCount := OffsetSplit.MaxIndex() Loop, %OffsetCount%{ if (a_index = OffsetCount) { Address := (y + OffsetSplit[a_index]) }Else if(a_index = 1) { y := ReadMemory(y + OffsetSplit[a_index],PID) }Else{ y := ReadMemory(y + OffsetSplit[a_index],PID) } } Return Address } ReadMemory(MADDRESS, pid){ VarSetCapacity(MVALUE,4,0) ProcessHandle := DllCall("OpenProcess", "Int", 24, "Char", 0, "UInt", pid, "UInt") DllCall("ReadProcessMemory", "UInt", ProcessHandle, "Ptr", MADDRESS, "Ptr", &MVALUE, "Uint",4) Loop 4 result += *(&MVALUE + A_Index-1) << 8*(A_Index-1) Return, result } ToolTipDisplay(Message) { ToolTip, %Message% SetTimer, RemoveToolTip, 5000 return } RemoveToolTip: SetTimer, RemoveToolTip, Off ToolTip return
thank you sir <3
edit: @hax4lifebb
mine just keeps using pots even with 100% hp D:
edit2: seems i got it to work, just needed to open and close chat and it follows working normally
Last edited by kdigo.chr; 05-15-2019 at 09:35 PM.
Is not working with me is there a new pointers for it?