Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 08:05

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Hilfe Autoit WoW hack anpassen

Discussion on Hilfe Autoit WoW hack anpassen within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Feb 2008
Posts: 814
Received Thanks: 85
Hilfe Autoit WoW hack anpassen

Hallo zusammen
Ich hab die source von ein einem publick wow hack ... giebts ne möglichkeit die geschwindichkeit des speedhacks einzustellen ...
Standart ist glaub 2000 % 500 oder 1000 würden aber reichen ^^


hir die source
Mufflon12 is offline  
Old 03/06/2011, 22:56   #2
 
SCORNI's Avatar
 
elite*gold: 26
Join Date: Jun 2009
Posts: 972
Received Thanks: 228
Auf eine Frage kann und will ich jetzt nicht Antworten, aber

Spoiler ftw!
SCORNI is offline  
Old 03/07/2011, 16:37   #3
 
elite*gold: 0
Join Date: Feb 2009
Posts: 542
Received Thanks: 112
sieht wie ausm decompiler aus. Es sit wahrscheinlich auch!
naja hier script verkürzt + inputbox für den neuen speed wert.

PHP Code:
#region _Memory

Global $CheckedSpeed
Global $CheckedFly
Global $CheckedClip
$CheckedSpeed 
"OFF"
$CheckedFly "OFF"
$CheckedClip "OFF"

#RequireAdmin
#include <pointer.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#NoTrayIcon
SETPRIVILEGE("SeDebugPrivilege"1)
$Debug_CB False
#include <GuiComboBoxEx.au3>
#include <WinApi.au3>
Global $PROCESSID 0
Global $list
Global $fProcess GUICreate("addet wow  process name"15045, -1, -1BitOR($WS_SYSMENU$WS_CAPTION$WS_POPUP$WS_POPUPWINDOW$WS_BORDER))
$cbProcess 0
Global $cbProcess GUICtrlCreateCombo(""0015020)
$bAttach GUICtrlCreateButton("ok"02075)
$bRefresh GUICtrlCreateButton("Refresh"752075)
Global 
$PlayerName 0x8BF1E0
fillProcess
()
GUISetState()

While 
1
    $MSG 
GUIGetMsg()
    Switch 
$MSG
        
Case $GUI_EVENT_CLOSE
            
Exit 1
        
Case $bRefresh
            fillProcess
()
        Case 
$bAttach

            
If $list[0][0] > 0 Then
                $PROCESSID 
$list[ControlCommand("Select process"""$cbProcess"FindString"GUICtrlRead($cbProcess)) + 1][1]
            EndIf
            
ExitLoop
    
EndSwitch
WEnd

Func fillProcess
()
    
$list ProcessList("WoW.exe")
    
_GUICtrlComboBoxEx_ResetContent(GUICtrlGetHandle($cbProcess))
    For 
$i 1 To $list[0][0]
        
$_BASE _MEMORYMODULEGETBASEADDRESS($list[$i][1], "Wow.exe")
        
$_WOW _MEMORYOPEN($list[$i][1])
        
$name _WinAPI_MultiByteToWideChar(_MEMORYREAD($_BASE $PlayerName$_WOW"char[50]"), 650010True)
        
GUICtrlSetData($cbProcess$name " - " $list[$i][1], $name " - " $list[1][1])
        
_MEMORYCLOSE($_WOW)
    
Next
EndFunc   
;==>fillProcess

If $PROCESSID 0 Then
    MsgBox
(4096"Error""Please launch World of Warcraft")
    Exit 
1
EndIf
ControlHide(""""$fProcess)
$WOW _MEMORYOPEN($PROCESSID)
Global 
$BASE _MEMORYMODULEGETBASEADDRESS($PROCESSID"Wow.exe")
If 
$BASE 0 Then
    MsgBox
(4096"Error""Error in get information")
    Exit 
1
EndIf
Global Const 
$FLY1 2164056
Global Const $FLY2 5621350
Global Const $SPEEDOFF 1609330
Global Const $CLIPOFF 2739167
Global $FLY 1
Global $SPEED 2
Global $CLIP 3
GUICreate
("4.0.6.13623"13075, -1, -1BitOR($WS_SYSMENU$WS_CAPTION$WS_POPUP$WS_POPUPWINDOW$WS_BORDER))
$HOTKEYS GUICtrlCreateLabel("Speed"201)
$HOTKEYS GUICtrlCreateLabel("Fly"2020)
$HOTKEYS GUICtrlCreateLabel("NoClip"2040)
$SPEED_BOX GUICtrlCreateCheckbox(""13)
$FLY_BOX GUICtrlCreateCheckbox(""120)
$CLIP_BOX GUICtrlCreateCheckbox(""140)
$ABOUT GUICtrlCreateLabel("by Barrt73Rus"160)
GUISetState()
CHECKPATCHSTATUS()
While 
1
    $MSG 
GUIGetMsg()
    Switch 
$MSG
        
Case $GUI_EVENT_CLOSE
            
Exit
        Case 
$FLY_BOX
            
If GUICtrlRead($FLY_BOX) = $GUI_CHECKED Then
                PATCH
($FLY)
            Else
                
PATCH($FLY0)
            EndIf
        Case 
$SPEED_BOX
            
If GUICtrlRead($SPEED_BOX) = $GUI_CHECKED Then
                                $SPEED
=inputbox("neuwer wert","hier eingeben","")

                
PATCH($SPEED)

            Else
                
PATCH($SPEED0)
            EndIf
        Case 
$CLIP_BOX
            
If GUICtrlRead($CLIP_BOX) = $GUI_CHECKED Then
                PATCH
($CLIP)
            Else
                
PATCH($CLIP0)
            EndIf
    EndSwitch
WEnd
Func PATCH
($CHECK$START_PATCH 1)
    
$WOW _MEMORYOPEN($PROCESSID)
    If @
error Then
        MsgBox
(4096"Error""Failed to open: " $PROCESSID)
        Exit 
1
    
EndIf
    Switch 
$CHECK
        
Case $FLY
            
Switch $START_PATCH
                
Case 1
                    _MEMORYWRITE
($BASE $FLY1$WOW235"byte")
                    
_MEMORYWRITE($BASE $FLY2$WOW"0x9090""byte[2]")
                    
HotKeySet("{Space}""TrapEnter")
                Case 
0
                    _MEMORYWRITE
($BASE $FLY1$WOW117"byte")
                    
_MEMORYWRITE($BASE $FLY2$WOW"0x7465""byte[2]")
                    
HotKeySet("{Space}")
            EndSwitch
        Case 
$SPEED
            
Switch $START_PATCH
                
Case 1
                    _MEMORYWRITE
($BASE $SPEEDOFF$WOW"0xE96AFFFFFF909090""byte[8]")
                Case 
0
                    _MEMORYWRITE
($BASE $SPEEDOFF$WOW"0x85F60F86F2000000""byte[8]")
            EndSwitch
        Case 
$CLIP
            
Switch $START_PATCH
                
Case 1
                    _MEMORYWRITE
($BASE $CLIPOFF$WOW"0xE96AFFFFFF909090""byte[8]")
                Case 
0
                    _MEMORYWRITE
($BASE $CLIPOFF$WOW"0x0F85D70100008D55""byte[8]")
            EndSwitch
    EndSwitch
    
_MEMORYCLOSE($WOW)
EndFunc   ;==>PATCH
Func CHECKPATCHSTATUS
()
    
$WOW _MEMORYOPEN($PROCESSID)
    If @
error Then
        MsgBox
(4096"Error""Failed to open: " $PROCESSID)
        Exit 
1
    
EndIf
    If 
_MEMORYREAD($BASE $FLY2$WOW"byte") == 144 Then
        GUICtrlSetState
($FLY_BOX$GUI_CHECKED)
    EndIf
    If 
_MEMORYREAD($BASE $SPEEDOFF$WOW"byte") == 233 Then
        GUICtrlSetState
($SPEED_BOX$GUI_CHECKED)
    EndIf
    If 
_MEMORYREAD($BASE $CLIPOFF$WOW"byte") == 233 Then
        GUICtrlSetState
($CLIP_BOX$GUI_CHECKED)
    EndIf
    
_MEMORYCLOSE($WOW)
EndFunc   ;==>CHECKPATCHSTATUS
Func TrapEnter
()
EndFunc   ;==>TrapEnter
Func ToggleSpeed
()
    If 
$CheckedSpeed "ON" Then
        GUICtrlSetState
($SPEED_BOX$GUI_UNCHECKED)
        
PATCH($SPEED0)
        
$CheckedSpeed "OFF"
    
Else
        
GUICtrlSetState($SPEED_BOX$GUI_CHECKED)
        
PATCH($SPEED)
        
$CheckedSpeed "ON"
    
EndIf
EndFunc   ;==>ToggleSpeed
Func ToggleFly
()
    If 
$CheckedFly "ON" Then
        GUICtrlSetState
($FLY_BOX$GUI_UNCHECKED)
        
PATCH($FLY0)
        
$CheckedFly "OFF"
    
Else
        
GUICtrlSetState($FLY_BOX$GUI_CHECKED)
        
PATCH($FLY)
        
$CheckedFly "ON"
    
EndIf
EndFunc   ;==>ToggleFly
Func ToggleClip
()
    If 
$CheckedClip "ON" Then
        GUICtrlSetState
($CLIP_BOX$GUI_UNCHECKED)
        
PATCH($CLIP0)
        
$CheckedClip "OFF"
    
Else
        
GUICtrlSetState($CLIP_BOX$GUI_CHECKED)
        
PATCH($CLIP)
        
$CheckedClip "ON"
    
EndIf
EndFunc   ;==>ToggleClip 
maxi39 is offline  
Reply


Similar Threads Similar Threads
[Hilfe]Pserver Shop anpassen
01/10/2011 - Metin2 Private Server - 1 Replies
Habe folgendes Problem schaut hier: http://www9.picfront.org/token/hfCR/2011/01/10/19 09731.jpg wie kriege ich nun Waffen ab lvl 20, Waffen ab lvl 36... weg sodass nur Waffen ab lvl 0 bleiben?
AutoIT hack hilfe
06/13/2010 - AutoIt - 22 Replies
hi, ich habe ein 4story mini bot gemacht für mich aber brauche bei einer sache eure hilfe. :confused:



All times are GMT +1. The time now is 08:05.


Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2025 elitepvpers All Rights Reserved.