一个实现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 

用vbs实现将剪切板的unix格式的内容处理成pc格式的代码
处理QQ里复制的文本'复制QQ里的文本到记事本有事可能会有黑框框...(请复制后运行本脚本）setws=createobject("wscript.shell")setfso=createobject("scripting.filesystemobje

用vb和vbs 破解flashxp的密码的代码
整个在新版中，不是明文的密码字符串了，建议大家都升级到新版本中vbs版[Ctrl+A全选注:如需引入外部Js需刷新才能执行]vb版vb破解flashxp的密码,他的密码

用VBS实现的批量gb2312转utf-8,支持拖动
'/*========================================================================='*Intro拖动所有要转换的gb2312编码文件到这个文件上，程序会将它们自动转换为utf-8编码文件'*Fi