[PaHaNjkee]

Вообщем делал трейнер без юнита вот весь код (взял с чимакса.ру):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174

//Немного оптимизации {$R-} {проверка диапазона} {$S-} {проверка стека} {$A+} {"выравнивание слов"} program FlatOut; uses windows, messages, commctrl; //Используемые модули,только самое нужное! var WinClass : TWndClass; //переменная класса TWndClass для создания главного окна hInst : HWND; //Хендл приложения Handle : HWND; //локальный хендл Com1 : HWND; //TGroupBox Com2 : HWND; //TButton Com3 : HWND; //TButton Com4 : HWND; //TStaticText Com5 : HWND; //TStaticText Com6 : HWND; //TStaticText Msg : TMSG; //сообщения hFont : HWND; //хендл шрифта win : hwnd; //хендл данного окна var WindowName : integer; //имя окна ProcessId : integer; //ID процесса ThreadId : integer; //Поток buf : PChar; HandleWindow : Integer; //хендл окна игры write : cardinal; const //id наших контролов id_1 = 1; //TGroupBox id_2 = 2; //TButton id_3 = 3; //TButton id_4 = 4; //TStaticText id_5 = 5; //TStaticText id_6 = 6; //TStaticText const WindowTitle = 'Flat-Out'; //конец формы, начало формы, точный заголовок игры Address = $01B40C64; //адрес нашего значения в памяти игры PokeValue = $FFFFFFFF; //значение на которое мы будем менять NumberOfBytes = 4; //кол-во байт {$R XPMan.res} //Здесь у меня лежит иконка моего трейнера и манифес, //это для того что бы все контролы были в стиле XP procedure Cheating; //Собственно сама процедура изменения значения begin WindowName := FindWindow(nil,WindowTitle); //находим окно игры If WindowName = 0 then //или,обьясняем пользователю чтобы begin //он запустил игру MessageBox(win,'Вначале игра,а потом трейнер.','Ошибка',MB_OK or MB_ICONINFORMATION); end; ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId); HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); GetMem(buf,1); buf^ := Chr(PokeValue); WriteProcessMemory(HandleWindow,ptr(Address),buf,NumberOfBytes,write);//пишем в наш адресс наше значение FreeMem(buf); CloseHandle(HandleWindow);//конец формы, началоформы, закрываем хэндл, чтобы не вылететь с ошибкой end; procedure ShutDown; //процедура выхода из программы begin DeleteObject(hFont); //удаляем шрифт UnRegisterClass('Sample Class', hInst); //удаляем окно ExitProcess(hInst); //закрываем окно Halt; //на всякий случай :) end; procedure About; //наше окно о программе begin MessageBox(win, ' [C0DED]: bY g-l-u-k [TeaM - X] ' +#13#10+ ' ' +#13#10+ ' GreatZzz....: ' +#13#10+ ' ' +#13#10+ ' Baron_Gede,6aHguT,AllexY ' +#13#10+ ' And all TeaM - X Members ! ' +#13#10+ ' ' +#13#10+ ' Write on pure Delphi (WinAPI) ' +#13#10+ ' Сopyright (g-l-u-k)R 2004-2005 ' +#13#10+ ' ' +#13#10+ ' http://www.team-x.ru ' +#13#10+ ' e-mail : g-l-u-k@rambler.ru ' +#13#10+ ' ' +#13#10+ ' GEngine v0.1 ' +#13#10+ ' All Right Reserved ', 'About',MB_OK or MB_ICONINFORMATION); end; function WindowProc(hwnd, msg, wparam, lparam: longint): longint; stdcall; //обработчик сообщений begin Result := DefWindowProc(hwnd, msg, wparam, lparam); case Msg of WM_COMMAND: case LoWord(wParam) of id_2 : if HiWord(wParam) = bn_Clicked then About; //если пользователь нажимает на кнопку "About",получат свой About id_3 : if HiWord(wParam) = bn_Clicked then ShutDown; //если выход то...... end; WM_DESTROY: ShutDown; end; end; begin hInst := GetModuleHandle(nil); with WinClass do begin Style := CS_PARENTDC; //стиль класса главного окна hIcon := LoadIcon(hInstance, IDI_APPLICATION); //иконка программы lpfnWndProc := @WindowProc; //назначение обработчика сообщений hInstance := hInst; hbrBackground := COLOR_BTNFACE + 1; //цвет окна lpszClassName := 'Sample Class'; //класс окна hCursor := LoadCursor(0, IDC_ARROW); //активный курсор end; InitCommonControls; RegisterClass(WinClass); //регистрация класса в сис-ме {Создание главного окна программы} Handle := CreateWindowEx(0, 'Sample Class', '[FlatOut] Trainer +1', WS_OVERLAPPED or WS_SYSMENU or WS_VISIBLE, 503, 345, 234, 222, 0, 0, hInst, nil); {Создание шрифта} hFont := CreateFont( -12, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH or FF_DONTCARE, 'Terminal'); Com1:=CreateWindow( 'Button', 'Trainer Options:' , WS_CHILD or BS_GROUPBOX or WS_VISIBLE, 2,2,222,165, Handle, id_1, hInst,nil); SendMessage(Com1,WM_SETFONT,hFont,0); Com2 := CreateWindow( 'Button', 'About', WS_CHILD or BS_TEXT or WS_VISIBLE, 3, 171, 74, 20,Handle, id_2, hInst, nil); SendMessage(Com2,WM_SETFONT,hFont,0); Com3 := CreateWindow( 'Button', 'Quit', WS_CHILD or BS_TEXT or WS_VISIBLE, 148, 171, 74, 20,Handle, id_3, hInst, nil); SendMessage(Com3,WM_SETFONT,hFont,0); Com4 :=CreateWindow( 'Static', '[F1] :...: More Money' , WS_CHILD or SS_LEFT or SS_NOTIFY or WS_VISIBLE, 51,25,117,17,Handle, id_4, hInst,nil); SendMessage(Com4,WM_SETFONT,hFont,0); Com5:=CreateWindow( 'Static', '[C0DED] :...: g-l-u-k [TeaM - X]' , WS_CHILD or SS_LEFT or SS_NOTIFY or WS_VISIBLE or WS_DISABLED, 32,145,180,17,Handle, id_5, hInst,nil); SendMessage(Com5,WM_SETFONT,hFont,0); Com6:=CreateWindow( 'Static', '[R.Mouse] :...: About Box ' , WS_CHILD or SS_LEFT or SS_NOTIFY or WS_VISIBLE, 26,50,190,17,Handle, id_6, hInst,nil); SendMessage(Com6,WM_SETFONT,hFont,0); //Цикл сбора сообщений while(GetMessage(Msg, Handle, 0, 0)) do begin TranslateMessage(Msg); //приём сообщений if (GetAsyncKeyState(vk_f1 ) <> 0) then Cheating; //если нажата клавиша F1,читим игру if (GetAsyncKeyState(vk_RButton) <> 0) then About; //если нажата правая кнопка мыши,то показываем About if (GetAsyncKeyState(vk_Escape ) <> 0) then ShutDown; DispatchMessage(Msg); //удаление сообщений из очереди end; end.

Вообщем вот код который нужен:

Код:

1 2 3 4

WindowTitle = 'GTA:SA:MP'; //Сдесь подставил точное имя своей игры Address = $0C126JG2; //подставил свой PokeValue = $FFFFFFFF; // ... NumberOfBytes = 4; //...

А вот на последних 2-х строк завис. Вообщем открыл станд. калькулятор (Пуск=>Все программы=>Стандартные=>Калькулятор), выбираю Dec, ввожу 100 000 и потом нажимаю на Hex, пишет "186A0" и я после $ подставил это число. Ну вообщем там рядом стояло 8 байт ну я и ввел:

Код:

1 2 3 4

WindowTitle = 'GTA:SA:MP'; //Сдесь подставил точное имя своей игры Address = $0C126JG2; //подставил свой PokeValue = $186A0; //адресс найденный в калькуляторе NumberOfBytes = 8; //там рядом выбрано 8 байт

Вообщем дает не 100 000, а 25 (Хотя трейнер работает, он изменяет значение но не на то что нужно) . Помогите исправить.

[Bargest]

Попробуй где NumberOfBytes поставить 4. А то для игры переменная в 8 байт - это как-то слишком...
И еще - она точно целочисленная?

[PaHaNjkee]

Сообщение от Bargest

Попробуй где NumberOfBytes поставить 4. А то для игры переменная в 8 байт - это как-то слишком...
И еще - она точно целочисленная?

Попробую...
Насчет целочисленности я не знаю...