Hilfe Autoit WoW hack anpassen

03/06/2011 22:26 Mufflon12#1
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
03/06/2011 22:56 SCORNI#2
Auf eine Frage kann und will ich jetzt nicht Antworten, aber

Spoiler ftw!
03/07/2011 16:37 maxi39#3
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", 150, 45, -1, -1, BitOR($WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER))
$cbProcess = 0
Global $cbProcess = GUICtrlCreateCombo("", 0, 0, 150, 20)
$bAttach = GUICtrlCreateButton("ok", 0, 20, 75)
$bRefresh = GUICtrlCreateButton("Refresh", 75, 20, 75)
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]"), 65001, 0, True)
        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", 130, 75, -1, -1, BitOR($WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER))
$HOTKEYS = GUICtrlCreateLabel("Speed", 20, 1)
$HOTKEYS = GUICtrlCreateLabel("Fly", 20, 20)
$HOTKEYS = GUICtrlCreateLabel("NoClip", 20, 40)
$SPEED_BOX = GUICtrlCreateCheckbox("", 1, 3)
$FLY_BOX = GUICtrlCreateCheckbox("", 1, 20)
$CLIP_BOX = GUICtrlCreateCheckbox("", 1, 40)
$ABOUT = GUICtrlCreateLabel("by Barrt73Rus", 1, 60)
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($FLY, 0)
            EndIf
        Case $SPEED_BOX
            If GUICtrlRead($SPEED_BOX) = $GUI_CHECKED Then
                                $SPEED=inputbox("neuwer wert","hier eingeben","")

                PATCH($SPEED)

            Else
                PATCH($SPEED, 0)
            EndIf
        Case $CLIP_BOX
            If GUICtrlRead($CLIP_BOX) = $GUI_CHECKED Then
                PATCH($CLIP)
            Else
                PATCH($CLIP, 0)
            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, $WOW, 235, "byte")
                    _MEMORYWRITE($BASE + $FLY2, $WOW, "0x9090", "byte[2]")
                    HotKeySet("{Space}", "TrapEnter")
                Case 0
                    _MEMORYWRITE($BASE + $FLY1, $WOW, 117, "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($SPEED, 0)
        $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($FLY, 0)
        $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($CLIP, 0)
        $CheckedClip = "OFF"
    Else
        GUICtrlSetState($CLIP_BOX, $GUI_CHECKED)
        PATCH($CLIP)
        $CheckedClip = "ON"
    EndIf
EndFunc   ;==>ToggleClip