Что нового

Отобразить точку поверх всех окон

zelich

Новичок
Сообщения
149
Репутация
0
Есть очень простой скрипт:
Код:
HotKeySet('{F9}', 'Click')
HotKeySet("+{Esc}", '_Exit')

While 1
    Sleep(10)
WEnd

Func Click()
    $var = 0
    While $var >=10
        MouseClick('LEFT')
        Sleep(15)
        $var = $var +1
    WEnd
EndFunc

Func _Exit()
    Exit
EndFunc


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

InnI

AutoIT Гуру
Сообщения
4,912
Репутация
1,429
zelich
Код:
#include <GuiConstants.au3>
#include <WinAPI.au3>

$GUI = GUICreate("", 30, 30, 0, 0, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW, $WS_EX_TRANSPARENT, $WS_EX_LAYERED))
GUISetBkColor(0xFF1000)
_WinAPI_SetLayeredWindowAttributes($GUI, 0xFF1000, 0, $LWA_COLORKEY)
GUICtrlCreateLabel("•", 0, 0, 30, 30, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetFont(-1, 48)
GUISetState()

Do
Until GUIGetMsg() = -3
 
Верх