Rus. server

[AlexGD]

Originally Posted by Shamanpovt

ППЦ... прочитал за несоклько часов всю эту ветку... Поэтому задам вопрос, на который ответ не нашёл - как заинжектрировать функцию копки ресов? А то не хочется заниматься онанизмом через выборм моба и подмену ID.

Плохо искал

procedure CullCall(aPParams:PParams); Stdcall;
var
  Address1: pointer;
  P1,p2,p3: dword;
begin
  Address1:=Pointer(W2I_Cull_Call);
  P1:=aPParams^.Param1;           // їуІщАаРН
  p2:=aPParams^.Param6;           //їуІщФЪ°ьё¤µДО»ЦГ
  P3:=aPParams^.Param2;           // Дї±кID
  asm
    pushad
    push 0
    push p1
    push 0
    push p2
    push P3
    call Address1
    add esp,$14
    popad
  end;
end;
procedure TMan.Cull(a,b,c:Cardinal);
var
  aParams : TParams;
  aParamsSize: DWORD;
begin
  aParams.Param1:=a; // їуІщАаРН callci_ID,callci_ID_wp,callci_wp_ID
  aParams.Param2:=b;//їуІщФЪ°ьё¤µДО»ЦГ
  aParams.Param3:=c;// Дї±кID
  aParamsSize:=SizeOf(aParams);
  if GHwnd<>0 then
  begin
    injectfunc(@CullCall, @aParams, aParamsSize);
  end;
end;

Адрессочки тут тоже публиковались. Ровняй напильником и юзай

[AlexGD]

Originally Posted by Barmank

Очень все просто, но работает тока в диалоговом акне для выбора пункта ответа!!!! Код на Delphi

координаты берем так:
X=30
Y=300+i*20
X,Y относительно диалогового окна I номер строки (1я = 0)

К сожалению данный способ, как я уже писал выше, не работает для кнопок в трейд окне

На выходных проверю, прям похоже на фантастику. Хотя были у меня подозрения, что именно там читается не буфер директинпута, но я их даже проверять не стал )

Кстати, а как нажать, например, 7ю строчку?

[Vasilij3]

Ребят, помогите плиз. Пытаюст на автоите сборщик ресов написать, какой адрес для инжектирования использовать? а то найти не могу(((

[AlexGD]

Originally Posted by dwar

Äîáðàëèñü òàêè äî ìàññèâà êîíòðîëîâ (èëè îêîøåê, íå âàæíî êàê íàçûâàòü) … Äåðæèòå, åñëè áóäåò ñèå ïîëåçíî (ìîæíî ïåðåäâèãàòü îêíà, ïîëó÷àòü îïèñàíèå ïðåäìåòîâ ïîä êóðñîðîì…).

[BA] + $1C + $04:: controls
$08 - Controls, wnd Ptr (PTR, 4b)

[BA] + $1C + $04 + $08:: Controls, wnd
$18 - Current Wnd (PTR, 4b)
$D0 - Movements count (float, 4b)
$D4 - Wnd under mouse (PTR, 4b)
$D8 - Wnd object under mouse (PTR, 4b)
$DC - Wnd object usable under mouse (PTR, 4b)
$E0-E4 - Hint Pos XY (dword, 4x2b)
$218 - Inv wnd (PTR, 4b)
$264 - Dialog wnd (PTR, 4b)
$310 - Trader wnd (PTR, 4b)

[BA] + $1C + $04 + $08 + wnd PTR:: Wnd description
$54-58 - Wnd Pos XY (dword, 4x2b)
$60 - If drag (bool1b) (1: if dragging)
$61 - is draggable (bool1b)(1: true)
$64-68 - Mouse point, drag point (dword, 4x2b)
$6C - Is wnd opened (dword, 4b)
$90 - Usable control (PTR, 4b)
$94 - Wnd object under mouse (PTR, 4b) (same as [BA] + $1C + $04 + $08 + $D8)
$168 - Dialog options (PTR, 4b)

[BA] + $1C + $04 + $08 + $wnd PTR + $168:: Dialog options
$A0 - Dialogs count (dword, 4b)
$B0 - Current dialogs line (dword, 4b)
$E0 - Dialogs count (dword, 4b)

 [BA] + $1C + $04 + $08 + $18 çàïèñàí óêàçàòåëü íà òåêóùåå àêòèâíîå îêíî (ïî êîòîðîìó êëèêíóëè). Äî ïàðàìåòðîâ îêíà ìîæíî äîáðàòüñÿ è ÷åðåç wndPTR (íàïðèìåð, èíâåíòàðü - $218), íå âàæíî, îòêðûòî îíî èëè íåò.

P.S. Íàäåþñü, ïîñëå ïîñëåäíåãî àïäåéòè â äàííîì ìàññèâå íè÷åãî íå ïîìåíÿëîñü è áîëüøàÿ ÷àñòü óêàçàííûõ àäðåñîâ äåéñòâèòåëüíà

Sorry, but:
$6C - Is wnd opened: BYTE

[Barmank]

Originally Posted by AlexGD

На выходных проверю, прям похоже на фантастику. Хотя были у меня подозрения, что именно там читается не буфер директинпута, но я их даже проверять не стал )

Кстати, а как нажать, например, 7ю строчку?

I=6 ([номер строки] - 1)

Насчет кнопочек вот инжект починки

procedure BtnReparAllCall (aPParams: PParams); stdcall;
var
address ointer;
BaseCallAddress : DWORD;
begin
address := Pointer(aPParams^.Param7);
asm
pushad
push $0FFFFFFFF
push 0
push 0
call address
add esp, $0C
popad
end;
end;

Работает сразу минуя все вопросы выполнил и все починено
Можно с помощью нее и починку из инвентаря сделать, все волшебство в волшебных пузырьках, кх то есть первых 3х пушах, если поковыряться можно найти что туда класть
Также работает и инжект выше, вызов функции происходит уже после нажатия "Да",тока я ёё полноценно запустить не могу, кстати ижект покупки как брат близнец, 1й пуш ХЗ что а 2й количество занятых ячеек при покупке/продаже.

[Barmank]

Originally Posted by Vasilij3

Ребят, помогите плиз. Пытаюст на автоите сборщик ресов написать, какой адрес для инжектирования использовать? а то найти не могу(((

procedure MiningCall(aPParams: PParams); stdcall;
var
BaseCallAddress: DWORD;
MiningCall : Pointer;
ItemSn : DWORD;
Posword;

begin
BaseCallAddress := aPParams^.Param0; // $0098ADDC
ItemSn := aPParams^.Param1;
Pos := aPParams^.Param2;
MiningCall := Pointer(aPParams^.Param7); // $005DADD0

asm
pushad
push 0
push $C01 // ID кирки
push Pos // номер Ячейка
push 0
push ItemSN // SN ресурса
call MiningCall
add esp, 14h
popad
end;
end;

надеюсь сам на автоит переработаешь!

[AlexGD]

Originally Posted by Barmank

I=6 ([íîìåð ñòðîêè] - 1)

Òàê ñòðîê â îêíå æ òîêà 5

[Barmank]

Originally Posted by AlexGD

Òàê ñòðîê â îêíå æ òîêà 5

Прикалываешься?

[maxxxx26]

Originally Posted by moob1

Пацаны прикиньте черти с ач взяли и с моего кряка копирайты убрали и запостили там . )))

Я мля в шоке как так ? ))

харе спать вы куда все подевались ? ))

они ещё и забанить могут чтоб втихую как своё выложить))

[dwar]

Хм, забавные картинки (+ карты высот) получаются после распаковки файлов с картами (опираясь на наработки luke с




Остается лишь до конца понять, как клиент определяет пересечение с «непроходимыми» объектами (заборы, дома), можно будет смело забыть обо всех трудностях передвижения бота…

[AlexGD]

Originally Posted by Barmank

Ïðèêàëûâàåøüñÿ?

Ñ ÷åãî áû ìíå ïðèêàëûâàòüñÿ-òî...  îêíå äèàëîãà ñ íåïèñåì 5 ñòðîê. À ìíå íóæíî íàæàòü 6þ èëè 7þ. Èëè ÑåíäÌåññàäæ è òóäà äîòÿãèâàåòñÿ ñ ïîìîùüþ òîãî æå âîëøåáñòâà, ÷òî è äî ïåðâûõ 5òè?

Èëè æòî òîëüêî ê ìåíÿ â äèàëîãå âèäíî òîëüêî 5 ñòðîê?

[Barmank]

Тю дошло, нет это не прокатит, тока если ползунок прокрутить

А что с помощью эвент мауса можно?

[Barmank]

Originally Posted by dwar

Хм, забавные картинки (+ карты высот) получаются после распаковки файлов с картами (опираясь на наработки luke с




Остается лишь до конца понять, как клиент определяет пересечение с «непроходимыми» объектами (заборы, дома), можно будет смело забыть обо всех трудностях передвижения бота…

Кто бы дал код программулины, чтоб в нем покапать и понять как они эту картинку получили.
А программка, что на скрине, твоя или скрин с сайта?

[Barmank]

Originally Posted by dwar

íóóóó, îïÿòü ... äàòü èñõîäíèê ïðîãðàììû, äàòü ãîòîâîãî áîòà...
åñòü æå àëãîðèòì ðàñïàêîâêè, - èäåàëüíîå îïèñàíèå, áîëüøå íè÷åãî è íå íàäî.
P.S. ñêîìïèëèðîâàííóþ ïðîãðàììó, ìîæåò áûòü, â ñêîðîì âðåìåíè âûëîæó, íî íèêàê íå åå êîä.

я не просил прям все!! (хотя это и было бы замечательно).
Я бы может и сам написал эту программу, но вот знаний маловато, и самостоятельно разобраться вряд ли смогу.
Поэтому и просил хотя бы код чтоб так сказать на примере!
Хотя наверно и это слишком сложно будет

[AlexGD]

dwar. Раз уж все помощи просят, то и я попрошу...
Не могу разобраться как в чат писать... Особенно интересно, как писать в отдельные группы...
Есть идеи, как это сделать?