[Помогите!] Инжект таргета и др.

[Jok3r666]

Обьясните на пальцах почему когда я ставлю вместо $B27A04 переменную которая содержит этот адрес, клиент вылетает (выделяет и вылетает)

    MOV EDI, P1                             // ?????? WID ???? ? ??????? EDI
    MOV EBX,$006686E0                   
    MOV EAX,DWORD PTR DS:[$B27A04]          //
    PUSH EDI                                // ; /Arg1
    MOV ECX,DWORD PTR DS:[EAX+$20]          // ; |
    ADD ECX,$0EC                            // ; |
    CALL EBX

Не могу одуплить, никак блин.

[BritishColonist]

Потому что переменная находится вне зоны видимости потока, созданного в процессе игры. Если используешь инжектор кода, то юзай конкретные числа (в C++ для этого очень хорошо подходит #define, если в дельфи есть его аналоги - смело дерзай).

[Jok3r666]

Цитата: Сообщение от BritishColonist Потому что переменная находится вне зоны видимости потока, созданного в процессе игры. Если используешь инжектор кода, то юзай конкретные числа (в C++ для этого очень хорошо подходит #define, если в дельфи есть его аналоги - смело дерзай).

Но P1 же видит!
Я к PParams дописывал переменные по аналогии с P1 и все равно та же беда.
Он выделяет таргет т.е. ba видит и только потом вылетает.
Я ваще туплю

procedure TargetCall(aPParams:PParams);Stdcall; //StdCall 
var                                         //
  P1, P2: DWord;                                //
begin                                       //
  P1:=aPParams^.WID; 
  P2:=aPParams^.BA;                       //
  asm
    MOV EDI, P1                             // ?????? WID ???? ? ??????? EDI
    MOV EBX, $006686E0 
    MOV EAX,DWORD PTR DS:[BA]          //
    PUSH EDI                                // ; /Arg1
    MOV ECX,DWORD PTR DS:[EAX+$20]          // ; |
    ADD ECX,$0EC                            // ; |
    CALL EBX                                // ; \elementc.00606A70
  end;
end;

[Docent2001]

1. Зачем тебе локальная переменная P2, если ты ее не используешь?

2. ИмяКакойтоПеременной.BA И BA - это разные вещи. СОВСЕМ разные.

Первое - описание поля в записи, у тебя может быть 100500 типов записей в каждом из которых есть поле .BA.

Второе - отдельная переменная (ну или константа). В пределах ее "области видимости" она уникальна.

3. Зачем тебе вообще использовать BA как переменную? Определи константу. При каком-нибудь глобальном обновлении поменяешь.

И, наконец,
4. То что процедура выделяет таргет НЕ значит что она "видит" ВА.
За выделение таргета отвечает код, на который ты переходишь по команде CALL EBX, причем EBX содержит уже готовый статический адрес $006686E0, никак не связанный с ВА.
А [ВА+20] - это _thiscall. В тех кусках кода что ты показал абсолютно не видно где определена эта переменная/константа с именем ВА, и что в ней находится.

[Jok3r666]

Цитата: Сообщение от Docent2001 1. Зачем тебе локальная переменная P2, если ты ее не используешь? 2. ИмяКакойтоПеременной.BA И BA - это разные вещи. СОВСЕМ разные. Первое - описание поля в записи, у тебя может быть 100500 типов записей в каждом из которых есть поле .BA. Второе - отдельная переменная (ну или константа). В пределах ее "области видимости" она уникальна. 3. Зачем тебе вообще использовать BA как переменную? Определи константу. При каком-нибудь глобальном обновлении поменяешь. И, наконец, 4. То что процедура выделяет таргет НЕ значит что она "видит" ВА. За выделение таргета отвечает код, на который ты переходишь по команде CALL EBX, причем EBX содержит уже готовый статический адрес $006686E0, никак не связанный с ВА. А [ВА+20] - это _thiscall. В тех кусках кода что ты показал абсолютно не видно где определена эта переменная/константа с именем ВА, и что в ней находится.

извинтиляюсь, вместо ba в асме стоит P2 в которую помещается ba
вот так делал:

Procedure WithCat(hprocess:dword; id:integer);
var
aParams:tParams;
begin     
  aParams.WID:= id;
  aParams.BA:= Base_addr; /// $B27A04
  InjectFunc(hProcess, @TargetCall, @aParams, SizeOf(aParams ) );
.....
end;

procedure TargetCall(aPParams:PParams);Stdcall; 
var                                      
  P1,P2: DWord;                               
begin                                    
  P1:=aPParams^.WID;                   
  P2:=aPParams^.BA;                   
asm
    MOV EDI, P1                        
    MOV EBX, $006686E0                    
    MOV EAX,DWORD PTR DS:[P2]        
    PUSH EDI                            
    MOV ECX,DWORD PTR DS:[EAX+$20]       
    ADD ECX,$0EC                        
    CALL EBX                            
  end;
end;

Вот как то так...

[BritishColonist]

Попробуй заключить ассемблерный код в команды pushad и popad:

asm
    PUSHAD
    MOV EDI, P1                        
    MOV EBX, $006686E0                    
    MOV EAX,DWORD PTR DS:[P2]        
    PUSH EDI                            
    MOV ECX,DWORD PTR DS:[EAX+$20]       
    ADD ECX,$0EC                        
    CALL EBX              
    POPAD              
end;

[Docent2001]

1. Согласен с BritishColonist по поводу заключения ассемблерного кода в команды pushad и popad.

2. Так и не понял - ну зачем делать изврат с передачей константы через aParams.

  procedure TargetCall(PParams: TPParams);Stdcall;
  var WID: DWORD;
  begin
    WID := PParams^.dwP1;
    asm
     pushad
     mov ecx, dword ptr [BaseAddress]
     mov ecx, dword ptr [ecx+$20]
     add ecx, $EC
     mov edx, WID
     push edx
     mov eax, $006686E0
     call eax
     popad
    end;
  end;

Здесь BaseAddress определен выше как константа.
Зачем тебе передавать два параметра вместо одного? Создать трудности и героически их преодолеть?
Собственно и указание ds: в твоем коде лишнее, хотя и безвредное

[gurin]

procedure TargetCall(aPParams:PParams);Stdcall;
var
P1,P2: DWord;
begin
P1:=aPParams^.WID;
P2:=aPParams^.BA;
asm
MOV EDI, P1
MOV EBX, $006686E0
MOV EAX,DWORD PTR DS:[P2]
PUSH EDI
MOV ECX,DWORD PTR DS:[EAX+$20]
ADD ECX,$0EC
CALL EBX
end;
end;

так у меня тоже вылетает, я делаю так

procedure TargetCall(aPParams:PParams);Stdcall;
var
P1,P2: DWord;
begin
P1:=aPParams^.WID;
P2:=aPParams^.BA;
asm
MOV EDI, P1
MOV EBX, $006686E0
MOV EAX, P2
MOV EAX,DWORD PTR DS:[EAX]
PUSH EDI
MOV ECX,DWORD PTR DS:[EAX+$20]
ADD ECX,$0EC
CALL EBX
end;
end;

З.Ы. константы конечно хороши, но охота смещения из файла читать

[Jok3r666]

Цитата: Сообщение от gurin З.Ы. константы конечно хороши, но охота смещения из файла читать

именно для этого и парюсь))

Цитата: Сообщение от Docent2001 2. Так и не понял - ну зачем делать изврат с передачей константы через aParams.

На прямую не хотел хавать вот и попробовал по аналогии с P1

Тогда еще один вопрос, как тут сделать $20 через переменную?
MOV ECX,DWORD PTR DS:[EAX+$20]

[BritishColonist]

пусть P3 - твоя переменная.

asm
  pushad
  ...
  mov eax,dword ptr ds:[P2] // base
  add eax,P3
  mov ecx,dword ptr ds:[eax]
  ...
end;

либо так (если тот код не сработает):

asm
  pushad
  ...
  mov eax,dword ptr ds:[P2] // base
  mov edx,P3
  mov ecx,dword ptr ds:[eax+edx]
  ...
end;

[Fess88]

Подскажите пожалуйста новый инжект на таргет

[diagnost]

var
P1: DWord;
begin
P1:=aPParams^.WID;
asm
MOV EDI, P1 // Вносим WID моба в регистр EDI
MOV EBX, $00746BD0 //Call Targeta
MOV EAX,DWORD PTR DS:[$CCEFAC]
PUSH EDI
MOV ECX,DWORD PTR DS:[EAX+$20]
ADD ECX,$0F4
CALL EBX