[办公]AHK简单闹钟

AHK简单闹钟,仅供大家学习参考!
Menu,tray,NoStandard
Menu,tray,add,显示窗口,ShowWindow ;先add一个"显示窗口"菜单项
Menu,tray,add,退出,GuiClose
Menu,tray,Default,显示窗口 ;这里设置"显示窗口"为默认菜单项,前提是已经add好一个"显示窗口"菜单项,也就是说这个add显示菜单必须在这行以前
Menu,tray,Default,显示窗口
Menu, Tray, Click, 1 ;设置只左键点击一下图标就运行默认的菜单项

Gui, Add, Edit, x6 y32 w35 h20
Gui, Add, UpDown, x6 y32 w35 h20 vH Range0-23 Wrap,%A_Hour%
Gui, Add, Edit, x66 y32 w35 h20
Gui, Add, UpDown, x66 y32 w35 h20 vM Range0-59 Wrap,%A_Min%
Gui, Add, Edit, x126 y32 w35 h20
Gui, Add, UpDown, x126 y32 w35 h20 vS Range0-59 Wrap,%A_Sec%
Gui, Font, S12 CDefault, 宋体
Gui, Add, Text, x46 y32 w20 h20 , 时
Gui, Add, Text, x106 y32 w20 h20 , 分
Gui, Add, Text, x166 y32 w20 h20 , 秒
Gui, Font, S14 CDefault , 宋体
Gui, Add, Text, x6 y6 w190 h20 , 闹铃时间设定:
Gui, Font
Gui, Add, Button, x6 y60 w190 h30 ,确定
Gui, Show,w204 h95,AHK小闹钟
Return
GuiClose:
ExitApp
Return
Button确定:
Gui,Submit
MsgBox 时间设定在 %h%点 %m%分 %s%秒
ss:=S-A_Sec
mm:=M-A_Min
hh:=H-A_Hour
If ss<0
{
	ss+=60
	mm--
}
If mm<0
{
	mm+=60
	hh--
}
If hh<0
hh+=24
Timer:=(HH*3600+MM*60+SS)*1000
SetTimer Play,-%Timer%
Return

ShowWindow:
Gui,Show
Return


Play:
Loop
{
	SoundPlay %A_WinDir%\Media\Windows XP 启动.wav
	MsgBox 262208, 闹钟, 到点啦!!,5
	IfMsgBox Timeout
	Continue
	Else
	Break
}

ExitApp

 


亲爱的朋友们,如果你认为本站不错请打赏,我们非常感谢你的支持!

[su_button url=”http://www.autoahk.com/buyamoney” style=”3d” color=”#ffe41c” size=”20″ radius=”round”]赏[/su_button]



为TA充电
共{{data.count}}人
人已赞赏
AHKV1办公

[GUI][文件操作]简单的目录复制/剪切GUI

2016-11-26 19:14:09

AHKV1办公

[办公]盲打练习器——屏幕键盘

2016-11-26 19:37:24

2 条回复 A文章作者 M管理员
  1. 悠然生活

    这文章早一天出,我都不用自己写了。

    • 1河许人

      哈哈 ,怪我了 我们的大编辑!下次发文的时候记得好好美化一下哈!!

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索