eMule电驴下载完成自动关机

王朝other·作者佚名  2008-06-19
窄屏简体版  字體: |||超大  

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

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

原理:每2分钟扫描一次eMule的临时文件夹,如果为空说明小驴子下载好了,关机!

http://www.knowsky.com/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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航