[Помогите!] Запись в процесс игры

[Ginrey]

Доброго времени суток. Знаю, что игра другая, но суть одна. Пытался сделать программку. в ней записывается несколько байт в процесс игры, но меняться должно не игровое значение, а переход самого процесса. но вот в чем проблема, если смотреть через СЕ, то место где мне нужно изменить только для чтения и функция WriteProcessMemory ничего сделать не может -
[Ссылки могут видеть только зарегистрированные пользователи. ]

Как с этим быть, как изменить все таки эти значения?

[Dinmaite]

[Ссылки могут видеть только зарегистрированные пользователи. ]

[Ginrey]

Цитата: Сообщение от Dinmaite [Ссылки могут видеть только зарегистрированные пользователи. ]

Вот как вызываю процедуру

dwOldProtect: DWORD;
VirtualProtectEx(wnd,ptr($140903810),2,PAGE_EXECUT E_READWRITE,@dwOldProtect);

В переменную dwOldProtect постоянно записываютсячисло 4, а эффект прежним и остался данный участок как был только для чтения, таким и остался
Изначально моя задача затереть нопами вот эту область
[Ссылки могут видеть только зарегистрированные пользователи. ]

[Dinmaite]

Значит или не достаточно прав для изменения - читай как получить права дебагера.
Или что-то постоянно отслеживает права доступа к области.

[Ginrey]

вот написал функцию

const
  SE_DEBUG_NAME = 'SeDebugPrivilege';

procedure WriteArray(Address: Cardinal; ChangeValues: dword);
var
  otoken, hToken: THandle;
  tp: TTokenPrivileges;
  h,ThreadId,HandleWindow,ProcessId,Written: DWORD;
  windowname: THandle;
   dwOldProtect: DWord;
begin
  WindowName := FindWindow(nil, 'WARFRAME');
  ThreadId := GetWindowThreadProcessId(WindowName, @ProcessId);
  OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
  LookupPrivilegeValue(nil, SE_DEBUG_NAME, tp.Privileges[0].luid);
  tp.privilegecount := 1;
  tp.privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
  AdjustTokenPrivileges(hToken, False, tp, 0, PTokenPrivileges(nil)^, h);
  HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
  VirtualProtectEx(HandleWindow,Pointer(Address),4,PAGE_EXECUTE_READWRITE,@dwOldProtect);
  WriteProcessMemory(HandleWindow, Pointer(Address), @ChangeValues, SizeOf(ChangeValues), Written);
  Closehandle(HandleWindow);
end;

Вызываю
WriteArray(140903810,$90);

теперь dwOldProtect = 0 и конечно ничего не меняется

[ToRcH2565]

function EnablePrivilege(Privilege: string): Boolean;
var
  TokenHandle: THandle;
  TokenPrivileges: TTokenPrivileges;
  ReturnLength: Cardinal;
begin
  Result := False;
  if Windows.OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TokenHandle) then
  begin
    try
      LookupPrivilegeValue(nil, PChar(Privilege), TokenPrivileges.Privileges[0].Luid);
      TokenPrivileges.PrivilegeCount := 1;
      TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      if AdjustTokenPrivileges(TokenHandle, False, TokenPrivileges, 0, nil, ReturnLength) then
        Result := True;
    finally
      CloseHandle(TokenHandle);
    end;
  end;
end;

Вызов: 
EnablePrivilege('SeDebugPrivilege');

Написано на RAD 2... работает.
Функция вызывается при старте программы единожды и далее вызовы не требуются.

Добавлено через 3 минуты
Еще как вариант создавать процесс самому, тогда сразу будут отладочные привелегии..

[Ginrey]

Попробовал вызвать прверку ошибки, вот что выдало - "попытка обращения к неверному адресу"

[ToRcH2565]

Ginrey, Попробуйте стать создателем процесса, и после проверьте сможете ли записать....

[Ginrey]

Цитата: Сообщение от ToRcH2565 Ginrey, Попробуйте стать создателем процесса, и после проверьте сможете ли записать....

сори ваш пост выше сразу не заметил и отписал, сейчас попробую.

ругается на Windows.OpenProcessToken
убрал windows стало все нормально. надеюсь на работе не скажется

Добавлено через 10 минут
почему то программа не видит этого адреса. хотя с обычными адресами все нормально. а вот с адресом отладочным не хочет сталкиваться

Добавлено через 58 минут

Цитата: Сообщение от ToRcH2565 Ginrey, Попробуйте стать создателем процесса, и после проверьте сможете ли записать....

так вроде создание процесса даст те же привилегии, что и через этот код

[ToRcH2565]

Несовсем, при создании процесса привелегий больше... пока что не натыкался ни на что что нельзя делать являясь родителем процесса) еще как вариант создать процесс в спящем режиме и поменять значение пока он спит.

[Магомёт]

в иц есть функция записи видео, попробуй ее