Solitär Memoryhacking

#AutoIt3Wrapper_UseX64=n ; 32 Bit application
;~ #AutoIt3Wrapper_UseX64=y ; 64 Bit application

#RequireAdmin
#include "KDMemory.au3"

Const $processName = "solitaire.exe", $moduleName = $processName
Const $baseOffset = 0x000BAFA8
Const $offsets[2] = [0x50, 0x14]

$processId = ProcessExists($processName)
If $processId == 0 Then
    MsgBox(48, "Error", "'" & $processName & "' is not running!")
Else
    $handles = _KDMemory_OpenProcess($processId)
    If @error Then
        MsgBox(48, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error)
    Else
        $baseAddress = _KDMemory_GetModuleBaseAddress($handles, $moduleName) + $baseOffset
        If @error Then
            MsgBox(48, "Error", "Can't get ModuleBaseAddress ('" & $moduleName & "')!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
        Else
            $value = InputBox("Solitaire Hack", "Enter the score:", 0)
            If @error Or Not IsInt($value) Then
                MsgBox(16, "Error", "The entered value is invalid.")
            Else
                $writtenAddress = _KDMemory_WriteProcessMemory($handles, $baseAddress, "DWORD", 5000, $offsets)
                If @error Then MsgBox(48, "Error", "Can't write memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
            EndIf
        EndIf
        _KDMemory_CloseHandles($handles)
    EndIf
EndIf