距离明天七点倒计时--透明窗口显示

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

 

posted @ 2022-10-14 09:08  c/  阅读(125)  评论(0编辑  收藏  举报