xswl

我给2楼的代码加上了语音文字提醒(重复4次时间到了，可修改)，没有理会提醒弹窗后续再次提醒也有语音（时间到了,已超时）

msgbox"点确定开始使用，时间到了有提示音，按“确定”关闭，按“否”或不理会窗口则自动隐藏窗口并在1分钟后继续提醒，10次后自动关闭不再提醒。"

UsageText = "输入格式为：" _
                     & VbCrLf _
                     & VbCrLf & VBTab & "xxyy - 等待 xx:yy 后提醒" _
                     & VbCrLf & VBTab & "@xxyy - 直到 xx:yy 提醒"

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")

set objTTS=createobject("sapi.spvoice")
objTTS.speak"时间到了！时间到了！时间到了！时间到了！"
Do
    btn = WshShell.Popup("时间到了！是否停止闹钟？", 20, "闹钟提示", &H4 + &H20)

    If (btn = 6 Or SkipCount = 10) Then WScript.Quit

    SkipCount = SkipCount + 1
    WScript.Sleep(1 * 60 * 1000)

set objTTS=createobject("sapi.spvoice")
objTTS.speak"时间到了！时间到了！已超时！已超时！"
Loop
复制代码

xswl

回复 7# FOR


    我给加了语音功能

Dim ws,a,a1,b1,b2,c1,c2,var,t,ts
set ws=createobject("wscript.shell")
t=time
t1=int(timer)
a=inputbox("输入等待时间(分钟)"&Chr(13)&Chr(13)&_
           "如 78 表示1小时零18分钟后启动闹钟","闹钟",""_
)
if a=false then Wscript.Quit           '判断若点了关闭按钮则退出
ts=inputbox("输入提示信息","提示","")
if a=false then Wscript.Quit           '判断若点了关闭按钮则退出
a1=int(a*60)        '将分钟换算成秒
c1=int(a/60)        '将输入的分钟转换为小时
c2=int(a mod 60)    '转换后剩余的分钟
'计算当前时间加上输入分钟的时间
b2=(c2+minute(t)) mod 60
if c2+minute(t)>=60 then c1=c1+1
b1=c1+hour(t)       'b1、b2供显示用
b2="0"&b2           'b1、b2供显示用
b2=right(b2,2)      'b1、b2供显示用
msgbox "启动时间 "&b1&":"&b2

t2=int(a1-(timer-t1))
wscript.sleep 1000*t2 '1000 为 1秒
var=c1 & " 小时零 " & c2 &" 分钟"

set objTTS=createobject("sapi.spvoice")
objTTS.speak"时间到了！时间到了！"

set ws=WScript.CreateObject("WScript.Shell")
For i = 1 to 10 step 1
	ws.run "cmd /c @echo ",0,true
	f=ws.popup ("输入的时间        "&var&chr(13)&_
    "换算成              "&a1&" 秒"&chr(13)&_
    "起始时间           "&t&chr(13)&_
    "结束时间           "&time&chr(13)&_
    "正确启动时间     "&b1&":"&b2,15,"时间到 "&ts,4+32) '将15改成0为不自动关闭
	If (f = 6 ) Then Wscript.Quit
	wscript.sleep 1000*10
set objTTS=createobject("sapi.spvoice")
objTTS.speak"时间到了！时间到了！已超时！已超时！"
Next
复制代码