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

[zKuk]

Всем привет, решил здесь разместить данный скрипт для нефти вышек работающий в свернутом режиме
Работает на разрешении 1920x1080 и 1680x1050 в оконном без рамки
Активация: alt+1
Для работы нужен 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

 

[gussynmarty]

не работает

 

[zKuk]

не работает

Оконный без рамки поставил? И какое разрешение стоит

 

[gussynmarty]

Оконный без рамки поставил? И какое разрешение стоит

Оконный без рамки поставил? И какое разрешение стоит

я тебе в лс написал

 

[Licenzia]

не работает

 

[zKuk]

не работает

Оконный без рамки поставил?

 

[Licenzia]

Оконный без рамки поставил?

да

 

[spawnEvil]

да

Самую первую строчку сделай не gta_window := "ahk_exe GTA5.exe", а gta_window := "ahk_exe ragemp_v.exe". Название процесса изменилось.

 

[Dani3l]

🤩

 

[diega1337]

с редуксом воркает?

 

[zKuk]

с редуксом воркает?

Должно, т.к нету работы с пикселями

 

[Merbi]

Ещё работает?

 

[zKuk]

Ещё работает?

Должен, давно не проверял