Sign in to follow this  
Followers 0
acer20006

unkoown function name_need answer :(

3 posts in this topic

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

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0