Moveplayer WYD

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#include <WinAPI.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Move", 374, 83, Default, Default)
$Input1 = GUICtrlCreateInput("", 98, 13, 57, 24, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Label1 = GUICtrlCreateLabel("ID char move", 8, 16, 83, 20)

$Input2 = GUICtrlCreateInput("", 183, 12, 57, 24, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Label2 = GUICtrlCreateLabel("X", 162, 16, 12, 20)
$Input3 = GUICtrlCreateInput("", 265, 10, 57, 24, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Label3 = GUICtrlCreateLabel("Y", 244, 14, 13, 20)
$Button1 = GUICtrlCreateButton("Mover", 8, 48, 75, 25, $WS_GROUP)
$janela = "WYD.exe"
GUISetState(@SW_SHOW)
Global $open = _MemoryOpen(ProcessExists($janela))
Global $hProcess = _WinAPI_OpenProcess(0x001F0FFF, False, ProcessExists($janela))
$slot_0_addr = _Pointer1(0x01F61234, "7C8")
Global $ClientID_ADDR = _Pointer1(0x005F7A24, "570")
Global $clientid_1
Global $clientid_2
Global $cx
Global $cy
Global $clientid = _MemoryRead($ClientID_ADDR, $open)
$clientid = Hex($clientid)
$clientid = StringRight($clientid, 4)

$clientid_1 = StringRight($clientid, 2)
$clientid_2 = StringLeft($clientid, 2)
Global $ID_Alvo[3]
Global $ID_Atacante[3]
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Moved(GUICtrlRead($Input2),GUICtrlRead($Input3))
    EndSwitch
WEnd
Func _Pointer1($ADD_Base, $ADD1)
    $Pointer = _MemoryRead($ADD_Base, $open)
    $Pointer = $Pointer + Dec($ADD1)
    $Pointer = Hex($Pointer)
    $Pointer = "0x" & $Pointer
;~          =
    Return $Pointer
EndFunc   ;==>_Pointer1

Func _Pointer3($ADD_Base, $ADD1, $ADD2, $ADD3, $OPEN)
    $Pointer = _MemoryRead($ADD_Base, $OPEN)
    $Pointer = $Pointer + Dec($ADD1)
    $Pointer = Hex($Pointer)
    $Pointer = "0x" & $Pointer
;~      =
    $Pointer = _MemoryRead($Pointer, $OPEN)
    $Pointer = $Pointer + Dec($ADD2)
    $Pointer = Hex($Pointer)
    $Pointer = "0x" & $Pointer
;~      =
    $Pointer = _MemoryRead($Pointer, $OPEN)
    $Pointer = $Pointer + Dec($ADD3)
    $Pointer = Hex($Pointer)
    $Pointer = "0x" & $Pointer
;~      =
    Return $Pointer
EndFunc   ;==>_Pointer3

Func Moved($c_x, $c_y)
    $cx = _Pointer3(0x01F61234, "21734", "54", "634", $OPEN)
    $cy = _Pointer3(0x01F61234, "21734", "54", "638", $OPEN)
    $x = $c_x
    $y = $c_y
    $c_x = Hex($c_x)
    $c_x_x = StringRight($c_x, 4)
    $c_x = StringLeft($c_x_x, 2)
    $c_x_2 = $c_x_x
    $c_x_2 = StringRight($c_x_2, 4)
    $c_x_2 = StringTrimLeft($c_x_2, 2)
    $c_y = Hex($c_y)
    $c_y_y = StringRight($c_y, 4)
    $c_y = StringLeft($c_y_y, 2)
    $c_y_2 = $c_y_y
    $c_y_2 = StringRight($c_y_2, 4)
    $c_y_2 = StringTrimLeft($c_y_2, 2)
    $velo_move = _memoryread(0x5F9F64, $OPEN)
    $clientid = _MemoryRead($ClientID_ADDR, $OPEN)
    $clientid = Hex($clientid)
    $clientid = StringRight($clientid, 4)
    $clientid_1 = StringRight($clientid, 2)
    $clientid_2 = StringLeft($clientid, 2)
    $c_xx = _MemoryRead($cx, $OPEN)
    $c_xx = Hex($c_xx)
    $c_xx = StringRight($c_xx, 4)
    $x1 = StringRight($c_xx, 2)
    $x2 = StringLeft($c_xx, 2)
    $c_yy = _MemoryRead($cy, $OPEN)
    $c_yy = Hex($c_yy)
    $c_yy = StringRight($c_yy, 4)
    $y1 = StringRight($c_yy, 2)
    $y2 = StringLeft($c_yy, 2)
            $ID = GUICtrlRead($Input1)
            $ID = Hex($ID, 4)
            $ID_Alvo[1] = StringRight($ID, 2)
            $ID_Alvo[2] = StringLeft($ID, 2)
;~              00 00 00 00 6C 03        7E           03          4C 78 94 E0        2B 08 2F 08          01 00 00 00            04            00 00 00 00 00 00 00 00 00 00 00 00 00 14 04 00 00 00 00 00 00 00 00 5F 00 53 08 21 08
    SendPacket("00 00 00 00 6C 03" & $ID_Alvo[1] & $ID_Alvo[2] & "4C 78 94 E0" & $x1 & $x2 & $y1 & $y2 & "01 00 00 00" & Hex($velo_move, 2) & "00 00 00 00 00 00 00 00 00 00 00 00 00 14 04 00 00 00 00 00 00 00 00 5B 00 00 00" & $c_x_2 & $c_x & $c_y_2 & $c_y, 34)
    Sleep(1000)
    SendPacket("00 00 00 00 6C 03" & $clientid_1 & $clientid_2 & "4C 78 94 E0" & $x1 & $x2 & $y1 & $y2 & "01 00 00 00" & Hex($velo_move, 2) & "00 00 00 00 00 00 00 00 00 00 00 00 00 14 04 00 00 00 00 00 00 00 00 5F 00 00 00 34 08 34 08", 34)
    Return $x & " " & $y
EndFunc   ;==>Moved

Func _ByteWrite($address, $Byte)
    Local $count = 1
    $fim = StringLen($Byte)
    $Byte = StringReplace($Byte, " ", "")
    For $inicio = 1 To $fim Step +2
        $Write = Dec(StringMid($Byte, $count, 2))
        _MemoryWrite($address, $open, $Write, 'byte')
        $address = $address + 0x1
        $count = $count + 2
    Next
    Return Hex($address)
    ;Func By Necros e BabyLoves
    ;Thanks Necros ;D
EndFunc   ;==>_ByteWrite

Func CreateRemoteThread($hProcess, $lpThreadAttributes, $dwStackSize, $lpStartAddress, $lpParameter, $dwCreationFlags, $lpThreadId)
    Return DllCall("Kernel32.dll", "ptr", "CreateRemoteThread", _
            "ptr", $hProcess, _
            "ptr", $lpThreadAttributes, _
            "uint", $dwStackSize, _
            "ptr", $lpStartAddress, _
            "ptr", $lpParameter, _
            "dword", $dwCreationFlags, _
            "ptr", $lpThreadId)
EndFunc   ;==>CreateRemoteThread

Func SendPacket($packet, $SIZE = '')
    If $SIZE = "" Then $SIZE = StringLeft($packet, 2)
    $packet = StringReplace($packet, " ", "")

    _ByteWrite(0x05DCD24, $packet) ; Escreve o pak
    $aRet = DllCall("Kernel32.dll", 'int', 'VirtualProtectEx', 'int', $hProcess, 'ptr', 0x05DCD24, _
            'ulong_ptr', 52, 'dword', 0x40, 'dword*', '')
    _ByteWrite(0x005DCD9F, "55 8B EC 6A" & $SIZE & "68 24 CD 5D 00 E8 1A 04 F7 FF 8B E5 5D C3")
    $hThread_2 = CreateRemoteThread($hProcess, "", "", 0x005DCD9F, "", 0, "")

EndFunc   ;==>SendPacket do BabyLovS