[Работает] AHK Аукцион

@Art Urr · 02.04.2017, 14:50

Делал для себя, оставляю на ночь что бы скупал петов или.....
Скрипт привязан к координатам и будет работать только на разрешение 1680*1050

;---------------------------------
CoordMode, ToolTip, Client
SendMode Play
Insert::
Loop
{
Send, {Click 1175, 330, 0}
Send, {Click left down}
Send, {Click left up}
Send, {Enter}
Send, {Click 1175, 395, 0}
Send, {Click left down}
Send, {Click left up}
Send, {Enter}
Send, {Click 1175, 460, 0}
Send, {Click left down}
Send, {Click left up}
Send, {Enter}
Send, {Click 1175, 520, 0}
Send, {Click left down}
Send, {Click left up}
Send, {Enter}
Send, {Click 1175, 580, 0}
Send, {Click left down}
Send, {Click left up}
Send, {Enter}
Send, {Click 1175, 640, 0}
Send, {Click left down}
Send, {Click left up}
Send, {Enter}
Send, {Click 1175, 700, 0}
Send, {Click left down}
Send, {Click left up}
Send, {Enter}
Send, {Click 675, 760, 0}
Send, {Click left down}
Send, {Click left up}
Sleep, 300
}
return
PAUSE::PAUSE
;---------------------------------

ВНИМАНИЕ! Если у вас не разрешение 1680*1050 НЕ ЗАУПСКАЙТЕ
Кнопка Insert запускает Кнопка PAU/BRK пауза\снять паузу

Бот нажимает на все кнопки Торг\Купить\Проверить и обновляет окно.

Для своего разрешение можете взять коорды с помощю windowspy (C:\Program Files\AutoHotkey\AU3_Spy.exe)

@xsoft · 03.04.2017, 11:11

А АНК, разве не блочится?

@Enemt · 06.04.2017, 10:38

Так блочится, у меня даже в моде плей. А вот если юзать дллку для передвижения мыши, и какую нить а4тек для кликов, с отключением мышки через библиотечку хука, то впринципе воркает. можно и кликать через маузивент, но я чет не стал. предварительно отключаю тор геймнета через бат.
Правд никакого очеловечивания при перескакивании мышки от координаты к координате добавить не выйдет.

Добавлено через 31 минуту
[HIDE="40"]Вот вчера поюзал, не оптимизировано, но и ладно мне для скупки пары троек печенюх. Окошко без рамки, 1080p и скупает и проверяет только в режиме торг. если не купили то и нам не надо

работает в связки с bat, код ниже. служба thorn на ручном режиме и макрос на клик мышки с общим временем на повтор 500мс.

PHP код:


			
net start Thorn

TIMEOUT /T 180 /NOBREAK

cd %LOCALAPPDATA%\THORN && thorn.exe -c 20***91;/HIDE***93;

PHP код:


			
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.

; #Warn  ; Enable warnings to assist with detecting common errors.

SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.

SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.



CoordMode, Pixel, Screen



^XButton2::GoSub, Exit

return

^X::GoSub, Exit

return

OnExit, Exit

return



XButton2::

VarX := 1300

VarY1 := 350

VarY2 := 410

VarY3 := 475

VarY4 := 540

VarXnew := 800

VarYnew := 775

VarXok := 910

VarYok := 479

VarXmax := 1115

VarYmax := 595

VarXs := 900

VarYs := 635

GoSub, Moff



GoSub, Part1

pause



Part1:

sleep 30000

GoSub, Mon

DllCall("SetCursorPos", int, VarXnew, int, VarYnew)

sleep 2000

GoSub, Moff

EndTime := A_TickCount + 30000

FindCount = 0

while EndTime > A_TickCount

{

PixelSearch, OutputVarX, OutputVarY, 1270, 330, 1330, 360, 0xffffff, 25, Fast

    If !ErrorLevel

    {

        GoSub, Mon

        DllCall("SetCursorPos", int, VarX, int, VarY1)

        sleep 1000

        DllCall("SetCursorPos", int, VarXok, int, VarYok)

        sleep 1000

        DllCall("SetCursorPos", int, VarX, int, VarY2)

        sleep 1000

        DllCall("SetCursorPos", int, VarXok, int, VarYok)

        sleep 1000

        DllCall("SetCursorPos", int, VarX, int, VarY3)

        sleep 1000

        DllCall("SetCursorPos", int, VarXok, int, VarYok)

        sleep 1000

        DllCall("SetCursorPos", int, VarX, int, VarY4)

        sleep 1000

        DllCall("SetCursorPos", int, VarXok, int, VarYok)

        sleep 1000

        FindCount := 4

        GoSub, Moff

        Gosub, Part2

    }

    else

    {

        GoSub, Mon

        DllCall("SetCursorPos", int, VarXnew, int, VarYnew)

        sleep 1000

        GoSub, Moff

    }

}

If FindCount > 0

    GoSub, Part2

else

    GoSub, Part1

return







Part2:

EndTime := A_TickCount + 90000

while EndTime > A_TickCount

{

PixelSearch, OutputVarX, OutputVarY, 1270, 330, 1330, 360, 0xffffff, 25, Fast

    If !ErrorLevel

    {

        GoSub, Mon

        DllCall("SetCursorPos", int, VarX, int, VarY1)

        sleep 1000

        DllCall("SetCursorPos", int, VarXmax, int, VarYmax)

        sleep 1000

        DllCall("SetCursorPos", int, VarXs, int, VarYs)

        sleep 1000

        DllCall("SetCursorPos", int, VarXok, int, VarYok)

        sleep 1000

        DllCall("SetCursorPos", int, VarX, int, VarY2)

        sleep 1000

        DllCall("SetCursorPos", int, VarXmax, int, VarYmax)

        sleep 1000

        DllCall("SetCursorPos", int, VarXs, int, VarYs)

        sleep 1000

        DllCall("SetCursorPos", int, VarXok, int, VarYok)

        sleep 1000

        DllCall("SetCursorPos", int, VarX, int, VarY3)

        sleep 1000

        DllCall("SetCursorPos", int, VarXmax, int, VarYmax)

        sleep 1000

        DllCall("SetCursorPos", int, VarXs, int, VarYs)

        sleep 1000

        DllCall("SetCursorPos", int, VarXok, int, VarYok)

        sleep 1000

        DllCall("SetCursorPos", int, VarX, int, VarY4)

        sleep 1000

        DllCall("SetCursorPos", int, VarXmax, int, VarYmax)

        sleep 1000

        DllCall("SetCursorPos", int, VarXs, int, VarYs)

        sleep 1000

        DllCall("SetCursorPos", int, VarXok, int, VarYok)

        sleep 1000

        DllCall("SetCursorPos", int, 500, int, 500)

        GoSub, Moff

        GoSub, Part1    

    }    

}

return



Moff:

hHookMouse := DllCall("SetWindowsHookEx"

   , Int, WH_MOUSE_LL := 14

   , Ptr, RegisterCallback("LowLevelMouseProc", "Fast")

   , Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)

   , UInt, 0, Ptr)

return     

 

Mon:

DllCall("UnhookWindowsHookEx", Ptr, hHookMouse), hHookMouse := ""

return



Lc:

DllCall("mouse_event", "UInt", 0x02) ; left button down

DllCall("mouse_event", "UInt", 0x04) ; left button up

return  







Exit:

   (hHookMouse && DllCall("UnhookWindowsHookEx", Ptr, hHookMouse))

   ExitApp



LowLevelMouseProc(nCode, wParam, lParam)

{

   Return 1

}***93;

@Art Urr · 13.04.2017, 05:09

Эм.... у меня нече не блочится.... все работает.. Win 7 x64 макс, все службы оф кроме винды.

После обновы престал работать ... переустановил винду и выкл. обновления :)

на win xp наверняка все должно работать без проблем .
P.S AHK запуск от админа

Добавлено через 1 минуту
Сейчас уже забил , поставил win 10 а макросы делаю для blody.. Работают быстрее + они всегда там где мышка )))

@Art Urr · 13.04.2017, 05:16

Макрос для аука под blody для скупки предметов с макс количеством (использую для купли молока =) )
(Молоко.amc)
-------------------------------------------------
и макрос для скупки 1 кол. предметов , всех с окна.

(Аукцион.amc)
--------------------------------------------------
как ставить макросы смотрите в гугле

Макросы работают на разрешение 1680*1050

@**IziPizi** · 15.04.2017, 19:42

Цитата:

Сообщение от Art Urr

и макрос для скупки 1 кол. предметов , всех с окна.

Зачем ЛКМ и Enter нажимаются по 2 раза подряд, а не по одному?

Добавлено через 20 часов 16 минут
Разобрался. 1-я - нажать, 2-я отпустить.

[Работает] AHK Аукцион

Макросы и боты для BDO

AHK Аукцион