Бесконечный бег в .exe / .ahk

Статус
В этой теме нельзя размещать новые ответы.

#Rin

Известный
Всефорумный модератор
1,214
1,035
Для Dll:
AutoHotKey:
state := false
!1::
    state := !state
    NumPut(state, 0xB7CEE4, 0, "UChar")
return
Для Exe:
AutoHotKey:
state := false
!1::
    state := !state
    Process, Exist, gta_sa.exe
    WriteProcessMemory(ErrorLevel, 0xB7CEE4, state, "UChar", 1)
return

WriteProcessMemory(pid, address, value, type, size, ByRef NumberOfBytesWritten := 0)
{
    VarSetCapacity(buf, size, 0)
    if (type == "Str")
        StrPut(value, &buf)
    else
        NumPut(value, &buf, 0, type)
    if (!hProcess := DllCall("OpenProcess", "Int", 24, "UInt", 0, "UInt", pid, "Ptr"))
        return false
    result := DllCall("WriteProcessMemory", "Ptr", hProcess, "Ptr", address, "Ptr", &buf, "UInt", size, "UInt", &NumberOfBytesWritten)
    NumberOfBytesWritten := NumGet(NumberOfBytesWritten, "UInt")
    if (!DllCall("CloseHandle", "Ptr", hProcess, "UInt") || !result)
        return false
    return true
}
 
D

Deleted member 240777

Гость
Для Dll:
AutoHotKey:
state := false
!1::
    state := !state
    NumPut(state, 0xB7CEE4, 0, "UChar")
return
Для Exe:
AutoHotKey:
state := false
!1::
    state := !state
    Process, Exist, gta_sa.exe
    WriteProcessMemory(ErrorLevel, 0xB7CEE4, state, "UChar", 1)
return

WriteProcessMemory(pid, address, value, type, size, ByRef NumberOfBytesWritten := 0)
{
    VarSetCapacity(buf, size, 0)
    if (type == "Str")
        StrPut(value, &buf)
    else
        NumPut(value, &buf, 0, type)
    if (!hProcess := DllCall("OpenProcess", "Int", 24, "UInt", 0, "UInt", pid, "Ptr"))
        return false
    result := DllCall("WriteProcessMemory", "Ptr", hProcess, "Ptr", address, "Ptr", &buf, "UInt", size, "UInt", &NumberOfBytesWritten)
    NumberOfBytesWritten := NumGet(NumberOfBytesWritten, "UInt")
    if (!DllCall("CloseHandle", "Ptr", hProcess, "UInt") || !result)
        return false
    return true
}
Можете скомпилировать? Не умею компилировать, кроме клео ничего. Заранее спасибо
 
Статус
В этой теме нельзя размещать новые ответы.