[Помогите!] ID юаней

[Dddda]

Подскажите как узнать ID юаней, или как заставить бота поднимать юани. Пишу на Делфи
06 00 CE A3 11 C0 E4 0B 00 00
06 00 D9 A3 11 C0 E4 0B 00 00
06 00 F0 A3 11 C0 E4 0B 00 00
06 00 0A A4 11 C0 E4 0B 00 00
06 00 0C A4 11 C0 E4 0B 00 00
06 00 17 A4 11 C0 E4 0B 00 00
06 00 18 A4 11 C0 E4 0B 00 00
вот коды поднятия монет, они постоянно меняются....

Добавлено через 2 часа 35 минут
никто не знает? ((

[Dinmaite]

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

3044 id

[Dddda]

да ток пакеты всегда меняются...на подбор монет,

[Dinmaite]

Держи. Адреса могли устареть.

  readprocessmemory(hProcess,ptr(base_pointer),@DWbuf,4,nbyte);//
  readprocessmemory(hProcess,ptr(DWbuf+$1C),@DWbuf,4,nbyte);   //получаем из памяти количество
  readprocessmemory(hProcess,ptr(DWbuf+$28),@DWbuf,4,nbyte);  //дропа вокруг
  readprocessmemory(hProcess,ptr(DWbuf+$14),@DWbuf,4,nbyte);  //
  j:=DWbuf;
  readprocessmemory(hProcess,ptr(base_pointer),@DWbuf,4,nbyte);
  readprocessmemory(hProcess,ptr(DWbuf+$1C),@DWbuf,4,nbyte);
  readprocessmemory(hProcess,ptr(DWbuf+$28),@DWbuf,4,nbyte);
  readprocessmemory(hProcess,ptr(DWbuf+$18),@DWbuf2,4,nbyte);
  index:=-1;
  for i:=0 to $300 do
    begin
      DWbuf:=0;
      readprocessmemory(hProcess,ptr(DWbuf2+i*4),@DWbuf,4,nbyte);
      if (DWBuf<>0) and (nbyte>0) then
        readprocessmemory(hProcess,ptr(DWbuf+$4),@DWbuf,4,nbyte);
          if (DWbuf<>0) and (nbyte>0) then
            begin
              inc(index);
              readprocessmemory(hProcess,ptr(DWbuf+$10C),@drop.WID,4,nbyte);
              readprocessmemory(hProcess,ptr(DWbuf+$3C),@drop.coords,16,nbyte);
              readprocessmemory(hProcess,ptr(DWbuf+$14C),@drop._type,4,nbyte);
              readprocessmemory(hProcess,ptr(DWbuf+$164),@DWbuf,4,nbyte);
              readprocessmemory(hProcess,ptr(DWbuf+$0),@BufS,60,nbyte);
              DropName:=string(bufS);
              delete(DropName,pos(#0,DropName),maxint);
if dropname='?Шарф из ткани' then
  sleep(1000);
              try
                MySection.Enter;
                index:=Form1.CheckListBox2.Items.IndexOf(DropName);
                if (index=-1) then
                  begin
                    Form1.CheckListBox2.Items.Add(DropName);
                    if Form1.CheckBox1.Checked then
                      Form1.CheckListBox2.Checked[Form1.CheckListBox2.Count-1]:=true;
                    index:=Form1.CheckListBox2.Count-1;
                  end;
                //ischeck:=false;
                if (index<>-1) then
                  if Form1.CheckListBox2.Checked[index] then
                    begin
                      //ischeck:=true
                      drop.index:=i;
                      SetLength(drop_,Length(drop_)+1);
                      drop_[Length(drop_)-1]:=drop;
                    end;
              finally
                MySection.Leave;
              end;
            end;
    end;

[Dddda]

спасибо огромное, друг

[Dddda]

//Memo1.Lines.clear;

    ReadProcessMemory(hProcess, ptr(BaseAdress), @addr, SizeOf(addr), BytesCountOfRead);
    ReadProcessMemory(hProcess, ptr(addr+$1C), @addr, SizeOf(addr), BytesCountOfRead);
    ReadProcessMemory(hProcess, ptr(addr+$8), @addr, SizeOf(addr), BytesCountOfRead);
    ReadProcessMemory(hProcess, ptr(addr+$28), @addr, SizeOf(addr), BytesCountOfRead);
    ReadProcessMemory(hProcess, ptr(addr+$14), @Ammo, SizeOf(Ammo), BytesCountOfRead); //Кол-во лута вокруг


    ShowMessage('предметов: ' + IntToStr(Ammo));

  if Ammo <> 0 then
   begin
    //Memo1.Lines.Add('предметов: ' + IntToStr(Ammo));

    ReadProcessMemory(hProcess, ptr(BaseAdress), @addr, SizeOf(addr), BytesCountOfRead);
    ReadProcessMemory(hProcess, ptr(addr+$1C), @addr, SizeOf(addr), BytesCountOfRead);
    ReadProcessMemory(hProcess, ptr(addr+$8), @addr, SizeOf(addr), BytesCountOfRead);
    ReadProcessMemory(hProcess, ptr(addr+$28), @addr, SizeOf(addr), BytesCountOfRead);
    ReadProcessMemory(hProcess, ptr(addr+$18), @addr2, SizeOf(addr2), BytesCountOfRead);

    for i:=$0 to $300 do
      begin
        ReadProcessMemory(hProcess, ptr(addr2 + i*4),@addr, SizeOf(addr), BytesCountOfRead);

        if Ammo <> 0 then
         begin
          repeat
            ReadProcessMemory(hProcess, ptr(addr + $0), @addr, sizeof(addr), BytesCountOfRead);
            Ammo:= Ammo - 1;
          until Ammo <= 0;
         end;

        ReadProcessMemory(hProcess, ptr(addr + $4), @addr, sizeof(addr), BytesCountOfRead);
        ReadProcessMemory(hProcess, ptr(addr + $10C), @IWIDbuf, sizeof(IWIDbuf), BytesCountOfRead);
        ReadProcessMemory(hProcess, ptr(addr + $110), @IIDbuf, sizeof(IIDbuf), BytesCountOfRead);
        ReadProcessMemory(hProcess, ptr(addr + $14C), @IIDbuf, sizeof(IIDbuf), BytesCountOfRead);

       // Memo1.Lines.Add('WID: ' + inttostr(IWIDbuf));
       // Memo1.Lines.Add('ID: ' + IntToStr(IIDbuf));
       // Memo1.Lines.Add('Type: ' + IntToStr(ITypebuf));

       ShowMessage('WID: ' + inttostr(IWIDbuf));
       ShowMessage('ID: ' + IntToStr(IIDbuf));
       ShowMessage('Type: ' + IntToStr(ITypebuf));

      end;
    end;

в количестве мобов запредельные значения типа 4 миллиона...
нужны смещения, версия как 1.4.6 по адресам по крайней мере
может подсказать кто?