[Помогите!] Кому не лень, помогите нубу!

[VeTaL_UA]

Цитата: Сообщение от Shadrincev Код

Позволь спросить, а что этот код вообще делает? Ответ - ничего.

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

procedure PacketCall(aPParams:PParams); stdcall;
var
CallAddress,pPacket:Pointer;
Len:DWord;
begin
CallAddress:=Pointer($6737B0); //адрес был устаревший
Len:=aPParams^.Param1;
pPacket:=@aPParams^.Packet;
 asm
 pushad
 mov ecx, dword ptr [PW_BASE_ADDRESS]
 mov ecx, dword ptr [ecx+$34] //20
 push Len
 push pPacket
 call CallAddress
 popad
 end;
end;

procedure StrToByte(Packet:string; var aParams:TParams);
var
i:integer;
begin
i:=(length(Packet) div 2)-1;
aParams.Param1:=i+1;
 for i:=0 to i do
 aParams.Packet[i]:=strtoint('$'+Packet[i*2+1]+Packet[i*2+2]); 
end;

procedure Packet(Packet: string);
var
aParams: TParams;
Wnd: Thandle;
PID,hProcess: DWord;
begin
Wnd:=FID[Form1.ComboBox1.ItemIndex]; //Работаем с окном, которое выбрано в ComboBox'е
GetWindowThreadProcessId(Wnd,@PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID );
StrToByte(Packet,aParams);
InjectFunc(hProcess,@PacketCall,@aParams,sizeof(aParams));
CloseHandle(hProcess); //забыл дописать
end;

procedure TForm1.Button1Click(Sender: TObject);
var
aParams : TParams;
begin
Packet('030001'); //отсылаем пакет 030001
end;

end.

[Shadrincev]

В режиме Trace intro клиент вылетает при переключении:

Цитата: // ---- Создаем поток, в котором все это будет выполняться. hThread := CreateRemoteThread(ProcessID, nil, 0, ThreadAddr, ParamAddr, 0, lpNumberOfBytes); // ---- Ожидаем завершения функции WaitForSingleObject(hThread, INFINITE);

Где копать?

Добавлено через 2 часа 48 минут
[Ссылки могут видеть только зарегистрированные пользователи. ]
Может, кто посмотрит и найдет, что исправить.

[Shadrincev]

Ребят, пожалуйста, посмотрите исходник. Перечитал на раз 10 темы на pwlab.net и тут, и никак не могу понять, почему не идет инжект пакета…
Кто может помогите, помогите кто может.

[lcd1232]

Shadrincev, лучше для начала делфи подучи получше, а потом уже этим и занимайся.

[VeTaL_UA]

Shadrincev, объясни понятнее в чём заключается ошибка. Тогда тебе, скорее всего, помогут.

[Shadrincev]

Цитата: Сообщение от VeTaL_UA Shadrincev, объясни понятнее в чём заключается ошибка. Тогда тебе, скорее всего, помогут.

Цитата: В режиме Trace intro клиент вылетает при переключении: Цитата: // ---- Создаем поток, в котором все это будет выполняться. hThread := CreateRemoteThread(ProcessID, nil, 0, ThreadAddr, ParamAddr, 0, lpNumberOfBytes); // ---- Ожидаем завершения функции WaitForSingleObject(hThread, INFINITE);

При запуске же готового exe, вылет не происходит, но и инжекта нет.

[lcd1232]

Цитата: Сообщение от Shadrincev Ребят, пожалуйста, посмотрите исходник.

[Ссылки могут видеть только зарегистрированные пользователи. ]

[Shadrincev]

Цитата: Сообщение от lcd1232 [Ссылки могут видеть только зарегистрированные пользователи. ]

Эээээ... не понял.
Может сюда дать весь код?
Код

Цитата: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) ComboBox1: TComboBox; Button1: TButton; Button2: TButton; Button3: TButton; tmr1: TTimer; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure tmr1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; type PParams = ^TParams; TParams = packed record Packet: array [0..100] of byte; Param1,Param2,Param3: DWord; Param4: array [1..100] of widechar; end; const BA=$00B27A04; var Form1: TForm1; FID: array[0..10] of THandle; implementation {$R *.dfm} function ReadPlayerName(hProcess,dataWord): string; var i,rwWord; ch:WideChar; wch:array[0..255] of WideChar; str:string; begin i:=0; repeat ReadProcessMemory(hProcess,ptr(data),@ch,2,rw); data:=data+2; wch[i]:=ch; inc(i); until (ord(ch)=0) or (i>=255); i:=0; str:=''; repeat str:=str+wch[i]; inc(i); until wch[i]=''; result:=str; end; procedure TForm1.Button1Click(Sender: TObject); var Wnd:THandle; Nick,Res:String; Hndl:array[0..255] of Char; buf,ibuf,BCWord; hProcess,PID,PID1Word; i:Integer; begin for i:=0 to ComponentCount-1 do if Components[i].ClassName = 'TComboBox' then (Components[i] as TComboBox).Items.Clear; begin Wnd:=FindWindow('ElementClient Window',nil); GetWindowThreadProcessId(Wnd,@PID); hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID ); i:=0; while (hProcess<>0) and (PID<>PID1) do begin GetWindowText(Wnd,Hndl,SizeOf(Hndl)); ReadProcessMemory(hProcess,ptr(BA),@ibuf,sizeof(ib uf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,siz eof(ibuf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$34),@ibuf,siz eof(ibuf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$638),@buf,siz eof(buf),BC); Nick:=ReadPlayerName(hProcess,buf); Res:='Handle: '+Hndl+' '+'Nickname: '+Nick; SetWindowText(Wnd,PChar(Nick)); ComboBox1.Items.Add(Nick); FID[i]:=Wnd; PID:=PID1; inc(i); end; CloseHandle(hProcess); end; end; procedure TForm1.Button2Click(Sender: TObject); begin tmr1.Enabled := True; Button2.Enabled := False; Button3.Enabled := True; end; procedure TForm1.Button3Click(Sender: TObject); begin if tmr1.Enabled then begin tmr1.Enabled := False; Button2.Enabled := True; Button3.Enabled := False; end; end; procedure InjectFunc(hProcess: Cardinal; Func, aParams: Pointer; aParamsSize: DWord); var hThread: THandle; lpNumberOfBytes: DWord; ThreadAddr, ParamAddr: Pointer; begin if hProcess<>0 then begin ThreadAddr := VirtualAllocEx(hProcess, nil, 256, MEM_COMMIT, PAGE_READWRITE); WriteProcessMemory(hProcess, ThreadAddr, Func, 256, lpNumberOfBytes); ParamAddr := VirtualAllocEx(hProcess, nil, aParamsSize, MEM_COMMIT, PAGE_READWRITE); WriteProcessMemory(hProcess, ParamAddr, aParams, aParamsSize, lpNumberOfBytes); hThread := CreateRemoteThread(hProcess, nil, 0, ThreadAddr, ParamAddr, 0, lpNumberOfBytes); WaitForSingleObject(hThread, INFINITE); CloseHandle(hThread); VirtualFreeEx(hProcess, ParamAddr, 0, MEM_RELEASE); VirtualFreeEx(hProcess, ThreadAddr, 0, MEM_RELEASE); end end; procedure PacketCall(aPParams:PParams); stdcall; var CallAddress,pPacket:Pointer; LenWord; begin CallAddress:=Pointer($6737B0); Len:=aPParams^.Param1; pPacket:=@aPParams^.Packet; asm pushad mov ecx, dword ptr [BA] mov ecx, dword ptr [ecx+$34] push Len push pPacket call CallAddress popad end; end; procedure StrToByte(Packet:string; var aParams:TParams); var i:integer; begin i:=(length(Packet) div 2)-1; aParams.Param1:=i+1; for i:=0 to i do aParams.Packet[i]:=strtoint('$'+Packet[i*2+1]+Packet[i*2+2]); end; procedure Packet(Packet: string); var aParams: TParams; Wnd: Thandle; PID,hProcess: DWord; begin Wnd:=FID[Form1.ComboBox1.ItemIndex]; GetWindowThreadProcessId(Wnd,@PID); hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID ); StrToByte(Packet,aParams); InjectFunc(hProcess,@PacketCall,@aParams,sizeof(aP arams)); CloseHandle(hProcess); end; procedure TForm1.tmr1Timer(Sender: TObject); var aParams : TParams; begin Packet('280001010C00F7310000'); //пакет end; end.

[lcd1232]

Shadrincev, не качалось.
Update.
Скачал. Посмотрел. Вообщем не работает, потому что программа не выбирает нужный процесс и не получает к нему права. Для начало лучше сделай так:

hProcess, PID:dword; 
WndHndl:THandle;
...
...
WndHndl:=findwindow(nil,'Perfect World');//где Perfect World - название окна
GetWindowThreadProcessId(WndHndl, @PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);

Когда так настроишь потом уж мучайся через ник персонажа. Благо исходников на форуме предостаточно, чтобы решить данную проблему.

[Shadrincev]

Цитата: Сообщение от lcd1232 Shadrincev, не качалось

А так?

[VeTaL_UA]

procedure Packet(Packet: string);
var
aParams: TParams;
Wnd: Thandle;
PID,hProcess: DWord;
begin
Wnd:=FID[Form1.ComboBox1.ItemIndex];
GetWindowThreadProcessId(Wnd,@PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID );
StrToByte(Packet,aParams);
InjectFunc(hProcess,@PacketCall,@aParams,sizeof(aP arams));
//CloseHandle(hProcess); Попробуй убрать
end;

[Shadrincev]

Цитата: Сообщение от VeTaL_UA procedure Packet(Packet: string); var aParams: TParams; Wnd: Thandle; PID,hProcess: DWord; begin Wnd:=FID[Form1.ComboBox1.ItemIndex]; GetWindowThreadProcessId(Wnd,@PID); hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID ); StrToByte(Packet,aParams); InjectFunc(hProcess,@PacketCall,@aParams,sizeof(aP arams)); //CloseHandle(hProcess); Попробуй убрать end;

Цитата: Сообщение от lcd1232 Скачал. Посмотрел. Вообщем не работает, потому что программа не выбирает нужный процесс и не получает к нему права. Для начало лучше сделай так: hProcess, PID:dword; WndHndl:THandle; ... ... WndHndl:=findwindow(nil,'Perfect World');//где Perfect World - название окна GetWindowThreadProcessId(WndHndl, @PID); hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID); Когда так настроишь потом уж мучайся через ник персонажа. Благо исходников на форуме предостаточно, чтобы решить данную проблему.

Не помогло. Все также.

[samosi]

кстате таже самоя проблема в делпхях в C# все окай в чем проблема в делпхях?

[VeTaL_UA]

Цитата: Сообщение от samosi в чем проблема в делпхях?

В том, что готового фреймворка нет.

[Dinmaite]

Цитата: Сообщение от samosi кстате таже самоя проблема в делпхях в C# все окай в чем проблема в делпхях?

Не там ошибку в коде ищете, надо в генетическом.
А вообще вдруг у Вас не так окно называется?