#include <GuiConstants.au3>
#include <WinAPISys.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
HotKeySet('{F6}', 'Inpute')
HotKeySet('{F7}', 'Up')
HotKeySet('{F8}', 'Down')
HotKeySet('+{Esc}', '_Exit')
MsgBox(4096, 'Where', "F6 ====>Input"&@CRLF&"F7 ====>Up"&@CRLF&"F8 ====>Down", 3)
$Label = 0
$i = 0
$time = 50
$hWnd = GUICreate("")
GUIRegisterMsg($WM_HOTKEY, 'WM_HOTKEY')
$GUI = GUICreate("", 150, 30, 1875, 20, $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($Label, 0, 0, 60, 30, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetFont(-1, 20)
GUISetState()
While 1
Sleep(10)
WEnd
Func Inpute()
$t = $time
$time = InputBox('Koli4estvo', "Кол-во раз:", '', '', 150, 120)
if $time = '' Then ;-от пустого Input
$time = $t
EndIf
EndFunc
Func Up()
$i = 0
While $i < $time
Send("{UP}")
$i = $i + 1
$Label = $Label - 1
If Mod($Label , 10) = 0 Or $i = $time Then
GUICtrlCreateLabel($Label, 0, 0, 30, 30, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 20)
EndIf
WEnd
EndFunc
Func Down()
$i = 0
While $i < $time
Send("{DOWN}")
$i = $i + 1
$Label = $Label + 1
If Mod($Label , 10) = 0 Or $i = $time Then
GUICtrlCreateLabel($Label, 0, 0, 30, 30, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetColor(-1, 0000000)
GUICtrlSetFont(-1, 20)
EndIf
WEnd
EndFunc
Func _Exit()
Exit
EndFunc