Создание трейнера

[VintProg]

есть код:

function InjectLibraryAPI(lpProcessID: Cardinal; lpDllname: String): LongBool;
var
 hProc: Cardinal;
 oAlloc: Pointer;
 cWPM: Cardinal;
 hRemThread: Cardinal;

begin
 result := false;
 SetLastError(ERROR_SUCCESS);
 hProc := OpenProcess(PROCESS_ALL_ACCESS, false, lpProcessID); // открываем процесс
 if hProc <> 0 then begin
    oAlloc := VirtualAllocEx(hProc, 0, length(lpDllname), MEM_COMMIT, PAGE_EXECUTE_READWRITE); // если существует выделяем память в процессе
 if oAlloc <> nil then begin
 if WriteProcessMemory(hProc, oAlloc, PChar(lpDllName), length(lpDllName), cWPM) = true then begin // если получилось выделить, то копируем 
туда содержимое своей DLL
    CreateRemoteThread(hProc, nil, 0, GetProcAddress(GetModuleHandle('kernel32.dll'), 'LoadLibraryA'), oAlloc, 0, hRemThread); // создаем 
удаленный поток, по адресу kernel32.dll -> LoadLibraryA, чтобы подгрузить DLL средствами WinAPI, в чужом процессе
   if GetLastError = ERROR_SUCCESS then result := true;
   end;
end;
end;
CloseHandle(hProc); // закрываем Handle процесса
end;

не получается с помощью этого кода внедрить свою библиотеку в процесс..

InjectLibraryAPI(VC_Window, C:\Call10.dll);

что не так?

[Пепел Феникса]

версия Делфи?

[VintProg]

версия 7... только разница какая?

[Пепел Феникса]

большая разница, Юникод и нет.

function InjectLibraryAPI(lpProcessID: Cardinal; lpDllname: AnsiString): LongBool;//строго Анси строки.
var
 hProc: Cardinal;
 oAlloc: Pointer;
 cWPM: Cardinal;
 hRemThread: Cardinal;
begin
 result := false;
 SetLastError(ERROR_SUCCESS);
 hProc := OpenProcess(PROCESS_ALL_ACCESS, false, lpProcessID); 
 if hProc <> 0 then begin
    oAlloc := VirtualAllocEx(hProc, 0, length(lpDllname)+1, MEM_COMMIT, PAGE_EXECUTE_READWRITE); //нуль терминал тоже нужен.
 if oAlloc <> nil then begin
 if WriteProcessMemory(hProc, oAlloc, PChar(lpDllName), length(lpDllName)+1, cWPM) = true then begin //терминал тоже пишем
    CreateRemoteThread(hProc, nil, 0, GetProcAddress(GetModuleHandle('kernel32.dll'), 'LoadLibraryA'), oAlloc, 0, hRemThread);
   if GetLastError = ERROR_SUCCESS then 
    begin
     result := true;
     WaitForSingleObject(hRemThread,INFINITE);//ждем пока загрузиться
     CloseHandle(hRemThread);
    end;
   end;
end;
end;
VirtualFreeEx(hProc,oAlloc,0,MEM_RELEASE);//память в чужом процессе то освобождаем
CloseHandle(hProc); 
end;

[VintProg]

23:39
VC_Window := FindWindow(nil , 'GTA: Vice City');
не срабатывает все равно.

23:56

WriteProcessMemory(hProc, oAlloc, PChar(lpDllName), length(lpDllName)+1, cWPM)

я вот сижу и задумываюсь что-же туда запишется...

Красные жирные циферки видны ?
Это время, когда вы отправляли свои сообщения друг за другом, подряд.
У нас есть кнопка "Правка".
Читаем правила раздела. По правилам это приравнивается к флуду.
Странно, что приходится напоминать об этом форумчанину с таким стажем...

[Пепел Феникса]

причем тут FindWindow? пишет что нужно хотя PAnsiChar лучше

[VintProg]

Все теперь получилось, вопрос другой теперь, как мне можно вызывать функции игры из программы? Допустим есть адрес функции которая дает игроку деньги, как мне ее вызвать из чужого пространства, ну и что-бы игрок получил оружие. Вот как вызвать?

[Larboss]

Примерно так:

library lib0;

uses
  Messages,
  Windows;

type
  TRemoteFunction = function(param1, param2: pchar): integer;
  
var
  RemoteFunction: TRemoteFunction;
  
function Answer(nCode: integer; wprm: WParam; lprm: LParam): LResult; stdcall;
type
  PMsg = ^TMsg;
var
  buffer: array [0 .. MAX_PATH] of Char;
  cd: TCopyDataStruct;
  msg: PMsg;
  Caller: HWND;
  AHook: HHook;
begin
  result := 0;
  msg := PMsg(lprm);
  if (msg.Message = 0) and (msg.LParam <> 0) then
  begin
    AHook := msg.LParam;
    Caller := msg.WParam;
    cd.cbData := GetModuleFileName(0, buffer, SizeOf(buffer)) + 1;
    cd.lpData := @buffer;
    cd.dwData := GetCurrentThreadID;
    SendMessage(Caller, WM_COPYDATA, 0, LParam(@cd));
    UnHookWindowsHookEx(AHook);
    PostThreadMessage(GetCurrentThreadID, 0, 0, 0);
  end;
end;

procedure QryName(tid: DWord; Caller: HWND);
var
  AHook: HHook;
begin
  AHook := SetWindowsHookEx(WH_GETMESSAGE, Answer, Hinstance, tid);
  if AHook <> 0 then
    PostThreadMessage(tid, 0, Caller, AHook);
end;

exports QryName;

begin

    RemoteFunction := TRemoteFunction(ptr($004501A4)); / Здесь указываем адрес функции, которую собираемся вызывать

    RemoteFunction('lol','lol2'); // Вызываем

    end;

end.