一个实现VBS倒计时的代码
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
msgbox(value) </script> <input id="oInput" type="text">
把上面这段保存为001.html可以成为一个完整的倒计时器，哪位帮我把他改成VBS一下，让其能变成VBS倒计时器！
复制代码 代码如下:
Set WshShell = CreateObject("WScript.Shell") Dim CloseTime,i CloseTime = 5 For i = CloseTime To 1 Step - 1
自己设置工作时间和休息时间比如每工作1小时休息10分钟设定时间一到程序会自动提醒你该休息了并自动播放音乐休息时间一到提醒工作并关闭音乐
一个实现 VBS倒计时的代码
一个实现VBS倒计时的代码
以下内容为程序代码:
<script language="VBScript"> Dim oTime : oTime = 5 Function STime document.all("oInput").value = "00:00:" & oTime If oTime>0 Then oTime = oTime - 1 window.setTimeout "STime", 1000 Else MsgBox "时间到了！" End If End Function Sub Window_Onload Call STime End Sub
WshShell.popup "当前时间为" & i,1,"计时",0 Wscript.Sleep 1000 Next MsgBox "时间到!" Set WshShell = Not
把上面这段保存为001.html可以成为一个完整的倒计时器，哪位帮我把他改成VBS一下，让其能变成VBS倒计时器！
复制代码 代码如下:
Set WshShell = CreateObject("WScript.Shell") Dim CloseTime,i CloseTime = 5 For i = CloseTime To 1 Step - 1
自己设置工作时间和休息时间比如每工作1小时休息10分钟设定时间一到程序会自动提醒你该休息了并自动播放音乐休息时间一到提醒工作并关闭音乐
一个实现 VBS倒计时的代码
一个实现VBS倒计时的代码
以下内容为程序代码:
<script language="VBScript"> Dim oTime : oTime = 5 Function STime document.all("oInput").value = "00:00:" & oTime If oTime>0 Then oTime = oTime - 1 window.setTimeout "STime", 1000 Else MsgBox "时间到了！" End If End Function Sub Window_Onload Call STime End Sub
WshShell.popup "当前时间为" & i,1,"计时",0 Wscript.Sleep 1000 Next MsgBox "时间到!" Set WshShell = Not