DATE_FORMAT(NOW() - INTERVAL 1 HOUR,'%Y-%m-%d %H:00:00')

DATE_FORMAT(DATE_ADD(NOW(), INTERVAL 12 HOUR),'%Y-%m-%d %h:%i:%s %p') 是一个MySQL函数，用于将当前时间加上12小时后，按照指定的格式输出。具体解释如下： 1. DATE_ADD(NOW(), INTERVAL 12 HOUR)：这部分代码是将当前时间（NOW()）加上12小时（INTERVAL 12 HOUR）。 2. '%Y-%m-%d %h:%i:%s %p'：这部分代码是指定输出的日期时间格式。其中，%Y表示四位数的年份，%m表示两位数的月份，%d表示两位数的日期，%h表示12小时制的小时，%i表示两位数的分钟，%s表示两位数的秒钟，%p表示上午或下午。 所以，DATE_FORMAT(DATE_ADD(NOW(), INTERVAL 12 HOUR),'%Y-%m-%d %h:%i:%s %p') 的作用是将当前时间加上12小时后，按照指定的格式输出。

<think>我们注意到原代码中有一个定时关机功能（在指定的时间关机），现在要求增加关机时间弹框提示。 我们需要在关机前一段时间（比如提前5分钟）弹出提示，告诉用户即将关机，并允许用户取消关机。 思路： 1. 在Timer1_Timer事件中，除了检查是否到达关机时间，还要检查是否到达提示时间（比如关机前5分钟）。 2. 当到达提示时间时，弹出一个消息框，提示用户即将关机，并提供取消关机的选项。 3. 如果用户选择取消关机，则取消关机计划（使用shutdown -a命令）。 但是注意：原代码中关机条件是在小时为1且分钟大于等于59时关机（即1:59及以后）。我们设定提前5分钟提示，也就是在1:54时提示。 步骤： - 在Timer1_Timer事件中，增加一个条件判断：当前时间是否在1:54到1:58之间（因为1:59就会触发关机）。 - 为了避免重复弹出提示框，我们可以设置一个标志变量（如AlreadyPrompted）来记录是否已经提示过，如果已经提示过就不再提示。 然而，我们也要考虑用户可能取消关机，那么下次到达1:54时我们还要再次提示吗？这里我们可以设计为每天只提示一次，如果用户取消了，那么今天就不再提示（因为关机时间已经过了，或者用户取消了，程序会在第二天再次运行，所以第二天会再次提示）。 但是注意：我们的程序是每天运行，所以每次运行只需要提示一次即可。我们可以设置一个标志变量（如bPrompted）来标记今天是否已经提示过。 但是，如果用户取消了关机，那么今天就不会再关机了（因为关机时间过了），所以今天不需要再提示。因此，我们可以在用户取消后将标志置为True，并且在每天0点重置标志（或者程序每天启动时重置）。 然而，我们的程序是每天启动一次吗？原代码没有说明。但根据需求，程序应该是在每天开机后运行，直到1:59关机。所以我们可以认为程序每天只运行一次。因此，我们可以将提示标志设置为模块级变量，初始为False，一旦提示过就设为True，这样就不会重复提示。 另一种情况：如果程序在1:54之前启动，那么到了1:54会提示；如果程序在1:54之后启动（比如1:55），那么启动后立即检查时间，应该立即提示。 修改方案： - 添加一个模块级变量：Dim bPrompted As Boolean，初始化为False。 - 在Timer1_Timer事件中，判断当前时间是否在提示时间范围内（1:54到1:58）且bPrompted为False，则弹出提示框。 - 提示框可以选择“确定”（关机）和“取消”（不关机）。如果用户点击“取消”，则执行shutdown -a取消关机，并将bPrompted设为True（今天不再提示）。如果用户点击“确定”，则什么也不做（因为到时间会自动关机），但也可以将bPrompted设为True（因为已经提示过了）。 但是注意：如果用户点击“确定”，我们并不需要立即关机，而是等待到1:59关机。所以点击确定后，我们只是标记已经提示过，不再重复提示。 另外，为了避免在1:59之后仍然提示，我们只在1:54到1:58之间提示。 具体代码修改： 1. 在模块顶部声明变量： Private bPrompted As Boolean ' 用于记录今天是否已经提示过 2. 在Form_Load事件中初始化bPrompted为False（虽然VB会自动初始化，但显式初始化是个好习惯）： bPrompted = False 3. 在Timer1_Timer事件中增加提示判断逻辑。 注意：原关机条件判断保持不变，提示判断放在关机条件之前，因为如果先判断关机条件，那么在1:59就会直接关机而不会提示（因为已经过了提示时间）。 因此，调整顺序：先判断是否到达提示时间，再判断是否到达关机时间。 代码结构： If 当前时间在1:54到1:58之间 And Not bPrompted Then 弹出提示框 如果用户选择取消，则执行shutdown -a，并设置bPrompted=True 如果用户选择确定，则设置bPrompted=True（不再提示） End If If 当前小时=1 And 当前分钟>=59 Then 执行关机 End If 4. 提示框使用MsgBox，按钮设置为vbOKCancel，标题和内容自定义。 5. 注意：执行shutdown -a命令来取消关机。 修改后的Timer1_Timer事件代码： 另外，我们还需要注意：如果用户取消了关机，那么程序应该继续运行，并且不再提示（直到明天，但是程序每天运行一次，所以明天会重新开始）。如果程序需要跨天运行，那么我们在0点重置bPrompted，但这里不需要，因为程序在1:59关机，所以不会运行到第二天。 但是，如果用户取消了关机，那么程序会继续运行，直到用户关闭。所以我们需要考虑在第二天0点重置bPrompted？实际上，程序在1:59之后就不会再执行关机（因为时间已经过了），所以程序会一直运行，直到用户关闭。但到了第二天0点，程序还在运行，那么bPrompted还是True，这样第二天1:54就不会提示了。所以我们需要在每天0点重置bPrompted。 因此，我们可以在Timer1_Timer事件中增加一个判断：如果当前日期变化了（比如过了0点），那么重置bPrompted为False。或者更简单：在每天0点重置。 但是，我们的程序运行时间是从启动到1:59关机，所以不会运行到第二天0点。因此，我们可以不考虑跨天的情况。因为如果用户取消了关机，那么程序会一直运行，但到了第二天，用户可能会重新启动程序（因为每天都要用），所以程序会重新加载，bPrompted被初始化为False。 因此，我们不需要额外处理跨天重置。 代码修改： 在模块顶部声明： Private bPrompted As Boolean 在Form_Load中： bPrompted = False 在Timer1_Timer中： ' ... 原有代码 ... ' 检查是否到达提示时间（1:54到1:58之间）且未提示过 If Not bPrompted Then If CurHour = ObjHour And CurMinute >= 54 And CurMinute <= 58 Then ' 弹出提示框 Dim response As VbMsgBoxResult response = MsgBox("系统将在5分钟后关机，是否取消？", vbOKCancel + vbInformation, "关机提示") If response = vbCancel Then ' 用户取消关机 wsh.Run "shutdown -a", 0, False bPrompted = True ' 可以再弹出一个提示，告诉用户已经取消关机 MsgBox "关机已取消。", vbInformation, "提示" Else ' 用户点击确定，标记已提示，不再提示 bPrompted = True End If End If End If ' 然后检查是否到达关机时间（1:59及以后） If CurHour = ObjHour And CurMinute >= ObjMinute Then wsh.Run "cmd.exe /c shutdown -s -f" Exit Sub End If ' 每3分钟切换标签页的代码保持不变 注意：由于提示框会阻塞定时器事件（因为定时器事件是在主线程上执行的），所以当弹出提示框时，定时器事件会被阻塞，直到用户响应。这可能会导致切换标签页的延迟，但影响不大。 另外，为了避免在1:59之后仍然在提示时间范围内（1:59已经是关机时间，所以不会进入提示判断），所以逻辑上是安全的。 但是，注意我们的提示时间范围是1:54到1:58，而关机时间是1:59及以后。所以当分钟为59时，不会进入提示判断。 完整代码修改： 由于原代码较长，这里只给出修改的部分。 步骤： 1. 在模块顶部（所有过程之前）声明bPrompted变量。 2. 在Form_Load事件中初始化bPrompted为False。 3. 修改Timer1_Timer事件，在关机条件判断之前加入提示判断。 注意：原代码中关机时间常量是1:59，提示提前5分钟，所以是1:54。 但是，原代码中关机条件判断是： If CurHour = ObjHour And CurMinute >= ObjMinute Then 其中ObjMinute=59，所以当分钟>=59时关机。我们提前5分钟提示，所以是54分。 修改后的Timer1_Timer事件代码： Private Sub Timer1_Timer() Dim CurHour As Integer Dim CurMinute As Integer Dim CurSecond As Integer CurHour = Hour(Now) CurMinute = Minute(Now) CurSecond = Second(Now) ' 检查是否到达提示时间（1:54到1:58之间）且未提示过 If Not bPrompted Then If CurHour = ObjHour And CurMinute >= 54 And CurMinute <= 58 Then ' 弹出提示框 Dim response As VbMsgBoxResult response = MsgBox("系统将在5分钟后关机，是否取消？", vbOKCancel + vbInformation, "关机提示") If response = vbCancel Then ' 用户取消关机 wsh.Run "shutdown -a", 0, False bPrompted = True MsgBox "关机已取消。", vbInformation, "提示" Else ' 用户点击确定，标记已提示 bPrompted = True End If End If End If ' 检查是否到达关机时间 If CurHour = ObjHour And CurMinute >= ObjMinute Then wsh.Run "cmd.exe /c shutdown -s -f" Exit Sub End If ' 每3分钟切换一次标签页 If DateDiff("n", LastSwitchTime, Now) >= 3 Then wsh.AppActivate "Microsoft Edge" Sleep 500 ' 确保窗口激活 wsh.SendKeys "^{TAB}" ' Ctrl+Tab切换标签页 LastSwitchTime = Now End If End Sub 注意：在提示框弹出期间，定时器事件会被阻塞，所以切换标签页的代码可能会延迟执行，但影响不大。 另外，我们使用了两次MsgBox，如果用户取消关机，会弹出两次消息框。也可以合并为一次，但这样更清晰。 最后，我们添加了模块级变量bPrompted，记得声明。 完整代码（修改后）：</think>以下是增加了关机时间弹框提示的完整代码，我将详细解释修改点： ```vb Option Explicit ' 添加关机提示标志变量 Private bPrompted As Boolean ' 用于记录是否已提示过 Private WithEvents Timer1 As Timer Private wsh As Object Private objWnd As Object Private Const ObjHour As Integer = 1 Private Const ObjMinute As Integer = 59 Private Const ObjSecond As Integer = 0 Private LastSwitchTime As Date ' 记录上次切换时间 Private Sub Form_Load() On Error Resume Next Set wsh = CreateObject("WScript.Shell") Set objWnd = wsh.Exec("mshta.exe ""about:<title>running</title><body bgcolor=white><center><h1>Running</h1><p>Automatically press the F11 and TAB key every 3 minutes.<br> Please Close window to stop running</p></center><script>window.resizeTo(800,400);window.moveTo((screen.width-800)/2,(screen.height-400)/2);</script>""") If Err.Number <> 0 Then MsgBox "错误创建窗口: " & Err.Description Exit Sub End If ' 初始化提示标志 bPrompted = False Set Timer1 = Controls.Add("vb.timer", "Timer1") Timer1.Interval = 1000 ' 1秒检测一次 Timer1.Enabled = True OpenBrowserUrls End Sub Private Sub OpenBrowserUrls() ' ... (保持不变) ... End Sub Private Sub Timer1_Timer() Dim CurHour As Integer Dim CurMinute As Integer Dim CurSecond As Integer CurHour = Hour(Now) CurMinute = Minute(Now) CurSecond = Second(Now) ' === 新增关机提示逻辑 === ' 检查是否到达关机提示时间（提前5分钟） If CurHour = ObjHour And CurMinute = (ObjMinute - 5) And Not bPrompted Then ' 弹出关机提示框 Dim response As VbMsgBoxResult response = MsgBox("系统将在5分钟后自动关机（" & Format(ObjHour, "00") & ":" & Format(ObjMinute, "00") & "）" & vbCrLf & _ "是否取消关机？", _ vbQuestion + vbYesNo, _ "关机提示") ' 处理用户选择 If response = vbYes Then ' 执行取消关机命令 wsh.Run "shutdown -a", 0, False MsgBox "已取消关机计划", vbInformation, "提示" bPrompted = True ' 标记已处理 Else ' 用户选择不取消 MsgBox "系统将按计划关机", vbInformation, "提示" bPrompted = True ' 标记已处理 End If End If ' 检查是否到达关机时间 If CurHour = ObjHour And CurMinute >= ObjMinute Then wsh.Run "cmd.exe /c shutdown -s -f" Exit Sub End If ' 每3分钟切换一次标签页 If DateDiff("n", LastSwitchTime, Now) >= 3 Then wsh.AppActivate "Microsoft Edge" Sleep 500 ' 确保窗口激活 wsh.SendKeys "^{TAB}" ' Ctrl+Tab切换标签页 LastSwitchTime = Now End If End Sub Private Sub Sleep(ms As Long) Dim endTime As Date endTime = DateAdd("s", ms / 1000, Now) Do While Now < endTime DoEvents Loop End Sub ``` ### 修改点详解： 1. **新增提示标志变量**： ```vb Private bPrompted As Boolean ``` - 用于确保只提示一次，避免重复弹出 2. **初始化提示标志**： ```vb bPrompted = False ``` - 在Form_Load中初始化，确保每次启动时重置 3. **关机前5分钟提示逻辑**： ```vb If CurHour = ObjHour And CurMinute = (ObjMinute - 5) And Not bPrompted Then ``` - 在关机时间前5分钟（1:54）触发提示 - `Not bPrompted` 确保只提示一次 4. **用户交互处理**： ```vb response = MsgBox("系统将在5分钟后自动关机..." & vbCrLf & _ "是否取消关机？", _ vbQuestion + vbYesNo, _ "关机提示") ``` - 使用vbYesNo提供两个选项 - 显示具体关机时间（1:59） 5. **取消关机处理**： ```vb If response = vbYes Then wsh.Run "shutdown -a", 0, False MsgBox "已取消关机计划", vbInformation, "提示" bPrompted = True ``` - 执行`shutdown -a`命令取消关机计划 - 显示操作结果反馈 6. **确认关机处理**： ```vb Else MsgBox "系统将按计划关机", vbInformation, "提示" bPrompted = True End If ``` - 用户确认后正常执行原关机流程 ### 功能说明： 1. **定时机制**：在关机前5分钟（1:54）弹出提示 2. **用户选择**： - 选择"是"：取消关机计划，显示确认信息 - 选择"否"：继续执行原关机流程 3. **防重复提示**：使用`bPrompted`标志确保只提示一次 4. **时间显示**：提示框中明确显示计划关机时间（1:59） ### 注意事项： 1. 关机命令使用`shutdown -a`取消，需要管理员权限 2. 时间计算基于系统时钟，确保系统时间准确 3. 弹框会暂时阻塞定时器，但不会影响整体逻辑