AutoIt WoW Bot "Pseudocode" Frage

06/22/2011 10:06 Kilinat#1
Hi Community :)

Ich hab mir in letzter Zeit ein bischen was zu MemoryReading angeschaut und denke / hoffe das ich in nächster Zeit auch mal was damit anstellen kann.

Mein erste Ziel wäre ein, wie gesagt, WoW Bot, der Anti-Afk wo rum steht, und nach Mobs IM SPEICHER sucht, und wenn er was gefunden hat, eine bestimmte Rotation macht, das der Mob auch stirbt.

So jetzt zur Frage wie man das angeht:

Wie suche ich Gegner im Speicher ?
Und wenn ich was gefunden habe einfach mit if($MobImTarget != null) Then ... ?

Vielleicht könnt ihr mir da ja ein bischen helfen.
06/22/2011 11:45 Ludder231#2
Vllt mit Cheatengine das Mob rausuchen iwie glaub ich ;)
06/22/2011 12:35 Kilinat#3
Ähm, nein denk ich nicht, da es ja x Mobs in WoW gibt, und mir dabei einer wenig helfen würde.

Hab ein zweites Problem und zwar:

Code:
C:\Users\Flo\Desktop\Test.au3 (16) : ==> Error opening the file.: 
#include <NomadMemory.au3> 

>Exit code: 1    Time: 0.242
Deswegen funktioniert wahrscheinlich bei mir auch die Funktion "_MemoryRead" nicht. Wo isn da ein Fehler ?

MfG Kilinat
06/22/2011 12:37 Ludder231#4
Hast du überhaupt eine nomadmemory udf die du includen kannst? Die ist nämlich nicht standartmäßig dabei.
06/22/2011 13:05 BlackHybrid#5
Mit MemoryRead und co. wirst du da nicht weit kommen. Da müsstest du ehr mit ASM bzw .dlls arbeiten. Es gibt auch eine BlackMagicAU3.au3 UDF, die Speziell für WoW ist.
Für einen Privat oder den Offi server?
06/22/2011 13:14 Kilinat#6
Ja mit BlackMagic hab ich in C# schon ein bischen gearbeitet, wusste nicht das es dafür auch was für AutoIt gibt. Wo bekomm ich denn die BlackMagicAu3.au3 her ?

Und der Bot soll später mal, da es noch eine relativ lange Lern- und Testphase geben wird :D , für die offiziellen Server sein.

MfG
06/22/2011 13:25 BlackHybrid#7
Weist du überhaupt wie du Warden später umgehen willst.
Naja hier die UDF
PHP Code:
#include-once

#Region CONSTANTS
Const $PROCESS_ALL_ACCESS = 0x1F0FFF
Const $PROCESS_SUSPEND_RESUME = 0x0800
Const $PROCESS_TERMINATE = 0x0001
Const $PROCESS_VM_OPERATION = 0x0008
Const $PROCESS_VM_READ = 0x0010
Const $PROCESS_VM_WRITE = 0x0020
Const $SYNCHRONIZE = 0x00100000
#EndRegion

Global $m_Kernel32, $m_User32
Global $m_IsInitialized = False

;-------------------------------------------------
; _BMInitialize()
;-------------------------------------------------
; Desc: This function needs to be called before
;        using any other functions contained in
;        this UDF.
;-------------------------------------------------
Func _BMInitialize()
    $m_Kernel32 = DllOpen("kernel32.dll")
    If $m_Kernel32 = -1 Then
        MsgBox(0x10, "Error Opening Kernel32.dll", "Could not open Kernel32.dll")
        Return
    EndIf
    
    $m_User32 = DllOpen("user32.dll")
    If $m_User32 = -1 Then
        MsgBox(0x10, "Error Opening User32.dll", "Could not open User32.dll")
        Return
    EndIf
    
    __SetPrivilege("SeDebugPrivilege", 1)
    
    $m_IsInitialized = True
EndFunc ;End _BMInitialize

;-------------------------------------------------
; _BMDispose()
;-------------------------------------------------
; Desc:    This function should be called after the
;        user is done with the functions in this
;        UDF.
;-------------------------------------------------
Func _BMDispose()
    If $m_Kernel32 <> -1 Then DllClose($m_Kernel32)
    If $m_User32 <> -1 Then DllClose($m_User32)
    $m_IsInitialized = False
EndFunc ;End _BMDispose

;-------------------------------------------------
; _BMOpenProcess()
;-------------------------------------------------
; Desc: This should be called before manipulating
;        the process' memory.
;-------------------------------------------------
Func _BMOpenProcess($PID, $UsePID = True, $AccessRights = $PROCESS_ALL_ACCESS)
    If Not $m_IsInitialized Then
        SetError(1)
        Return 0
    EndIf
    
    Local $l_ret
    
    
    If Not $UsePID Then
        Local $l_hWnd = $PID
        $l_ret = DllCall($m_User32, "dword", "GetWindowThreadProcessId", "hwnd", $l_hWnd, "dword*", 0)
        If Not @error Then
            $PID = $l_ret[2]
            If $PID = 0 Then
            MsgBox(0x10, "Null Process ID", "Start WoW before starting NinjaSkid!")

                Return 0
            EndIf
        Else
            MsgBox(0x10, "Error Getting ProcessId", "Could not obtain the ID of the process in question.")
            Return 0
        EndIf
    EndIf
    
    
    Local $l_hProcess
    
    $l_ret = DllCall($m_Kernel32, "ptr", "OpenProcess", "dword", $AccessRights, "int", 0, "dword", $PID)
    If Not @error Then
        $l_hProcess = $l_ret[0]
        If $l_hProcess = 0 Then
            MsgBox(0x10, "Null Process Handle", "The process handle obtained is null.")
            Return 0
        EndIf
    Else
        MsgBox(0x10, "Error Getting Process Handle", "Could not obtain a handle to the process in question.")
        Return 0
    EndIf
    
    Return $l_hProcess
EndFunc

;-------------------------------------------------
; _BMCloseHandle()
;-------------------------------------------------
; Desc: This should be called on the handle that
;        is returned by _BMOpenProcess().
;-------------------------------------------------
Func _BMCloseHandle($Handle)
    If $m_IsInitialized Then
        DllCall($m_Kernel32, "dword", "CloseHandle", "ptr", $Handle)
    EndIf
EndFunc

#Region Read Memory
Func _BMReadRawMemory($Handle, $Address, ByRef $Struct)
    If Not $m_IsInitialized Then
        SetError(1)
        Return 0
    EndIf
    
    If DllStructGetPtr($Struct) = 0 Or DllStructGetSize($Struct) = 0 Then
        SetError(2)
        Return 0
    EndIf
    
    Local $l_ret
    
    $l_ret = DllCall($m_Kernel32, "int", "ReadProcessMemory", _
                        "ptr", $Handle, _
                        "dword", $Address, _
                        "ptr", DllStructGetPtr($Struct), _
                        "dword", DllStructGetSize($Struct), _
                        "dword*", 0)
    
    If @error Then
        $l_Buffer = 0
        MsgBox(0x10, "ReadProcessMemory Error", "Could not read process' memory.")
        SetError(3)
        Return 0
    EndIf
    
    Return 1
EndFunc

Func _BMReadMemory($Handle, $Address, $Type)
    If Not $m_IsInitialized Then
        SetError(1)
        MsgBox(0x10, "Success!!!!", "Error1")
        Return 0
    EndIf
    
    Local $l_Buffer = DllStructCreate($Type)
        ;MsgBox(0x10, "OH NO!")    
    _BMReadRawMemory($Handle, $Address, $l_Buffer)
    If @error Then
        $l_Buffer = 0
        SetError(2 + BitShift(@error, -16))
        MsgBox(0x10, "Success!!!!", "Error2")
        Return 0
    EndIf
    
    Local $l_Ret = DllStructGetData($l_Buffer, 1)
    $l_Buffer = 0
    Return $l_Ret
EndFunc

Func _BMReadBytes($Handle, $Address, $Length)
    If Not $m_IsInitialized Then
        SetError(1)
        MsgBox(0x10, "Success!!!!", "Error1b")
        Return 0
    EndIf
    
    Local $l_Buffer = DllStructCreate("ubyte[" & $Length & "]")
    
    _BMReadRawMemory($Handle, $Address, $l_Buffer)
    If @error Then
        $l_Buffer = 0
        SetError(2 + BitShift(@error, -16))
        MsgBox(0x10, "Success!!!!", "Error2b")
        Return 0
    EndIf
    
    Dim $l_ret[$Length]
    
    For $i = 1 To UBound($l_ret)
        $l_ret[$i - 1] = DllStructGetData($l_Buffer, 1, $i)
    Next
    
    $l_Buffer = 0
    Return $l_ret
EndFunc

Func _BMReadASCIIString($Handle, $Address, $Length)
    Local $l_Ret = _BMReadMemory($Handle, $Address, "char[" & $Length & "]")
    Return $l_Ret ;Maybe check for occurrence of \0 and autotrim?
EndFunc

Func _BMReadUnicodeString($Handle, $Address, $Length)
    Return _BMReadMemory($Handle, $Address, "wchar[" & $Length & "]")
EndFunc

Func _BMReadDouble($Handle, $Address)
    Return _BMReadMemory($Handle, $Address, "double")
EndFunc

Func _BMReadFloat($Handle, $Address)
    
    $returnValue = _BMReadMemory($Handle, $Address, "float")
    if IsFloat($ReturnValue) then
            Return $returnValue 
        EndIf
    msgbox(0x10,"","isfloat failed")
EndFunc

Func _BMReadUInt($Handle, $Address)
    $returnValue = _BMReadMemory($Handle, $Address, "uint")
    if IsInt($ReturnValue) then
            Return $returnValue 
        EndIf
    msgbox(0x10,"","isint failed on uint")
    
EndFunc

Func _BMReadInt($Handle, $Address)
    $returnValue = _BMReadMemory($Handle, $Address, "int")
    if  IsInt($ReturnValue) then
            Return $returnValue 
        EndIf
    msgbox(0x10,"","isint failed")
    
EndFunc

Func _BMReadUShort($Handle, $Address)
    Return _BMReadMemory($Handle, $Address, "ushort")
EndFunc

Func _BMReadShort($Handle, $Address)
    Return _BMReadMemory($Handle, $Address, "short")
EndFunc

Func _BMReadUByte($Handle, $Address)
    Return  _BMReadMemory($Handle, $Address, "ubyte")
EndFunc

Func _BMReadByte($Handle, $Address)
    Return _BMReadMemory($Handle, $Address, "byte")
EndFunc
#EndRegion

#Region Write Memory
Func _BMWriteRawMemory($Handle, $Address, ByRef $Struct)
    If Not $m_IsInitialized Then
        SetError(1)
        Return False
    EndIf
    
    If DllStructGetPtr($Struct) = 0 Or DllStructGetSize($Struct) = 0 Then
        SetError(2)
        Return False
    EndIf
    
    Local $l_ret
    
    $l_ret = DllCall($m_Kernel32, "int", "WriteProcessMemory", _
                        "ptr", $Handle, _
                        "dword", $Address, _
                        "ptr", DllStructGetPtr($Struct), _
                        "dword", DllStructGetSize($Struct), _
                        "dword*", 0)
    
    If @error Then
        MsgBox(0x10, "WriteProcessMemory Error", "Could not write to process' memory.")
        SetError(3)
        Return False
    EndIf
    
    Return ($l_ret[0] <> 0)
EndFunc

Func _BMWriteMemory($Handle, $Address, $Value, $Type)
    If Not $m_IsInitialized Then
        SetError(1)
        Return False
    EndIf
    
    Local $l_Buffer = DllStructCreate($Type)
    DllStructSetData($l_Buffer, 1, $Value)
    
    Local $l_ret = _BMWriteRawMemory($Handle, $Address, $l_Buffer)
    If @error Or $l_ret = 0 Then
        $l_Buffer = 0
        SetError(2 + BitShift(@error, -16))
        Return False
    EndIf
    
    Return $l_ret
EndFunc

Func _BMWriteBytes($Handle, $Address, $ByteArray)
    If Not $m_IsInitialized Then
        SetError(1)
        Return False
    EndIf
    
    If Not IsArray($ByteArray) Then
        SetError(2)
        Return False
    EndIf
    
    Local $l_Buffer = DllStructCreate("ubyte[" & UBound($ByteArray) & "]")
    
    For $i = 1 To UBound($ByteArray)
        DllStructSetData($l_Buffer, $i, $ByteArray[$i - 1])
    Next
    
    Local $l_ret = _BMWriteRawMemory($Handle, $Address, $l_Buffer)
    
    $l_Buffer = 0
    
    Return $l_ret
EndFunc

Func _BMWriteDouble($Handle, $Address, $Value)
    Return _BMWriteMemory($Handle, $Address, $Value, "double")
EndFunc

Func _BMWriteFloat($Handle, $Address, $Value)
    Return _BMWriteMemory($Handle, $Address, $Value, "float")
EndFunc

Func _BMWriteUInt($Handle, $Address, $Value)
    Return _BMWriteMemory($Handle, $Address, $Value, "dword")
EndFunc

Func _BMWriteInt($Handle, $Address, $Value)
    Return _BMWriteMemory($Handle, $Address, $Value, "int")
EndFunc

Func _BMWriteUShort($Handle, $Address, $Value)
    Return _BMWriteMemory($Handle, $Address, $Value, "ushort")
EndFunc

Func _BMWriteShort($Handle, $Address, $Value)
    Return _BMWriteMemory($Handle, $Address, $Value, "short")
EndFunc

Func _BMWriteUByte($Handle, $Address, $Value)
    Return _BMWriteMemory($Handle, $Address, $Value, "ubyte")
EndFunc

Func _BMWriteByte($Handle, $Address, $Value)
    Return _BMWriteMemory($Handle, $Address, $Value, "byte")
EndFunc
#EndRegion

;==================================================================================
; Function:            SetPrivilege( $privilege, $bEnable )
; Description:        Enables (or disables) the $privilege on the current process
;                   (Probably) requires administrator privileges to run
;
; Author(s):        Larry (from autoitscript.com's Forum)
; Notes(s):
; http://www.autoitscript.com/forum/index.php?s=&showtopic=31248&view=findpost&p=223999
;==================================================================================
Func __SetPrivilege( $privilege, $bEnable )
    Const $MY_TOKEN_ADJUST_PRIVILEGES = 0x0020
    Const $MY_TOKEN_QUERY = 0x0008
    Const $MY_SE_PRIVILEGE_ENABLED = 0x0002
    Local $hToken, $SP_auxret, $SP_ret, $hCurrProcess, $nTokens, $nTokenIndex, $priv
    $nTokens = 1
    $LUID = DLLStructCreate("dword;int")
    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],   _
            "int",BitOR($MY_TOKEN_ADJUST_PRIVILEGES,$MY_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","int","LookupPrivilegeValue","str","","str",$priv,   _
                    "ptr",DLLStructGetPtr($LUID))
            If $ret[0] Then
                If $bEnable Then
                    DLLStructSetData($TOKEN_PRIVILEGES,2,$MY_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","int","AdjustTokenPrivileges","hwnd",$hToken,"int",0,   _
                "ptr",DllStructGetPtr($TOKEN_PRIVILEGES),"int",DllStructGetSize($NEWTOKEN_PRIVILEGES),   _
                "ptr",DllStructGetPtr($NEWTOKEN_PRIVILEGES),"int*",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","int","CloseHandle","hwnd",$hToken)
    If Not $ret[0] And Not $SP_auxret[0] Then Return 0
    return $ret[0]
EndFunc  ;==>SetPrivilege 
06/22/2011 14:00 Kilinat#8
Nein ich habe keine Ahnung wie ich Warden später umgehen werde. Aber ich hoffe da komm ich auch noch irgendwie drauf :)

So und wie include ich diese Datei jetzt in mein Script ?
06/22/2011 14:03 BlackHybrid#9
Pach die au3 in deinen Include Ordner, der im AutoIt3 Ordner ist. Und dann oben Include und den Datename hinschreiben.
06/22/2011 14:49 Kilinat#10
Kannst du mir vielleicht auf meine PM antworten. Kenn mich halt jetzt noch nicht so gut aus mit der BlackMagic UDF.

Weiß nicht welche Funtkionen etc. Vielleicht kannst mir ja helfen.

MfG
06/22/2011 22:51 lolkop#11
man benötigt für das arbeiten mit dem speicher eigentlich keine udfs... ich persöhnlich finde diese meist unnötig kompliziert, und davon abgesehen sind die meisten auch recht unvollständig.

die funktionen die man benötigt, kann man sich mithilfe der msdn datenbank auch recht schnell selbst definieren.

ich für meinen teil arbeite viel mit inline asm und habe mir deshalb vor einiger zeit folgende udf für meinen bedarf erstellt:

natürlich wäre es möglich alle parameter der original funktionen auch zu übernehmen. da aber zumindest in meinen scripten einige parameter sowieso statisch feststanden, kann man auf diese auch sehr gut verzichten.