[Помогите!] Неправильная отправка

[STIL23]

Всем привет возникла проблема: функция отказывается отправлять пакет

2800000010B0067300000

. Пакеты медетации шлет, юзания скилов тоже , а именно этот пакет отказывается . Через PwPacketListner пакет этот отправляется. А когда я отправляю пакет через свою программу PwPacketListner пишет , что отправляется пакет

 28000000000000000000

вместо данного . Кто может объяснить в чем проблема ? У друга работает- пакет отправляется. Функция вот:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sButton, sComboBox;

type
  TForm2 = class(TForm)
    sComboBox1: TsComboBox;
    sButton1: TsButton;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 type
 PParams = ^TParams;
 TParams = packed record
 Packet: array [0..100] of byte;
 Param1,WID: DWord;
 end;
  const
 PW_BASE_ADDRESS = $00A571E0;
 PW_GAMERUN_ADDR = $00A57ACC;

var
  Form2: TForm2;

implementation

{$R *.dfm}
  procedure InjectFunc(ProcessID: Cardinal; Func, aParams: Pointer;
 aParamsSize: DWord);
 var
 hThread: THandle;
 lpNumberOfBytes:size_t;  lpNumberOfBytes2: dword;
 ThreadAddr, ParamAddr: Pointer;
 begin
 if ProcessID<>0 then
 begin
 // ---- Выделяем место в памяти процесса, и записываем туда нашу функцию
 ThreadAddr := VirtualAllocEx(ProcessID, nil, 256, MEM_COMMIT, PAGE_READWRITE);
 WriteProcessMemory(ProcessID, ThreadAddr, Func, 256, lpNumberOfBytes);

 // ---- Также запишем параметры к ней
 ParamAddr := VirtualAllocEx(ProcessID, nil, aParamsSize, MEM_COMMIT, PAGE_READWRITE);
 WriteProcessMemory(ProcessID, ParamAddr, aParams, aParamsSize, lpNumberOfBytes);

 // ---- Создаем поток, в котором все это будет выполняться.
 hThread := CreateRemoteThread(ProcessID, nil, 0, ThreadAddr, ParamAddr, 0, lpNumberOfBytes2);

 // ---- Ожидаем завершения функции
 WaitForSingleObject(hThread, INFINITE);

 // ---- подчищаем за собой
 CloseHandle(hThread);
 VirtualFreeEx(ProcessID, ParamAddr, 0, MEM_RELEASE);
 VirtualFreeEx(ProcessID, ThreadAddr, 0, MEM_RELEASE);
 end
 end;
procedure PacketCall(aPParams:PParams); stdcall;
 var
 CallAddress,pPacket:Pointer;
 Len: DWord;
 begin
 CallAddress:=Pointer($63DB70); //адрес был устаревший
 Len:=aPParams^.Param1;
 pPacket:=@aPParams^.Packet;
 asm
 pushad
 mov ecx, dword ptr [$A571E0]
 mov ecx, dword ptr [ecx+$20] //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 1 do
 aParams.Packet[i]:=strtoint('$'+Packet[i*2+1]+Packet[i*2+2]);
 end;

procedure Packet(Packet: string);
var
   aParams: TParams;
   PID, hProcess: DWord;
   wnd: THandle;
 begin
 wnd:=FindWindow(nil,'Perfect World');
      GetWindowThreadProcessId(wnd, @PID);
      hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);
      StrToByte(Packet,aParams);
      InjectFunc(hProcess,@PacketCall,@aParams,sizeof(aParams));
      CloseHandle(hProcess); //забыл дописать
 end;


procedure TForm2.Button1Click(Sender: TObject);

begin
 Packet('2800000010B0067300000');
end;

end.

Попробовал разбить на части пакет все равно шлет другой пакет

[Ginrey]

попробуй поправь вот это
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 1 do
aParams.Packet[i]:=strtoint('$'+Packet[i*2+1]+Packet[i*2+2]);
end;

замени на i

Добавлено через 3 минуты
вот моя функция пакета. прежде конечно нужно создать выбор персонажа.

Цитата: procedure Packet(Packet: string); var aParams: TParams; PID, hProcess: DWord; aPrm: TParams; wnd: THandle; h: Integer; begin wnd:=FindWindow('ElementClient Window', PChar(nick)); GetWindowThreadProcessId(wnd, @h); hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, h); StrToByte(Packet,aPrm); /////////// InjectFunc(hProcess,@PacketCall,@aPrm,sizeof(aPrm) ); end;

[dwa83]

Цитата: Сообщение от STIL23 2800000010B0067300000

2800000010B0067300000 первый указанный вами пакет
28000000000000000000 тот что отправляли пакетлистнером
280000011F00A9210000 пакет из темы инжектов
Разницу чувствуете?) Может в этом ошибка?

[STIL23]

Цитата: Сообщение от dwa83 2800000010B0067300000 первый указанный вами пакет 28000000000000000000 тот что отправляли пакетлистнером 280000011F00A9210000 пакет из темы инжектов Разницу чувствуете?) Может в этом ошибка?

Да я там просто когда писал запутался проблема была в том , что нужно было поставить вместо 1 , i