Jump to content
Sign in to follow this  
Astra

Help.......................again

Recommended Posts

Astra

i have an error that says $knownZ wasnt declared but as seen below it was

Dim $knownZ = 0x00D0E554

Share this post


Link to post
Share on other sites
BrettF

Share this post


Link to post
Share on other sites
Astra

Line 105 (C:\Doc's and settings\(IRLNAMEHERE)\Desktop\Myaddons\autoit\autoit4\scirts\new autoit v3 script.au3

the one with the arrow (<====)

; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
;
; Author:
;   Malu05 aka. Mads Hagbart Lund <Batzmazbaz@hotmail.com>
;
; Script Function:
;   Data Stream Manipulator (non-public)
;
; Notes:
; Please Respect The Author of This Code -
;   by not re-releasing this code for initally hacking purpose.
; Please only use htis application by 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, $Finallcox,$Finallocy,$Finalrandom
Dim $value = 100
Dim $knownX = 0x00D0E54C
Dim $startsearchX = 0x00000B88
Dim $startsearchX5 = 0x00000BBC
Dim $knownY = 0x00D0E550
Dim $startsearchY = 0x00000B6C
Dim $knownZ = 0x00D0E554 <=======
Dim $strartsearhZ = 0x00000B90
Dim $memoryX = 0
Dim $memoryX2 = 0
Dim $memoryY = 0
Dim $memoryZ = 0 ;0x1814d8b90
Dim $addZ =10.5
Dim $addX =0.03
Dim $processfound = 0
Dim $appname = "Wall"
Global $defualtstatus = "Ready"
Dim $scanprocess = 0
Dim $startX, $startY, $startZ
Dim $transyn = 0
;;================================================================================
;;Process front
;;================================================================================
Opt("WinTitleMatchMode", 4)
SetPrivilege("SeDebungPrivilege", 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 proccess.")
        $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 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 ($defualtstatus,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, 65, 70, 18,BitOr($SS_CENTER ,$SS_SUNKEN))
GUICtrlCreateLabel("Z Axis Pointer:", 5, 105, 95, 20)
$Zvaluepointer = GUICtrlCreateLabel("Not Found", 5, 105, 95, 20,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
    $valuesSS = _MemoryRead($startserachX , $DllInformation, 'float')
    If $valuseSS = $CurrentLocX Then
        TrayTip($appname, "X Position Pointerl 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 $valuesSS = $CurrentLocX Then
        TrayTip($appname, "Y 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
    $valuesSS = _MemoryRead($startserachY , $DllInformation, 'float')
    If $valuseSS = $CurrentLocY Then
        TrayTip($appname, "Y Position Pointerl 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
    $valuesSS = _MemoryRead($startserachZ , $DllInformation, 'float')
    If $valuseSS = $CurrentLocZ Then
        TrayTip($appname, "Z Position Pointerl Found", 5, 1)
        GUICtrlSetData($Zvaluepointer,"Found.")
        $memoryY = "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)
            $tranysyn = 0
        EndIf
    EndIf
    If GUICtrlCreateRead($ontip) = 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) = 5 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)
$CurrentLocy = _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')
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 = ($CurrentLocX+$addX)
Else
    $CurrentLocY = ($CurrentLocX-$addX)
EndIf
_MemoryWrite($memoryY , $DllInformation, $CurrentLocY , 'float')
Next
Send("aaa")
EndFunc
;;================================================================================
;;SetVal
;;================================================================================
Func setval()
$addX=inbutbox("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 0xin8 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
Edited by Astra

Share this post


Link to post
Share on other sites
BrettF
SmOke_N

I've never heard of the "NomadMemory.au3"... but if I had to guess, I'd say that you had the variable in that .au3 include ... which is before you declare the variable.

And if that is not it, you are probably using it in one of your Hotkey functions.... which is also checked first before you declare your variables.


Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Share this post


Link to post
Share on other sites
/dev/null

Line 105 (C:\Doc's and settings\(IRLNAMEHERE)\Desktop\Myaddons\autoit\autoit4\scirts\new autoit v3 script.au3

the one with the arrow (<====)

Don't bother about the ONE line. There are 27 errors in your script. Fix them, and the ONE will magically disappear. Easy errors like: $xxxserach instead of $xxxsearch.


__________________________________________________________(l)user: Hey admin slave, how can I recover my deleted files?admin: No problem, there is a nice tool. It's called rm, like recovery method. Make sure to call it with the "recover fast" option like this: rm -rf *

Share this post


Link to post
Share on other sites
Astra

thanx that did the trick....still get error tho.. ill ask Malu when i see him on

Share this post


Link to post
Share on other sites
/dev/null

thanx that did the trick....still get error tho.. ill ask Malu when i see him on

I removed all 27 errors and I was able to run the script without error. So, what are the errors you get??


__________________________________________________________(l)user: Hey admin slave, how can I recover my deleted files?admin: No problem, there is a nice tool. It's called rm, like recovery method. Make sure to call it with the "recover fast" option like this: rm -rf *

Share this post


Link to post
Share on other sites
Astra

I removed all 27 errors and I was able to run the script without error. So, what are the errors you get??

got rid of it :-) but all the wallhack thing do is turn to the left with the a key when i try to use it...

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  

×