eMule电驴下载完成自动关机

我是个自私自利的P2P下载者 我最大的愿望就是“人人为我 我还是为我”共享精神固然可贵 但是电费和噪音才是我这样的P2Per头痛的所在

希望大家理解我的苦衷 赚钱难啊！

原理：每2分钟扫描一次eMule的临时文件夹，如果为空说明小驴子下载好了，关机！
/article.asp?typeid=146
代码输入保存为vbs后缀名

dim dir,cmd,cmd1,cmd2,ws,count
dim chksize,NoShutdown,result
dir="C:\Program Files\eMule\Temp" 
Set fso=CreateObject("Scripting.FileSystemObject")
cmd="shutdown -s -f -t 60" 

cmd1="shutdown.exe -a"

cmd2="taskkill.exe /im wscript.exe /f"
NoShutdown= 0
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
NoShutdown= 1
End If
If NoShutdown =1 then
result=msgbox("如果在下载完之后仍然需要开机"&vbcrlf&"按 确定 继续使用机器，按 取消 机器倒计时结束后将自动关闭！",48+1+256,"Emule自动关机")
if result=vbok then
ws.run cmd1,0
ws.run cmd2,0
End If
End If
WScript.Sleep 120000
loop