一个实现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
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
WshShell.popup "当前时间为" & i,1,"计时",0
Wscript.Sleep 1000
Next
MsgBox "时间到!"
Set WshShell = Nothing
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新日志
- 《孙燕姿歌曲合集》[WAV/分轨][18GB]
- 萧煌奇.2024-没事的【华纳】【WAV分轨】
- 于冠华.1992-爱情囚犯【新笛】【WAV+CUE】
- 郭美美.2007-我的答铃【华纳】【WAV+CUE】
- 出发吧麦芬永冻禁区矿场试炼怎么过 永冻禁区矿场阵容打法攻略
- dnf巴卡尼单人和多人区别
- dnf平民怎么弄宠物
- 《家园3》挽歌任务核心码头攻占方法
- 《真探2》游戏价格介绍
- 《蒸汽世界大劫掠2》发售时间分享
- 叶蕴仪1994-把我放在心里头[台湾首版][WAV+CUE]
- 群星.1989-CBS·SONY·EPIC超级精丫SONY】【WAV+CUE】
- DJOKAWARI-Compass(Hi-Res)(48kHz_24bit)FLAC
- 暴雪总裁表彰《暗黑4》团队:重新点燃本作的魔力!
- 低成本小哥COS迷宫饭伊津津美:但是自家猫猫