Astra Posted June 12, 2007 Share Posted June 12, 2007 i have an error that says $knownZ wasnt declared but as seen below it was Dim $knownZ = 0x00D0E554 Link to comment Share on other sites More sharing options...
BrettF Posted June 12, 2007 Share Posted June 12, 2007 i have an error that says $knownZ wasnt declared but as seen below it was Dim $knownZ = 0x00D0E554Could you please post your full code?? Thankyou. Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
Astra Posted June 12, 2007 Author Share Posted June 12, 2007 (edited) Line 105 (C:\Doc's and settings\(IRLNAMEHERE)\Desktop\Myaddons\autoit\autoit4\scirts\new autoit v3 script.au3the one with the arrow (<====)expandcollapse popup; ---------------------------------------------------------------------------- ; ---------------------------------------------------------------------------- ; ; 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 Link to comment Share on other sites More sharing options...
BrettF Posted June 12, 2007 Share Posted June 12, 2007 Whats the exact error?? Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted June 12, 2007 Moderators Share Posted 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. 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. Link to comment Share on other sites More sharing options...
/dev/null Posted June 12, 2007 Share Posted June 12, 2007 Line 105 (C:\Doc's and settings\(IRLNAMEHERE)\Desktop\Myaddons\autoit\autoit4\scirts\new autoit v3 script.au3the 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 * Link to comment Share on other sites More sharing options...
Astra Posted June 13, 2007 Author Share Posted June 13, 2007 thanx that did the trick....still get error tho.. ill ask Malu when i see him on Link to comment Share on other sites More sharing options...
/dev/null Posted June 13, 2007 Share Posted June 13, 2007 thanx that did the trick....still get error tho.. ill ask Malu when i see him onI 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 * Link to comment Share on other sites More sharing options...
Astra Posted June 14, 2007 Author Share Posted 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... Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now