[Руоф] Код для инжекта в память.

[krukovis]

Цитата: Сообщение от Dinmaite Вот алгоритм для Вас: 1. Выучить язык. 2. Писать программы. Ни в коем случае не пропускайте первый пункт.

о_О Может мне тоже начать блистать подобными алгоритмами, это я так 100500 спасибо за пару дней набью...

Цитата: Сообщение от zaparca lcd1232, после первой строки Еггог ( mov ecx,dword ptr [BA]

Для разнообразия BA что ли объявите... А то вызываете неведомую фуйню.

[zaparca]

Цитата: Сообщение от krukovis Для разнообразия BA что ли объявите... А то вызываете неведомую фуйню.

const
base_addr = $B27A04;

я уже где-то писал

[krukovis]

Цитата: Сообщение от zaparca Цитата: Сообщение от lcd1232Посмотреть сообщение Наверно не указана константа BA указана

А ты не обманщик?

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

Цитата: Сообщение от zaparca const base_addr = $B27A04; я уже где-то писал

В том, что ты выкладывал не увидел.

ADD:
А функции делфи точно хавают переменные и константы объявленные вне функции?

[VeTaL_UA]

Скорее всего так:

procedure Print(dwColor:DWord;Text:string);stdcall;
const
BA=$B27A04;
DwordFunction:Pointer=Pointer($417E00);
begin
 asm
 mov ecx,dword ptr[BA]
 mov ecx,dword ptr[ecx+$24]
 push Text
 push dwColor
 call DwordFunction
 end;
end;

Вызывать так:

Print($FFCEABEF,'Perfect World');

[zaparca]

VeTaL_UA, Invalid combination of opcode and operands
после правки

mov ecx,dword ptr [BA]
окно
access violation at address 0045A966 in module 'Prog.exe'.Read of address 00B27A04.

[VeTaL_UA]

Поправил код.

[BritishColonist]

Цитата: Сообщение от zaparca in module 'Prog.exe'.Read of address 00B27A04.

Этот код не внедрён в адресное пространство игры. А ведь должен быть.

[krukovis]

Я полагаю, что функция должна выглядеть так:
================================================== =============================================
Функция для отображения текста на экране
================================================== =============================================
Удалено, как нерабочая. Рабочей на Delphi у меня нет.
================================================== ===========================
Функция Закрытия окна на Delphi.
================================================== ===========================
Удалено как нерабочая. Рабочая выложена ТУТ

[lcd1232]

krukovis, щас голова не соображает, чтобы додумать.

Цитата: Сообщение от krukovis WinOffset^.Param1

Выдает на данную строку т.к. не описан параметр.

Цитата: Сообщение от krukovis procedure WinClose(WIN_OFFSETWord;);

лишняя

[krukovis]

Цитата: Сообщение от lcd1232 Выдает на данную строку т.к. не описан параметр.

Поправил. Пробуйте и отпишитесь по результатам теста.

[zaparca]

Цитата: Сообщение от krukovis dwColor := aPParams^.Param1; Text := aPParams^.Param2;

Зачем присваивать то что уже есть ?

код в принципе ничем не отличается от написаного мною

Вопрос в другом тут

InjectFunc(??????,@PrintPWCall,@aParams,SizeOf(aParams));

что должно быть ?

aHandle := FindWindow('ElementClient Window', nil);
//при этом ничего не происходит

или

GetWindowThreadProcessId(aHandle, @PId);
hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, PId);
//при этом вылетает клиент (работает при PickWalk, Jump, Walk)

просьба к BritishColonist, может сделаете программу на С с одной кнопкой просто проверить работает ли инжект , может он работает только после ижекта DLL (и только DLL).

[krukovis]

Цитата: Сообщение от zaparca Зачем присваивать то что уже есть ?

Чтобы передать в функцию.

Цитата: Сообщение от zaparca код в принципе ничем не отличается от написаного мною

Глаза раззуй.

Цитата: Сообщение от zaparca Вопрос в другом тут Код: InjectFunc(??????,@PrintPWCall,@aParams,SizeOf(aPa rams)); что должно быть ?

А что у тебя InjectFunc принимает в виде первого параметра? Вот это и надо передавать. Обычно это ProcessID: Cardinal;

[zaparca]

krukovis, все = не работает подождем BritishColonist

[krukovis]

Цитата: Сообщение от zaparca krukovis, все = не работает

Не знаю как у вас на Delphi, у меня на VB.NET все работает. У вас другие инжекты (прыжок тот же) тоже не работают?

[zaparca]

Цитата: Сообщение от krukovis у меня на VB.NET все работает

ну кинь свою программу с одной функцией вывод текста 'Zhyk.Ru' проверить