求助,有没有大佬帮忙检查一下,我想实现定时提醒自己喝水,可是运行了,但没有弹出提醒窗口,#Requires AutoHotkey v1.1+
SetTitleMatchMode, 2 ; 设置窗口标题匹配模式
; 以管理员身份运行
if !A_IsAdmin
{
Run *RunAs "%A_ScriptFullPath%"
ExitApp
}
SetTimer, CheckTime, 60000 ; 每分钟检查一次时间
CheckTime() ; 启动时立即检查时间
return
; 初始化提醒时间
ReminderTimes := [lbk]"09:00", "10:00", "14:30", "16:00", "20:30", "23:00"[rbk]
LastReminder := "" ; 记录上次提醒的时间
CheckTime()
{
global ReminderTimes, LastReminder ; 使用全局变量
FormatTime, CurrentTime,, HH:mm ; 获取当前时间
FormatTime, CurrentDate,, yyyy年MM月dd日 ; 获取当前日期
FormatTime, DayOfWeek,, dddd ; 获取星期几
; 检查各个提醒时间
For index, time in ReminderTimes
{
If (CurrentTime = time && LastReminder != time)
{
MsgBox, 今天是 %CurrentDate% %DayOfWeek% %CurrentTime%,注意喝水!
LastReminder := time ; 更新上次提醒时间
}
}
}
; 监控唤醒事件
OnMessage(0x218, "OnWake")
OnWake()
{
global ReminderTimes
; 唤醒后立即检查时间
CheckTime()
}
SetTitleMatchMode, 2 ; 设置窗口标题匹配模式
; 以管理员身份运行
if !A_IsAdmin
{
Run *RunAs "%A_ScriptFullPath%"
ExitApp
}
SetTimer, CheckTime, 60000 ; 每分钟检查一次时间
CheckTime() ; 启动时立即检查时间
return
; 初始化提醒时间
ReminderTimes := [lbk]"09:00", "10:00", "14:30", "16:00", "20:30", "23:00"[rbk]
LastReminder := "" ; 记录上次提醒的时间
CheckTime()
{
global ReminderTimes, LastReminder ; 使用全局变量
FormatTime, CurrentTime,, HH:mm ; 获取当前时间
FormatTime, CurrentDate,, yyyy年MM月dd日 ; 获取当前日期
FormatTime, DayOfWeek,, dddd ; 获取星期几
; 检查各个提醒时间
For index, time in ReminderTimes
{
If (CurrentTime = time && LastReminder != time)
{
MsgBox, 今天是 %CurrentDate% %DayOfWeek% %CurrentTime%,注意喝水!
LastReminder := time ; 更新上次提醒时间
}
}
}
; 监控唤醒事件
OnMessage(0x218, "OnWake")
OnWake()
{
global ReminderTimes
; 唤醒后立即检查时间
CheckTime()
}