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

Astra · June 12, 2007

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

Dim $knownZ = 0x00D0E554

BrettF · June 12, 2007

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

Could you please post your full code?? Thankyou. :rolleyes:

Astra · June 12, 2007

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 June 12, 2007 by Astra

BrettF · June 12, 2007

Whats the exact error??

SmOke_N · June 12, 2007

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.

/dev/null · June 12, 2007

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.

Astra · June 13, 2007

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

/dev/null · June 13, 2007

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??

Astra · June 14, 2007

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...

Sign In

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

Recommended Posts

Astra

Link to comment

Share on other sites

BrettF

Link to comment

Share on other sites

Astra

Link to comment

Share on other sites

BrettF

Link to comment

Share on other sites

SmOke_N

Link to comment

Share on other sites

/dev/null

Link to comment

Share on other sites

Astra

Link to comment

Share on other sites

/dev/null

Link to comment

Share on other sites

Astra

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta