[Grand RP]Бот на нефти вышки(работает в свернутом режиме)

zKuk

Активный
Автор темы
150
59
Всем привет, решил здесь разместить данный скрипт для нефти вышек работающий в свернутом режиме
Работает на разрешении 1920x1080 и 1680x1050 в оконном без рамки
Активация: alt+1
Для работы нужен AutoHotKey(кликабельно)
AutoHotKey:
gta_window := "ahk_exe GTA5.exe"

Msgbox, Запустить скрипт alt+1`nПоставить на паузу alt+2`nЗакрыть скрипт alt+2.
!1::
WinGetPos, , , W, H,% gta_window
If (W = 1920 and H = 1080)
Loop
{
    Controlclick, x284 y750, %gta_window%, , , 1, D
    Sleep 4800
    Controlclick, x284 y750, %gta_window%, , , 1, U
    sleep 100
    Controlclick, x390 y750, %gta_window%, , , 1, D
    Sleep 4800
    Controlclick, x390 y750, %gta_window%, , , 1, U
    Sleep 100
    Controlclick, x491 y750, %gta_window%, , , 1, D
    Sleep 4800
    Controlclick, x491 y750, %gta_window%, , , 1, U
    Sleep 100
    Controlclick, x596 y750, %gta_window%, , , 1, D
    Sleep 4800
    Controlclick, x596 y750, %gta_window%, , , 1, U
    sleep, 100
}
If (W = 1680 and H = 1050)
Loop
{
    Controlclick, x286 y757, %gta_window%, , , 1, D
    Sleep 4800
    Controlclick, x286 y757, %gta_window%, , , 1, U
    sleep 100
    Controlclick, x391 y757, %gta_window%, , , 1, D
    Sleep 4800
    Controlclick, x391 y757, %gta_window%, , , 1, U
    Sleep 100
    Controlclick, x494 y757, %gta_window%, , , 1, D
    Sleep 4800
    Controlclick, x494 y757, %gta_window%, , , 1, U
    Sleep 100
    Controlclick, x600 y757, %gta_window%, , , 1, D
    Sleep 4800
    Controlclick, x600 y757, %gta_window%, , , 1, U
    sleep, 100
}
return
GetPixel(hWnd, X, Y) {
    hDC := DllCall("GetDC", "Ptr", hWnd, "Ptr")
    hMDC := DllCall("CreateCompatibleDC", "Ptr", hDC, "Ptr")
    WinGetPos,,, W, H, ahk_id %hWnd%
    hBitmap := DllCall("CreateCompatibleBitmap", "Ptr", hDC, "UInt", W, "UInt", H, "Ptr")
    hObj := DllCall("SelectObject", "Ptr", hMDC, "Ptr", hBitmap, "Ptr")
    DllCall("PrintWindow", "Ptr", hWnd, "Ptr", hMDC, "UInt", 2)
    COLORREF := DllCall("GetPixel", "Ptr", hMDC, "UInt", X, "UInt", Y)
    DllCall("SelectObject", "Ptr", hMDC, "Ptr", hObj, "Ptr")
    DllCall("DeleteDC", "Ptr", hMDC)
    DllCall("DeleteObject", "Ptr", hBitmap)
    DllCall("ReleaseDC", "Ptr", hWnd, "Ptr", hDC)
    Return Format("{:#x}", (COLORREF & 0xFF) << 16 | (COLORREF >> 8 & 0xFF) << 8 | COLORREF >> 16)
}
!2:: Pause
!3:: ExitApp
 

Вложения

  • grandrp.ahk
    2 KB · Просмотры: 309