Вывод текста в окно игры - Страница 3

mira · 03.10.2010, 18:59

Цитата:

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

Мож исход скинуть как ты подгружаешь )

а никак я вообще в d3ddrv.dll поменял в таблице импортa
d3d9.dll на свою iohp.dll пока нет никакова чекера файлов на серве не буду морочитса с инжектом

ALF · 03.10.2010, 20:05

О_о что за "iohp.dll"?

mira · 04.10.2010, 01:12

Цитата:

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

О_о что за "iohp.dll"?

враппер для d3d9.dll (гуглю в помощ) а по совместительству ядро самой программы

ЗЫ п
римитивный скрипт для фарма СОД for mamba

ALF · 04.10.2010, 01:15

PHP код:


			
library MyFirstDLL;
uses
  SysUtils,
  Classes,
  Graphics,
  Forms,
  Windows;
const
adres = '?DrawString@FCanvasUtil@@QAEHHHPBGPAVUFont@@VFColor@@@Z';
adres1 = '??1FCanvasUtil@@UAE@XZ';
adres2 = '?Render@FPlayerSceneNode@@UAEXPAVFRenderInterface@@@Z';
text ='ALF';

procedure HelloWorld();
var
        DLLInstance : THandle;
        FCanvasUtilAddr,BOB: PByte;
        font:string;
        x,y:integer;
begin
    { загружаем DLL }
    DLLInstance := LoadLibrary('Engine.dll');
    BOB := GetProcAddress(DLLInstance, adres);
    FCanvasUtilAddr := GetProcAddress(DLLInstance, adres1);
    font :='Engine.DefaultFont'; {ХЗ КАКОЙ ШРИФТ ЮЗАЕТ ЛИНЕЙКА}
    x:=200;
    y:=200;
     asm
    push 00FF0000h   {цвет}
    push dword [font]{Шрифт, В ФОРМАТЕ UFont - я хз как}
    push word [text] {Текст}
    push y           {у}
    push x           {х}
    mov  ecx, FCanvasUtilAddr
    call [BOB]       {вызываем FCanvasUtil :: DrawString(int x, int y, ushort const *, UFont *, FColor)}
    end;
    FreeLibrary(DLLInstance);
end;

procedure FLayerCanvasRender; cdecl;
asm
    {перед вызовом FPlayerSceneNode :: Render рисуем текст}
  call HelloWorld
  retf    0DC24h
end;

procedure doDll();
var
        DLLInstance : THandle;
        PlayerScenAdr: PByte;
        Offset: DWORD;
begin
    { загружаем DLL }
    DLLInstance := LoadLibrary('Engine.dll');
    {перехвачиваем FPlayerSceneNode::Render}
    PlayerScenAdr := GetProcAddress(DLLInstance, adres2);
     if VirtualProtectEx(GetCurrentProcess,PlayerScenAdr,10,PAGE_EXECUTE_READWRITE,Offset) then begin
     PlayerScenAdr^ := $E9;
     Offset := Dword(@FLayerCanvasRender)-DWord(PlayerScenAdr)-5;
     move(Offset,Pointer(DWord(PlayerScenAdr)+1)^,sizeof(Offset));
    end;


end;

exports
        doDll;

begin
 doDll();
end.

Вот мой код.
Осталось подправить аргумент шрифта)
UFont - хз как там

mira · 04.10.2010, 01:19

Цитата:

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

PHP код:


			
library MyFirstDLL;

uses

  SysUtils,

  Classes,

  Graphics,

  Forms,

  Windows;

const

adres = '?DrawString@FCanvasUtil@@QAEHHHPBGPAVUFont@@VFColor@@@Z';

adres1 = '??1FCanvasUtil@@UAE@XZ';

adres2 = '?Render@FPlayerSceneNode@@UAEXPAVFRenderInterface@@@Z';

text ='ALF';



procedure HelloWorld();

var

        DLLInstance : THandle;

        FCanvasUtilAddr,BOB: PByte;

        font:string;

        x,y:integer;

begin

    { загружаем DLL }

    DLLInstance := LoadLibrary('Engine.dll');

    BOB := GetProcAddress(DLLInstance, adres);

    FCanvasUtilAddr := GetProcAddress(DLLInstance, adres1);

    font :='Engine.DefaultFont'; {ХЗ КАКОЙ ШРИФТ ЮЗАЕТ ЛИНЕЙКА}

    x:=200;

    y:=200;

     asm

    push 00FF0000h   {цвет}

    push dword [font]{Шрифт, В ФОРМАТЕ UFont - я хз как}

    push word [text] {Текст}

    push y           {у}

    push x           {х}

    mov  ecx, FCanvasUtilAddr

    call [BOB]       {вызываем FCanvasUtil :: DrawString(int x, int y, ushort const *, UFont *, FColor)}

    end;

    FreeLibrary(DLLInstance);

end;



procedure FLayerCanvasRender; cdecl;

asm

    {перед вызовом FPlayerSceneNode :: Render рисуем текст}

  call HelloWorld

  retf    0DC24h

end;



procedure doDll();

var

        DLLInstance : THandle;

        PlayerScenAdr: PByte;

        Offset: DWORD;

begin

    { загружаем DLL }

    DLLInstance := LoadLibrary('Engine.dll');

    {перехвачиваем FPlayerSceneNode::Render}

    PlayerScenAdr := GetProcAddress(DLLInstance, adres2);

     if VirtualProtectEx(GetCurrentProcess,PlayerScenAdr,10,PAGE_EXECUTE_READWRITE,Offset) then begin

     PlayerScenAdr^ := $E9;

     Offset := Dword(@FLayerCanvasRender)-DWord(PlayerScenAdr)-5;

     move(Offset,Pointer(DWord(PlayerScenAdr)+1)^,sizeof(Offset));

    end;





end;



exports

        doDll;



begin

 doDll();

end.

Вот мой код.
Осталось подправить аргумент шрифта)
UFont - хз как там

выложи скрин че там получилось)

ALF · 04.10.2010, 01:23

та скринь не чего)
Клиет не находит шрифт и сразу закрывается (без ошибки)

P.S. Если ошибка в длинне аргументов то будет ошибка

PHP код:


			
History: FCanvasUtil::DrawString <- ViewportLock1 <- Precaching <-
 UGameEngine::Draw <- UWindowsViewport::Repaint <- 
UWindowsClient::Tick <- ClientTick <- UGameEngine::Tick <- UpdateWorld <- MainLoop

Если нету ошибки в длинне - то все норм.
Но так как мы хз что за фонт юзает л2, и как передать этот аргумент - нас л2 просто закрывает)

Добавлено через 1 минуту
как видиш я использую font :='Engine.DefaultFont' - это не правильно
тип аргумента должен быть UFont, а у меня string получается)
Мало того надо знать шрифт...
Хотя обычно в Unreal Engine-овских играю по идеи юзается Engine.DefaultFont хД

Morfik · 04.10.2010, 02:13

Цитата:

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

та скринь не чего)
Клиет не находит шрифт и сразу закрывается (без ошибки)
....

тут проблема не в этом

1-й ляп:
хук рендера - для функций ла2 такой сплайсинг не катит, тут нету волшебных 5 байтов, код нужно восстанавливать

2-й ляп

Код:

adres1 = '??1FCanvasUtil@@UAE@XZ'; 
...
FCanvasUtilAddr := GetProcAddress(DLLInstance, adres1); 
...
mov  ecx, FCanvasUtilAddr 
....

??1FCanvasUtil@@UAE@XZ
это
public: virtual __thiscall FCanvasUtil::~FCanvasUtil(void)

на русском - это деструктор для класса FCanvasUtil, т.е. по сути его метод, а нужно передать именоо УКАЗАТЕЛЬ НА ОБЬЕКТ, и он не экспортируемый, в этом и есь вся сложность.

Очень рекомендую тебе ознакомиться с темой классов в с++ а также что такое соглашение вызова thiscall.

ALF · 10.10.2010, 20:26

Цитата:

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

тут проблема не в этом

1-й ляп:
хук рендера - для функций ла2 такой сплайсинг не катит, тут нету волшебных 5 байтов, код нужно восстанавливать

2-й ляп

Код:

adres1 = '??1FCanvasUtil@@UAE@XZ'; 
...
FCanvasUtilAddr := GetProcAddress(DLLInstance, adres1); 
...
mov  ecx, FCanvasUtilAddr 
....

??1FCanvasUtil@@UAE@XZ
это
public: virtual __thiscall FCanvasUtil::~FCanvasUtil(void)

на русском - это деструктор для класса FCanvasUtil, т.е. по сути его метод, а нужно передать именоо УКАЗАТЕЛЬ НА ОБЬЕКТ, и он не экспортируемый, в этом и есь вся сложность.

Очень рекомендую тебе ознакомиться с темой классов в с++ а также что такое соглашение вызова thiscall.

А может можно создать в делфи констуктор??

Morfik · 10.10.2010, 20:32

Цитата:

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

??0FCanvasUtil@@QAE@ABV0@@Z - как насчет этого?
FCanvasUtil :: FCanvasUtil (FCanvaUtil const &)

а это один из конструкторов

я же написал что сам объект класса не экспортируемый

mira · 10.10.2010, 22:41

Цитата:

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

А может можно создать в делфи констуктор??

нет) можно только вызвать существующий.
кстате классы дельфи и си малось несовместимы)
у С++ хранит указатель на экземпляр класса в ЕСХ а в делфях непомню

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

Цитата:

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

Это никакую идею не дает?
[/php]

вообще никаких идей не дает