Code: Select all
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
SetBatchLines, -1
#SingleInstance force
Gui, test:New, -caption border Toolwindow -dpiscale +E0x02000000 +E0x00080000
Gui,color, white
Gui, margin, 0,0
Gui, add, progress, x0 y100 h120 w120 c165c9e Background165c9e disabled -E0x0200 vmover,
gui, show, w%A_screenwidth% h%A_screenheight% maximize, test
SetTimer, go, 10
return
go:
guicontrolget, mover, test:pos
guicontrol, test:move, mover, % moverx > 1920 ? "x" 0 : "x" moverx + 5
return
escape::
exitapp
@:: soundplay, ding.mp3, wait
space:: soundbeep
return