Emule自动关机脚本

自从小驴子升级到0.49之后,从前用的一个驴子自动关机软件失效了,加之emule是基于一个强大的分享机制上的,在符合标准的客户端上是不会加入自动关机功能的,所以,为了节约能源,给保护地球贡献自己的一份力量(哈哈),自动关机脚本应运而生.

 

dim dir,cmd,cmd1,cmd2,ws,count
dim chksize,NoShutdown,result
dir="d:\Temp of Emule"  (引号里面改成emule的临时文件地址)
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

 

 

把上面的命令复制到新建的文档里,然后把后缀改成.vbs就好啦.

 

其实这个脚本的运行机制很简单,就是每隔两分钟(120000毫秒)时间检测一遍电驴的临时文件夹,如果是空的就关机啦,还有文件就会在下一个两分钟后再检测一遍,就这样循环了.