eMule电驴自动关机vbs脚本实现

verycd,eMule电驴官方网站上说：为了不违背共享精神，是不会为eMule电驴添加自动关机功能的。在网上看了一个方法，感觉非常不错，改掉了原代码的不足之处

Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = WScript.CreateObject("WScript.Shell")
Count = 0
Do Until Count< -1
    chksize = fso.GetFolder("C:\Program Files\eMule\Temp").Size 'eMule的临时目录
    If chksize = 0 Then
        WScript.Sleep 120000
        'ws.run "shutdown -p", 0 '这句还是不太好使
        ws.run "tsshutdn 60 /delay:0 /powerdown",0 '这个是在一个批处理关机程序里看到的，非常强，试了很多次，各种情况下都能关机（2003系统，其它系统未测）
    End If
    WScript.Sleep 120000
Loop

将以上代码保存为文本文件，并将后缀改成vbs运行即可。
此脚本的作用是每2分钟检测一次temp文件夹，若emule下载完成，则temp为空，脚本等待2分钟后强行关闭本地计算机，没有超时或警告。