Скан Инвенторя и выбрасывание предмета

Bосh · 29.06.2012, 19:23

Имеется код проверки инвентаря на ID предметов.

Код:

var
KlientWindow:HWND;
hProcess,PID,buf,ibuf,BC:DWord;
i:Integer;
j:array [0..31] of Integer;
begin
GetWindowThreadProcessId(KlientWindow,@PID);
hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,PID);
 for i:=0 to 31 do
  begin
  ReadProcessMemory(hProcess,ptr($00B27A04),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$34),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$CAC),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$C),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$4*i),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$8),@buf,sizeof(buf),BC);
  j[i]:=buf;
  Edit1.Text:=inttostr(j[SpinEdit1.Value-1]);
  end;
CloseHandle(hProcess);
end;
end.

Теперь, как реализовать выброс предмета. А то есть, если в инвентаре имеется такой - то ID предмета(Edit1.Text) и лежит он в какой то ячейке(?), то он выбросится.
Надо узнать в какой именно ячейке лежит нужный предмет и послать пакет на выброс,
(0E 00 + Ячейка + 01 00)

P.S В названии темы ошибка - Инвентаря

VeTaL_UA · 29.06.2012, 20:08

Код:

var
KlientWindow:HWND;
hProcess,PID,buf,ibuf,BC:DWord;
i,c:Integer;
j:array [0..31] of Integer;
begin
GetWindowThreadProcessId(KlientWindow,@PID);
hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,PID);
 for i:=0 to 31 do
  begin
  ReadProcessMemory(hProcess,ptr($00B27A04),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$34),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$CAC),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$C),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$4*i),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$8),@buf,sizeof(buf),BC);
   if buf={тут нужный ID предмета} then
    begin
    c:=i+1;
    end;
  j[i]:=buf;
  Edit1.Text:=inttostr(j[SpinEdit1.Value-1]);
  end;
CloseHandle(hProcess);
end;
end.

В "c" буде нужный тебе ID, дальше его и юзай

Bосh · 29.06.2012, 20:43

Ввожу нужный мне ID проверяет нормально, но если в 1 ячейке лежат 2 предмета, он показывает что такого ID в инвентаре нету.
[Ссылки могут видеть только зарегистрированные пользователи. ] = Предмета нету.
[Ссылки могут видеть только зарегистрированные пользователи. ] = Предмет есть.
P.S А нет, все показывает. Но если предмет лежит не на первой и второй ячейке.
И еще, как узнать в какой ячейке инвентаря лежит нужный предмет?

chetoss · 29.06.2012, 21:05

0E 00 + Ячейка + Кол-во + 00
Кол-во можно по адресу +10 узнать(кажется)

Bосh · 29.06.2012, 21:41

Цитата:

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


	0E 00 + Ячейка + Кол-во + 00 Кол-во можно по адресу +10 узнать(кажется)

Да это знаю. Но почему программа не видит предмет, когда он лежит на 1яч инвентаря, сейчас вообще перестала видеть предмет ячейки до 10.

samosi · 29.06.2012, 21:47

Код:

function GetCall(id: Integer): Integer;
var
KlientWindow:HWND;
hProcess,PID,buf,ibuf,BC:DWord;
i:Integer;
begin
GetWindowThreadProcessId(KlientWindow,@PID);
hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,PID);
 for i:=0 to 31 do
  begin
  ReadProcessMemory(hProcess,ptr($00B27A04),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$34),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$CAC),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$C),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$4*i),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$8),@buf,sizeof(buf),BC);
   if buf=id then
    begin
    Result:=i;
    break;
    end;
  end;
CloseHandle(hProcess);
end;

function GetCount(call: Integer): Integer;
var
KlientWindow:HWND;
hProcess,PID,buf,ibuf,BC:DWord;
i,r:Integer;
begin
GetWindowThreadProcessId(KlientWindow,@PID);
hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,PID);

ReadProcessMemory(hProcess,ptr($00B27A04),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$34),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$CAC),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$C),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$4*call),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$10),@r,sizeof(r),BC);

Result:=r;

CloseHandle(hProcess);
end;

function Drop(id : Integer): Integer;
begin
Packet('0E00' + GetCall(id) + GetCount(GetCall(id)) + '00');
end;

Bосh · 29.06.2012, 22:00

Цитата:

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

Код:

function GetCall(id: Integer): Integer; var KlientWindow:HWND; hProcess,PID,buf,ibuf,BC:DWord; i:Integer; begin GetWindowThreadProcessId(KlientWindow,@PID); hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,PID); for i:=0 to 31 do begin ReadProcessMemory(hProcess,ptr($00B27A04),@ibuf,sizeof(ibuf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$34),@ibuf,sizeof(ibuf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$CAC),@ibuf,sizeof(ibuf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$C),@ibuf,sizeof(ibuf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$4*i),@ibuf,sizeof(ibuf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$8),@buf,sizeof(buf),BC); if buf=id then begin Result:=i; break; end; end; CloseHandle(hProcess); end; function GetCount(call: Integer): Integer; var KlientWindow:HWND; hProcess,PID,buf,ibuf,BC:DWord; i,r:Integer; begin GetWindowThreadProcessId(KlientWindow,@PID); hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,PID); ReadProcessMemory(hProcess,ptr($00B27A04),@ibuf,sizeof(ibuf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$34),@ibuf,sizeof(ibuf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$CAC),@ibuf,sizeof(ibuf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$C),@ibuf,sizeof(ibuf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$4*call),@ibuf,sizeof(ibuf),BC); ReadProcessMemory(hProcess,ptr(ibuf+$10),@r,sizeof(r),BC); Result:=r; CloseHandle(hProcess); end; function Drop(id : Integer): Integer; begin Packet('0E00' + GetCall(id) + GetCount(GetCall(id)) + '00'); end;

Спасибо

VeTaL_UA · 29.06.2012, 22:03

Цитата:

Сообщение от Bосh


	Спасибо

На будущее: благодарность принимается нажатием соответствующей кнопки

samosi · 29.06.2012, 22:08

Вот имена.

Bосh · 29.06.2012, 22:27

Все понял. Исправил

VeTaL_Ua грац с 10001

Throme · 29.06.2012, 22:51

Как использовать эти функции?
Например из Edit1.Text взять id и проверить есть ли он в инвентаре? Я просто новенький в Delphi.

VeTaL_UA(1) · 30.06.2012, 01:26

Цитата:

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


	Например из Edit1.Text взять id и проверить есть ли он в инвентаре?

Код:

function GetCell(id: Integer): Integer;
var
KlientWindow:HWND;
hProcess,PID,buf,ibuf,BC:DWord;
i:Integer;
begin
KlientWindow=FindWindow(nil,'Perfect World');
GetWindowThreadProcessId(KlientWindow,@PID);
hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,PID);
 for i:=0 to 31 do
  begin
  ReadProcessMemory(hProcess,ptr($00B27A04),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$34),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$CAC),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$C),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$4*i),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$8),@buf,sizeof(buf),BC);
   if buf=id then
    begin
    Result:=i;
    break;
    end;
  end;
CloseHandle(hProcess);
end;

function GetCount(cell: Integer): Integer;
var
KlientWindow:HWND;
hProcess,PID,buf,ibuf,BC:DWord;
i,r:Integer;
begin
KlientWindow=FindWindow(nil,'Perfect World');
GetWindowThreadProcessId(KlientWindow,@PID);
hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,PID);
ReadProcessMemory(hProcess,ptr($00B27A04),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$34),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$CAC),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$C),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$4*cell),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$10),@r,sizeof(r),BC);
Result:=r;
CloseHandle(hProcess);
end;

procedure Button1Click(Sender:TObject);
begin
ShowMessage('Id: '+Edit1.Text+' Cell: '+IntToStr(GetCell(StrToInt(Edit1.Text)))+
                                     ' Count: '+IntToStr(GetCount(GetCell(StrToInt(Edit1.Text))));
end;

Ну как-то так.

**Ginrey** · 23.07.2012, 21:52

как получить можно параметры вещи, точнее доп параметры пение аспид, хп и т.д.

Скан Инвенторя и выбрасывание предмета

Общение разработчиков