距离明天七点倒计时--透明窗口显示
var1 := "" ; 赋值为空, 这样下面将会使用当前时间戳代替.
var1 += 1, days
var1 := SubStr(var1, 1, 8)
tommorrow := var1 0700
;MsgBox % tommorrow
EnvSub, tommorrow, %A_Now%, Minutes
time := tommorrow
CustomColor := "EEAA99" ; 可以为任意 RGB 颜色(在下面会被设置为透明).
Gui +LastFound +AlwaysOnTop -Caption +ToolWindow ; +ToolWindow 避免显示任务栏按钮和 alt-tab 菜单项.
Gui, Color, %CustomColor%
Gui, Font, s32 ; 设置大字体 (32 磅).
Gui, Add, Text, vMyText cBlack, XXXXX YYYYY ; XX & YY 用来自动调整窗口大小.
; 让此颜色的所有像素透明且让文本显示为半透明 (150):
WinSet, TransColor, %CustomColor% 150
SetTimer, UpdateOSD, 60000
Gosub, UpdateOSD ; 立即进行第一次更新而不等待计时器.
Gui, Show, x820 y-30 NoActivate ; NoActivate 让当前活动窗口继续保持活动状态.
return
UpdateOSD:
GuiControl,, MyText, % Format("{:02d}:{:02d}", time/60 , Mod(time,60))
time--
if Format("{:02d}", time/60)=0{
if Format("{:02d}",Mod(time,60))=0{
;MsgBox,时间到了
ExitApp
}
}
return