dir="E:Temp"
Set fso=CreateObject("Scripting.FileSystemObject")
cmd="shutdown -s -f -t 60"
Set ws=WScript.CreateObject("WScript.Shell")
Wscript.Echo "emule自动关机脚本已运行……"
count=0
do until count<-1
chksize = fso.GetFolder(dir).Size
If chksize=0 Then
ws.run cmd,0
End If
WScript.Sleep 120000
loop

IE中用VBScript不提示直接打印的代码
首先在HTML页面中加入WebBrowser的Object:OBJECTclassid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"height=0id=wbname=wbwidth=0/OBJECT之后，使用如下代码进行打印：scriptlanguage="VB

vbs引用另一个vbs的代码
第一个页面：htmlheadscriptlanguage="VBScript"SubHello()Document.All.myScriptlet.HelloEndSub/script/headbodyonload="Hello()"OBJECTID="myScriptlet"TYPE="text/x-scriptlet"DATA="2.htm"HEIGHT="0"WIDT

VBScript 剪贴板抓取URL并在浏览器中打开
您好，CL。这是很有趣的问题，或者我们应当说，这是两个很有趣的问题。因为您实际上问了两个问题。第一个问题很简单：我可以使用脚本打开特定