tmplinshi

UsageText = "输入格式为：" _
                     & VbCrLf _
                     & VbCrLf & VBTab & "HHMM - 等待 HH:MM" _
                     & VbCrLf & VBTab & "@HHMM - 直到 HH:MM"

Input = InputBox(UsageText)
If Input = "" Then WScript.Quit

If Mid(Input, 1, 1) = "@" Then
    time1 = ((Hour(Now) * 60 + Minute(Now)) * 60 + Second(Now)) * 1000
    time2 = (Mid(Input, 2, 2) * 60 + Mid(Input, 4, 2)) * 60 * 1000
    n = time2 - time1
Else
    n = (Mid(Input, 1, 2) * 60 + Mid(Input, 3, 2)) * 60 * 1000
End If

WScript.Sleep(n)

Set wshShell = WScript.CreateObject("WScript.Shell")

Do
    btn = WshShell.Popup("时间到了！是否停止闹钟？", 15, "闹钟提示", &H4 + &H20)
    If (btn = 6 Or SkipCount = 10) Then WScript.Quit

    SkipCount = SkipCount + 1
    WScript.Sleep(1 * 60 * 1000)
Loop
复制代码

tmplinshi

回复 3# FOR

请问 WScript.Sleep 延时准确吗？比如我想延时 2个小时，误差有多大？

不清楚。

还有 WScript.Sleep 延时 1分钟 是多少？ WScript.Sleep (6000) 吗？

1分钟 × 60秒 × 1000毫秒，即 WScript.Sleep (1 * 60 * 1000)，即 WScript.Sleep (60000)。

tmplinshi

时间计算有专门的函数
Demon 发表于 2012-11-22 13:35

哦。谢谢指点。

我没有仔细的学过 VBS，从我的代码上也看得出，我没有用 Dim。二楼的代码我都是借着 Google 和《Windows 脚本技术》写出来的。