[Руоф] Код для инжекта в память.

[gurin]

Не подскажете пакет для поднятия лута? (аналог кнопки - Поднимать предметы)

[aktivizion15]

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

[gurin]

да-да, мне так и надо

[krukovis]

Подскажите пожалуйста как сейчас выглядит функция отправки клавиш в клиент.
Раньше было так (код VB.NET)

 Public Sub ButtonPressCall(ByVal intButtonCommand As Integer)
        Dim intProcID As Integer = PW_PROCESS_ID
        Dim CallAddress As Integer = &H804A80 '&H73E250
        Dim asm As New ASM()
        asm.Pushad()
        asm.Mov_EAX(intButtonCommand)
        asm.Push_EAX()
        asm.Mov_ECX(BaseAddress)
        asm.Mov_ECX_DWORD_Ptr_ECX()
        asm.Mov_ECX_DWORD_Ptr_ECX_Add(&H1C)
        asm.Mov_ECX_DWORD_Ptr_ECX_Add(&H4)
        asm.Mov_ECX_DWORD_Ptr_ECX_Add(&H8)
        asm.Mov_ECX_DWORD_Ptr_ECX_Add(&H18)
        asm.Mov_ESI_ECX()
        asm.Mov_EBP(CallAddress)
        asm.Call_EBP()
        asm.Popad()
        asm.Ret()
        asm.RunAsm(intProcID, 0)
    End Sub

И что нужно передать в параметре intButtonCommand ?

Я для себя открыл, что при нажатии клавиши Tab клиент сам(!) автоматически выбирает ближайшего моба. Т.е. функцию нахождения ближайшего моба можно сильно упросить .

Помогите, пожалуйста.

[pw.lancer]

Уважаемые знатоки, не могли бы вы выложить исправленный инжект прыжка?
Код от Dunmate не работает, я там пофиксил под Genesis 3 места:
собственно, CallAddress из РУОФФ Адреса и оффсеты (Jump=0047E890*)
mov ecx, dword ptr [PW_GAMERUN_ADDR] // тут текущий GA
mov ecx, dword ptr [ecx+$34] // было $20
Подозреваю, что проблема как минимум в CallAddress, но может и сам вызов поменялся.
В принципе, боты прыгают нормально и нажатием пробела (SendMessage(VK_SPACE)), но есть одна проблема. В ХХ, когда перс портуется к Эмиссару, диалоговое окно не закрывается через VK_ESCAPE, какое-то оно там особенное. А при открытом окне прист не может запрыгнуть на уступ, ну и вообще не прыгает и не бегает пробелом и мышкой, соответственно.

[krukovis]

Цитата: Сообщение от pw.lancer инжект прыжка

 procedure JumpCall(); stdcall;
  var CallAddress:pointer;
  begin
    CallAddress:=Pointer($459В60);
     asm
      pushad
      mov ecx, dword ptr [GameAddress]
      mov ecx, dword ptr [ecx+$34]
      push $FFFFFFFF
      call CallAddress
      popad
     end;
  end;

[pw.lancer]

krukovis, к сожалению, не работает - игра вылетает. Инжектами пользуюсь, в частности, отправка пакетов и WalkInject, так что архитектура отлажена, в том числе и InjectFunc.
В CE 6.1 открываю memory view, по адресу 00459B60 находится строка
E8 CB2B0100 - call 0046C730
Ставлю бряк, прыгаю в игре персонажем, бряк не срабатывает.

[krukovis]

Цитата: Сообщение от pw.lancer по адресу 00459B60 находится строка

Сори, CallAddress:=Pointer($459D60);

[=Оленька=]

Цитата: Сообщение от aktivizion15 gurin, подсказать то легко, но он будет работать только в близи лута, лучше использовать инжект

А подскажите пожалуйсто сам инжект

[HellD]

=Оленька=,
http://zhyk.ru/forum/showpost.php?p=...0&postcount=57

[gurin]

пакет для продажи

25 00 02 00 00 00 10 00 00 00 01 00 00 00 [00 00 00 00] (00 00 00 00) {00 00 00 00}

в квадратных скобках [WID вещи]
в круглых скобках (номер ячейки в инвентаре, нумерация слева-направо, сверху-вниз, начиная с 0)
в фигурных скобках {количество вещей, которые надо продать}

пакет для покупки

25 00 01 00 00 00 1C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 [00 00 00 00](00 00 00 00){00 00 00 00}

в квадратных скобках [WID вещи]
в круглых скобках (номер ячейки у НИПа, нумерация слева-направо, сверху-вниз, начиная с номер_закладки_у_нипа * 32 десятичное)
в фигурных скобках {количество вещей, которые надо купить}

правда проверено только на аптекаре

[yeyebvz]

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

[gurin]

Цитата: Сообщение от yeyebvz Ребят, а помогите пожалуйста - как закрыть диалоговое окно нипа после разговора с ним. Я пробовал на телепортах - выбирался телепортёр, тпшился (пакетами), но диалоговое окно остаётся открытое (( Пробовал слушать что передётся после тп - добавлять такие же пакетики - не помогло. Посоветовали закрывать инжектом, но пока не понял как его ловить можно((

отправь ESC в клиента несколько раз

[=Оленька=]

HellD, Спасибо) ОГРОМНОЕ и ЧЕЛОВЕЧЕСКОЕ)))
Ткнуть спасибку немогу сообщений мало((((

procedure CallResurs(aPParams:PParams); stdcall;
var
MiningCall : pointer;
ItemSN : DWord;
begin
    ItemSN :=aPParams^.Param1;
    MiningCall := Pointer ($00469b40);
    asm
        pushad
        mov        ecx, dword ptr[$B280C4]
        mov        ecx, dword ptr[ecx+$34]
        push    $1;
        push    WIDres
        call    MiningCall
        popad
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var aParams:TParams;
begin
  aParams.Param1:=WIDres;
  InjectFunc(hProcess,@CallResurs,@aParams,SizeOf(aParams));
end;

Цитата: Сообщение от gurin отправь ESC в клиента несколько раз

подскажите пожалуйсто как

[krukovis]

Цитата: Сообщение от =Оленька= Ткнуть спасибку немогу сообщений мало((((

Всегда можно ткнуть + (чуть выше и правее аватарки).

Цитата: Сообщение от =Оленька= Цитата: Сообщение от gurinПосмотреть сообщение отправь ESC в клиента несколько раз подскажите пожалуйсто как

Я полагаю имеется ввиду API- функция keybd_event
На VB.NET она выглядит так:

    Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    'bVk - Виртуальный код клавиши для имитации нажатия и отпускания клавиши.
    'bScan - Зарезервировано -- установлено в 0.
    'dwFlags - Комбинация следующих флагов определяет различные способы имитации:
    'KEYEVENTF_EXTENDEDKEY - Префикс скэн-кода с префиксным байтом, имеющим значение &HE0.
    'KEYEVENTF_KEYUP - Клавиша, указанная в bVk будет отпущена. Если этот флажок не определен, клавиша будет нажата.
    'dwExtraInfo - Дополнительное 32-разрядное значение, связанное с событием клавиатуры.
    Public Const KEYEVENTF_KEYUP = &H2 'событие отпускания клавиши
    Public Const VK_ADD = &H6B  'клавиша +
    Public Const VK_CONTROL = &H11 'клавиша Ctrl
    Public Const VK_TAB = &H9 'клавиша Tab
    Public Const VK_MENU = &H12  'клавиша Alt
    Public Const VK_ESCAPE = &H1B  'клавиша Escape
    Public Const VK_LWIN = &H5B 'левая клавиша, эмулирующая нажатие кнопки ПУСК
    Public Const VK_RETURN = &HD 'Enter

На твоем не знаю как, думаю нагуглишь .
Но чтобы ее использовать должно быть активно окно клиента - что не очень удобно.