unkoown function name_need answer :(

acer20006 · July 17, 2009

i read a topic belong to {malu05} about -world of warcraft-

http://www.autoitscript.com/forum/index.php?showtopic=37998&st=0

and win i try to use the code i get msg{{<<SetPrivilege("SeDebugPrivilege", 1)^error_error:unknown function name.??}}

1: i want to know the function of {SeDebugPrivilege}

2: how to solve this problem

malu05 code

; Script Function:
;   Data Stream Manipulator (non-public)
;
; Notes:
; Please Respect The Author of This Code -
;   by not re-releasing this code for intially hacking purpose.
; Please only use this application for testing and research.
; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------

;;================================================================================
;;Includes;
;;================================================================================
# include <NomadMemory.au3>
#include <GUIConstants.au3>
#include <String.au3>
#include <Date.au3>
#include <array.au3>
#Include <Misc.au3>
HotkeySet("+!1","moveup")
HotkeySet("+!2","movex")
HotkeySet("+!3","movey")
HotkeySet("+!0","setval")
HotkeySet("+!9","predef")
HotkeySet("{ESC}","terminate")
;;================================================================================
;;Variable Definition;
;;================================================================================
Dim $datafoundX,$datafoundX2, $datafoundY, $datafoundZ = 0
Dim $Finalrot, $Finallocx,$Finallocy,$Finalrandom
dim $value = 100
dim $knownX = 0x00D0E54C
dim $startsearchX = 0x00000B88
dim $startsearchX5 = 0x00000BBC
dim $knownY = 0x00D0E550
dim $startsearchY = 0x00000B8C
dim $knownZ = 0x00D0E554
dim $startsearchZ = 0x00000B90
dim $memoryX = 0
dim $memoryX2 = 0
dim $memoryY = 0
dim $memoryZ = 0 ;0x184d8b90
dim $addZ =10.5
dim $addX =0.03
dim $processfound = 0
dim $appname = "DSM"
Global $defaultstatus = "Ready"
dim $scanprocess = 0
dim $startX, $startY, $startZ
dim $transyn = 0
;;================================================================================
;;Process front
;;================================================================================
Opt("WinTitleMatchMode", 4)
SetPrivilege("SeDebugPrivilege", 1)
processopen()
func processopen()
Global $ProcessID = WinGetProcess("World of Warcraft","")
Global $offset = 0x1000
while $processfound = 0
    If $ProcessID = -1 Then
        MsgBox(4096, "ERROR", "Failed to detect process.")
        $reply = msgbox(1,$appname,"If world of warcraft is running please enter the name of the process (Ie, WORLD OF WARCRAFT) (uppercase sensitive)")
        if $reply = 2 then 
            Exit
        Else
            $Processnewname = InputBox($appname,"Please enter the name of the process. (Case sensitive)")
            Global $ProcessID = WinGetProcess($Processnewname,"")   
        EndIf
    Else
        $processfound = 1
    EndIf
WEnd
EndFunc
Local $DllInformation = _MemoryOpen($ProcessID)
If @Error Then
    MsgBox(4096, "ERROR", "Failed to open memory for process;" & $ProcessID)
    Exit
EndIf
;;================================================================================
;;GUI Creation
;;================================================================================
GUICreate($appname, 150, 170)
GUICtrlCreateLabel($appname & " by Malu05", 0, 0, 150, 30,BitOr($SS_CENTER ,$SS_SUNKEN))
$statuslabel = GUICtrlCreateLabel ($defaultstatus,0,155,150,15,BitOr($SS_SIMPLE,$SS_SUNKEN))
GUICtrlCreateLabel("Altitude:", 5, 35, 35, 20)
$valueInput = GUICtrlCreateInput ( "0", 50,  34, 30, 20)
GUICtrlCreateLabel("", 0, 60, 150, 3,BitOr($SS_CENTER ,$SS_SUNKEN))
GUICtrlCreateLabel("X Axis Pointer:", 5, 65, 95, 50)
$Xvaluepointer = GUICtrlCreateLabel("Not found", 80, 65, 70, 18,BitOr($SS_CENTER ,$SS_SUNKEN))
GUICtrlCreateLabel("Y Axis Pointer:", 5, 85, 95, 50)
$Yvaluepointer = GUICtrlCreateLabel("Not found", 80, 85, 70, 18,BitOr($SS_CENTER ,$SS_SUNKEN))
GUICtrlCreateLabel("Z Axis Pointer:", 5, 105, 95, 20)
$Zvaluepointer = GUICtrlCreateLabel("Not found", 80, 105, 70, 18,BitOr($SS_CENTER ,$SS_SUNKEN))
GUICtrlCreateLabel("", 0, 130, 150, 3,BitOr($SS_CENTER ,$SS_SUNKEN))
$ontop= GUICtrlCreateCheckbox ("On Top", 90, 135, 120, 18)
$trans= GUICtrlCreateCheckbox ("Transparent", 5, 135, 80, 18)
$PlusOrMinus= GUICtrlCreateCheckbox ("+/-", 90, 35, 120, 18)
GUISetState()
$CurrentLocX = _MemoryRead($knownX , $DllInformation, 'float')
$CurrentLocY = _MemoryRead($knownY , $DllInformation, 'float')
$CurrentLocZ = _MemoryRead($knownZ , $DllInformation, 'float')
TrayTip($appname, "Scanning For Memory Pointers. Do NOT move your character while scanning...", 5, 1)
GUICtrlSetState ( $valueInput, $GUI_DISABLE )

;;================================================================================
;;Pointer Scanner
;;================================================================================
;X Pointer
GUICtrlSetData($Xvaluepointer,"Scanning...")
GUICtrlSetData($statuslabel,"Scanning For Pointer X1...")
while $datafoundX = 0
    $valueSS = _MemoryRead($startsearchX , $DllInformation, 'float')
    if $valueSS = $CurrentLocX Then
        TrayTip($appname, "X Position Pointer1 Found", 5, 1)
        GUICtrlSetData($Xvaluepointer,"Found.")
        $memoryX = "0x" & hex($startsearchX,8)
        $datafoundX = 1
    Else
    $startsearchX = $startsearchX+$offset
    EndIf
WEnd

GUICtrlSetData($Xvaluepointer,"Scanning...")
GUICtrlSetData($statuslabel,"Scanning For Pointer X2...")
while $datafoundX2 = 0
    $valueSS = _MemoryRead($startsearchX5 , $DllInformation, 'float')
    if $valueSS = $CurrentLocX Then
        TrayTip($appname, "X Position Pointer2 Found", 5, 1)
        GUICtrlSetData($Xvaluepointer,"Found.")
        $memoryX2 = "0x" & hex($startsearchX5,8)
        $datafoundX2 = 1
    Else
    $startsearchX5 = $startsearchX5+$offset
    EndIf
WEnd


;Y Pointer
GUICtrlSetData($Yvaluepointer,"Scanning...")
GUICtrlSetData($statuslabel,"Scanning For Pointer Y...")
while $datafoundY = 0
    $valueSS = _MemoryRead($startsearchY , $DllInformation, 'float')
    if $valueSS = $CurrentLocY Then
        TrayTip($appname, "Y Position Pointer Found", 5, 1)
        GUICtrlSetData($Yvaluepointer,"Found.")
        $memoryY = "0x" & hex($startsearchY,8)
        $datafoundY = 1
    Else
    $startsearchY = $startsearchY+$offset
    EndIf
WEnd

;Z Pointer
GUICtrlSetData($Zvaluepointer,"Scanning...")
GUICtrlSetData($statuslabel,"Scanning For Pointer Z...")
while $datafoundZ = 0
    $valueSS = _MemoryRead($startsearchZ , $DllInformation, 'float')
    if $valueSS = $CurrentLocZ Then
        TrayTip($appname, "Z Position Pointer Found - The Manipulator is now ready", 5, 1)
        GUICtrlSetData($Zvaluepointer,"Found.")
        $memoryZ = "0x" & hex($startsearchZ,8)
        $datafoundZ = 1
    Else
    $startsearchZ = $startsearchZ+$offset
    EndIf
WEnd        

GUICtrlSetData($statuslabel,"Ready.")
GUICtrlSetState ( $valueInput, $GUI_ENABLE )
$startX = $CurrentLocX
$startY = $CurrentLocY
$startZ = $CurrentLocZ

while 1
    $scanprocess = 0
    if GUICtrlRead($trans) = 4 Then
        if $transyn = 1 Then
            WinSetTrans( $appname, $appname, 255)
            $transyn = 0
        EndIf
    Else
        if $transyn = 0 Then
            WinSetTrans( $appname, $appname, 200)
            $transyn = 1
        EndIf
    EndIf   
    if GUICtrlRead($ontop) = 1 Then
        WinSetOnTop($appname, "", 1)
    Else
        WinSetOnTop($appname, "", 0)
    EndIf
;nothing
WEnd

;;================================================================================
;;Moveup
;;================================================================================
func moveup()   
$Value = GUICtrlRead($valueInput)
$CurrentLocZ = _MemoryRead($memoryZ , $DllInformation, 'float')
WinActivate("World of Warcraft")
sleep(100)
for $x = 0 to $value Step +1
;Process

if GUICtrlRead($PlusOrMinus) = 4 Then
    $CurrentLocZ = ($CurrentLocZ+$addZ)
Else
    $CurrentLocZ = ($CurrentLocZ-$addZ)
EndIf
_MemoryWrite($memoryZ , $DllInformation,$CurrentLocZ  , 'float')
Next
EndFunc
;;================================================================================
;;Movex
;;================================================================================
func movex()    
$Value = GUICtrlRead($valueInput)
WinActivate("World of Warcraft")
sleep(100)
$CurrentLocX = _MemoryRead($memoryx , $DllInformation, 'float')
for $x = 0 to $value Step +1
send("aaa")
$CurrentLocX = _MemoryRead($memoryx , $DllInformation, 'float')
    if GUICtrlRead($PlusOrMinus) = 4 Then
        $CurrentLocX = ($CurrentLocX+$addX)
    Else
        $CurrentLocX = ($CurrentLocX-$addX)
    EndIf
    _MemoryWrite($memoryX , $DllInformation, $CurrentLocX  , 'float')
    ;_MemoryWrite($memoryX2 , $DllInformation,($CurrentLocX+$addX)  , 'float')
    ;sleep(1)
    $scanprocess = $scanprocess + 1
    GUICtrlSetData($statuslabel,$scanprocess)
next
send("aaa")
EndFunc
;;================================================================================
;;MoveY
;;================================================================================
func movey()    
$Value = GUICtrlRead($valueInput)
WinActivate("World of Warcraft")
sleep(100)
$CurrentLocy = _MemoryRead($memoryy , $DllInformation, 'float')
for $x = 0 to $value Step +1
    send("aaa")
$CurrentLocY = _MemoryRead($memoryY , $DllInformation, 'float')
if GUICtrlRead($PlusOrMinus) = 4 Then
    $CurrentLocY = ($CurrentLocY+$addX)
Else
    $CurrentLocY = ($CurrentLocY-$addX)
EndIf
_MemoryWrite($memoryY , $DllInformation, $CurrentLocY  , 'float')
next
send("aaa")
EndFunc

;;================================================================================
;;Setval
;;================================================================================
func setval()
$addX=inputbox("X Pos Value","Set Value of Xaxis")
EndFunc ;==>setval

;;================================================================================
;;Predef
;;================================================================================
func Predef()
$portX=inputbox("Portal","Enter Position X")
$portY=inputbox("Portal","Enter Position Y")
$portZ=inputbox("Portal","Enter Position Z")
_MemoryWrite($memoryX , $DllInformation,$portX  , 'float')
_MemoryWrite($memoryY , $DllInformation,$portY  , 'float')
_MemoryWrite($memoryZ , $DllInformation,$portZ  , 'float')
EndFunc ;==>setval


;;================================================================================
;;MouseMovePlus (thx to Oxin8 for this code)
;;================================================================================
Func _MouseMovePlus($X, $Y,$absolute = 0)
        Local $MOUSEEVENTF_MOVE = 1
    Local $MOUSEEVENTF_ABSOLUTE = 32768
    DllCall("user32.dll", "none", "mouse_event", _
            "long",  $MOUSEEVENTF_MOVE + ($absolute*$MOUSEEVENTF_ABSOLUTE), _
            "long",  $X, _
            "long",  $Y, _
            "long",  0, _
        "long",  0)
EndFunc
;;================================================================================
;;Predef
;;================================================================================
func terminate()
    sleep(100)
;MouseUp("right")
send("{a up}")
        exit 0
EndFunc ;==>Terminate

DCCD · July 17, 2009

Maybe remove space!!

# include <NomadMemory.au3>

To

#include <NomadMemory.au3>

.

acer20006 · July 17, 2009

Maybe remove space!!
# include <NomadMemory.au3>
To
#include <NomadMemory.au3>
.

#include <NomeadMemory.au3> i made the space to checke the script coz it get error too at start

so any one can help me at this problem

Sign In

unkoown function name_need answer :(

Recommended Posts

acer20006

DCCD

acer20006

Create an account or sign in to comment

Create an account

Sign in

Browse

AutoIt Resources

Release

Beta