Register for your free account! | Forgot your password?

Go Back   elitepvpers › Coders Den › AutoIt
You last visited: Today at 19:23

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Auto Pots

Discussion on Auto Pots within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
majidemo's Avatar
 
elite*gold: 0
Join Date: Apr 2008
Posts: 347
Received Thanks: 1,286
Auto Pots

i currently have a code for a auto potter,
but i have a problem. in the game QWE will heal HP MP & Poison,
if i use send() it works okay...
but i want to use ControlSend(), because it works even if game window is not focused. but it doesnt work, it doesnt PRESS the QWE, but it will TYPE..

anyway for pressing Q W E on keyboard code that works to an specific window.

PHP Code:
#include <NomadMemory3.au3>
#include <GUIConstantsEx.au3>

;Local $rNew,$rOld
Local $CurHPOffset
[7] = [0, Dec("18570DC"), Dec("4338"), Dec("3C"), Dec("6C"), Dec(0), Dec("C0")]
Local $MaxHPOffset[7] = [0, Dec("18570DC"), Dec("4338"), Dec("3C"), Dec("6C"), Dec(0), Dec("C8")]
Local $CurMPOffset[7] = [0, Dec("18570DC"), Dec("4338"), Dec("3C"), Dec("6C"), Dec(4), Dec("C0")]
Local $MaxMPOffset[7] = [0, Dec("18570DC"), Dec("4338"), Dec("3C"), Dec("6C"), Dec(4), Dec("C8")]
Local $CurEXPOffset[3] = [0, Dec("7198BC"), Dec("128")]
Local $MaxEXPOffset[3] = [0, Dec("7197B4"), Dec("101C")]
Local $KillerOffset[2] = [0, Dec("116")]

$hMemoryOpen = _OpenMemory("KhanClient.exe")
$HPMPfADDR = _GetFinalAddress($hMemoryOpen,"18570DC")
$CurEXPfADDR = _GetFinalAddress($hMemoryOpen,"7198BC")
$MaxEXPfADDR = _GetFinalAddress($hMemoryOpen,"7197B4")
$KillerfADDR = _GetFinalAddress($hMemoryOpen,"3198BC")

$rCurHPold = _ReadFromPointer($HPMPfADDR,$hMemoryOpen,$CurHPOffset)
$rMaxHPold = _ReadFromPointer($HPMPfADDR,$hMemoryOpen,$MaxHPOffset)
$rCurMPold = _ReadFromPointer($HPMPfADDR,$hMemoryOpen,$CurMPOffset)
$rMaxMPold = _ReadFromPointer($HPMPfADDR,$hMemoryOpen,$MaxMPOffset)
$rCurEXPold = _ReadFromPointer($HPMPfADDR,$hMemoryOpen,$CurEXPOffset)
$rMaxEXPold = _ReadFromPointer($HPMPfADDR,$hMemoryOpen,$MaxEXPOffset)

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Khan Tools", 157, 181, 501, 202)
$hp_prog = GUICtrlCreateProgress(15, 20, 121, 16)
$hp_slider = GUICtrlCreateSlider(15, 40, 121, 16)
GUICtrlSetData($hp_slider, 50)
$mp_prog = GUICtrlCreateProgress(15, 65, 121, 16)
$mp_slider = GUICtrlCreateSlider(15, 85, 121, 16)
GUICtrlSetData($mp_slider, 50)
$exp_prog = GUICtrlCreateProgress(15, 120, 121, 16)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $msg 
= GUIGetMsg()
    If 
$msg = $GUI_EVENT_CLOSE Then ExitLoop    
    
If ProcessExists("KhanClient.exe") = 0 Then
        ExitLoop
    
EndIf
    
    ;
Declaring Variables
    $rCurHPnew 
= _ReadFromPointer($HPMPfADDR,$hMemoryOpen,$CurHPOffset)
    
$rMaxHPnew = _ReadFromPointer($HPMPfADDR,$hMemoryOpen,$MaxHPOffset)
    
$rCurMPnew = _ReadFromPointer($HPMPfADDR,$hMemoryOpen,$CurMPOffset)
    
$rMaxMPnew = _ReadFromPointer($HPMPfADDR,$hMemoryOpen,$MaxMPOffset)
    
$rCurEXPnew = _ReadFromPointer($CurEXPfADDR,$hMemoryOpen,$CurEXPOffset)
    
$rMaxEXPnew = _ReadFromPointer($MaxEXPfADDR,$hMemoryOpen,$MaxEXPOffset)
    
$hp_perc = Round(($rCurHPnew/$rMaxHPnew)*100, 1)
    
$mp_perc = Round(($rCurMPnew/$rMaxMPnew)*100, 1)
    
$exp_perc = Round(($rCurEXPnew/$rMaxEXPnew)*100, 1)
    
    ;
Setting Default Data
    GUICtrlSetData
($hp_prog, $hp_perc, "")
    
GUICtrlSetData($mp_prog, $mp_perc, "")qw
    GUICtrlSetData
($exp_prog, $exp_perc, "")
    
;----------------------------------------------------
;
Problem here, this works but not as planned.
;----------------------------------------------------
    If 
$hp_perc < GUICtrlRead($hp_slider) Then
        Send
("{q}")
    EndIf
    
    If 
$mp_perc < GUICtrlRead($mp_slider) Then
        Send
("{w}")
    EndIf    
;----------------------------------------------------
; 
I want it to work even if Khan Power window is not active
;----------------------------------------------------

WEnd
_MemoryClose
($hMemoryOpen)

Func _OpenMemory($sProcess)
    
$aOpen = _MemoryOpen(ProcessExists($sProcess))
    If 
$aOpen = 0 Then
    
Switch @error
    
Case 1
    MsgBox
(0, "Error", "Error opening Process: Process ID is invalid.")
    Case 
2
    MsgBox
(0, "Error", "Error opening Process: Failed to open Kernel32.dll.")
    Case 
3
    MsgBox
(0, "Error", "Error opening " & $aOpen & ".")
    EndSwitch
    Exit
    EndIf

    Return 
$aOpen
EndFunc

Func _GetFinalAddress
($hMemory, $xStaticOffset)
    
Local $iStaticOffset, $iBaseAddress

    $iBaseAddress 
= _MemoryGetBaseAddress($hMemory, 1)
    If 
$iBaseAddress = 0 Then
    
Switch @error
    
Case 1
    MsgBox
(0, "Error", "Error getting Base Address: Invalid Handle to open Process.")
    Case 
2
    MsgBox
(0, "Error", "Error getting Base Address: Failed to find correct allocation Address.")
    Case 
3
    MsgBox
(0, "Error", "Error getting Base Address: Failed to read from the specified Process.")
    EndSwitch
    Exit
    EndIf

    Return 
"0x" & Hex($iBaseAddress + Dec($xStaticOffset))
EndFunc

Func _ReadFromPointer
($xFinalAddress,$hMemory,$aOffset,$sType = "dword")
    
Local $aRead

    $aRead 
= _MemoryPointerRead($xFinalAddress, $hMemory, $aOffset, $sType)
    If 
$aRead = 0 Then
    
Switch @error
    
Case 1
    MsgBox
(0, "Error", "Error reading Pointer: The specified Offset isn't an Array")
    Case 
2
    MsgBox
(0, "Error", "Error reading Pointer: Invalid Handle to open Process.")
    Case 
3
    MsgBox
(0, "Error", "Error reading Pointer: Type is not a String")
    Case 
4
    MsgBox
(0, "Error", "Error reading Pointer: Type is unsupported or unknown")
    Case 
5
    MsgBox
(0, "Error", "Error reading Pointer: Failed to allocate the memory needed for the DllStructure")
    Case 
6
    MsgBox
(0, "Error", "Error reading Pointer: Failed to allocate the memory needed for " & $sType)
    Case 
7
    MsgBox
(0, "Error", "Error reading Pointer: Failed to read from the specified Process")
    EndSwitch
    Exit
    Else
    Return 
$aRead[1]
    EndIf
EndFunc 
majidemo is offline  
Thanks
1 User
Old   #2
 
majidemo's Avatar
 
elite*gold: 0
Join Date: Apr 2008
Posts: 347
Received Thanks: 1,286
encase most people here are german i have it translated.

Im Moment habe ich einen Code für ein auto Töpfer,
aber ich habe ein Problem. im Spiel QWE heilt HP MP & Poison,
Wenn ich send () funktioniert es okay ...
aber ich möchte ControlSend () verwenden, weil es funktioniert, auch wenn Spiel-Fenster nicht fokussiert wird. aber es tut wirken, tut es der PRESS QWE, aber es wird TYPE ..

sowieso zum Pressen QWE auf Tastatur-Code, der auf ein spezifisches Fenster funktioniert.
majidemo is offline  
Old   #3
 
93hacker's Avatar
 
elite*gold: 0
Join Date: Jun 2010
Posts: 171
Received Thanks: 52
Verbesserung:
Im Moment habe ich einen Code für ein auto Potter,
aber ich habe ein Problem. im Spiel QWE heilt HP MP & Poison(gift???),
Wenn ich send () funktioniert es normal ...
aber ich möchte ControlSend () verwenden, weil es besser funktioniert???, auch wenn Spiel-Fenster nicht fokussiert wird. Aber es wirkt nicht, aber es presst nicht: PRESS QWE, aber es wird TYPE ..???

sowieso zum Pressen QWE auf Tastatur-Code, der auf ein spezifisches Fenster funktioniert.

Has this game a hack guard? (sry for my bad english)
93hacker is offline  
Old   #4
 
majidemo's Avatar
 
elite*gold: 0
Join Date: Apr 2008
Posts: 347
Received Thanks: 1,286
No, no hack guard.. Just hack game directly, i can even use wpe,rpe & ce.. Game name is Khan Online.. Game is NOT secure.. Very easy to hack.. Your english is good
majidemo is offline  
Old   #5
 
majidemo's Avatar
 
elite*gold: 0
Join Date: Apr 2008
Posts: 347
Received Thanks: 1,286
can anybody help? )
majidemo is offline  
Old   #6
 
omer36's Avatar
 
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
how you try to " ControlSend() " ??
omer36 is offline  
Old   #7
 
majidemo's Avatar
 
elite*gold: 0
Join Date: Apr 2008
Posts: 347
Received Thanks: 1,286
yes i tried ControlSend() but NOT work, it TYPES/WRITES the Q or W or E, not PRESS on keyboard...
majidemo is offline  
Old   #8
 
majidemo's Avatar
 
elite*gold: 0
Join Date: Apr 2008
Posts: 347
Received Thanks: 1,286
help?please....
majidemo is offline  
Reply


Similar Threads Similar Threads
Auto Pots
07/10/2018 - Dekaron - 1 Replies
Hi there, Did someone find a way to have all pots work as autopots since 3.0.4 ? PLEASE advise ! Thanks !
UCE Auto Pots
06/19/2009 - Dekaron - 0 Replies
I cannot seem to get the Auto Pots to work with UCE, it always crashes. This is my script:
i need auto pots pls!!
05/18/2009 - Dekaron Private Server - 0 Replies
can some give or share to me auto pots works for dekaron extreme?. thanks you so much!!!
Auto Fire Circler/Inferno Auto Drink Pots.
05/28/2007 - CO2 Exploits, Hacks & Tools - 2 Replies
*Edit - by a1blaster, Repost of varza1999 work! File removed! Read my post below* This is not my work i am just giving back elitepvpers community what they deserve. guys this bot auto lvls fire taos using fire cirlce and it drinks pots according to your mana level. This Bot Is NOT Made by me i am just giving it to everyone. +1 Karmas lol if you dont mind :p



All times are GMT +2. The time now is 19:24.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.