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

时间:2022-06-01 20:02:48
  1. Set fso = CreateObject("Scripting.FileSystemObject"
  2. Set ws = WScript.CreateObject("WScript.Shell"
  3. Count = 0 
  4. Do Until Count< -1 
  5.     chksize = fso.GetFolder("C:\Program Files\eMule\Temp").Size 
  6.     If chksize = 0 Then 
  7.         WScript.Sleep 120000 
  8.         'ws.run "shutdown -p", 0 '这句还是不太好使 
  9.         ws.run "tsshutdn 60 /delay:0 /powerdown",0 '这个是在一个批处理关机程序里看到的,非常强,试了很多次,各种情况下都能关机(2003系统,其它系统未测) 
  10.     End If 
  11.     WScript.Sleep 120000 
  12. Loop 



将以上代码保存为文本文件,将"C:\Program Files\eMule\Temp"改成你自己的emule临时文件目录,并将后缀改成vbs运行即可。
此脚本的作用是每2分钟检测一次temp文件夹,若emule下载完成,则temp为空,脚本等待2分钟后强行关闭本地计算机,没有超时或警告。

不过本人非常配服作者的见解,作者太有才了,能想出这种办法来。

非常感谢对我的评价,作者的生气是可以理解的,我也不多做解释了,因为我不在您的网站上看到这内容,且,我看了您的代码,是可以正常工作的

现在说下我的观点:
1。我在网上看到的内容是提示是在do里边的,所以这个方法是不行的。
2。shutdown 的参数,我是不怎么了解,我用的系统是2003+sp2这个上的shutdown  是有-p属性的,不过看了您的文章知道了,还有个-f属性,我这个版本也有,所以您的代码通用性比较强。
3。至于 ,脚本等待2秒后强行关闭本地计算机,没有超时或警告。这个是本人粗心所致(应该是2分钟120000=120*1000),此文会改正。

作者对他写的文章如此关注,实在令人敬佩,
另:您的网站没法进行留言,我试了很多都不行,您还是处理一下吧,或网站上加上一个联系方式,这个以便和您联系。

贴上作者原代码:
通用信很强的

 

  1. dir=”E:\Temp” 
  2. Set fso=CreateObject(”Scripting.FileSystemObject”) 
  3. cmd=”shutdown -s -f -t 60″ 
  4. Set ws=WScript.CreateObject(”WScript.Shell”) 
  5. Wscript.Echo “emule自动关机脚本已运行……” 
  6. count=0 
  7. do until count<-1 
  8. chksize = fso.GetFolder(dir).Size 
  9. If chksize=0 Then 
  10. ws.run cmd,0 
  11. End If 
  12. WScript.Sleep 120000 
  13. loop因为好多人都不设置存放文件的路径所以,给个比较直接的 
  14.  
  15. Dir = "C:\Program Files\eMule\Temp" 
  16. Set fso = CreateObject("Scripting.FileSystemObject"
  17. cmd = "shutdown -s -f -t 60" 
  18. Set ws = WScript.CreateObject("WScript.Shell"
  19. Wscript.Echo "emule自动关机脚本已运行……" 
  20. Count = 0 
  21. Do Until Count< -1 
  22.     chksize = fso.GetFolder(Dir).Size 
  23.     If chksize = 0 Then 
  24.         ws.run cmd, 0 
  25.     End If 
  26.     WScript.Sleep 120000 
  27. Loop本人修改的: 
  28.  
  29. Set fso = CreateObject("Scripting.FileSystemObject"
  30. Set ws = WScript.CreateObject("WScript.Shell"
  31. Count = 0 
  32. Do Until Count< -1 
  33.     chksize = fso.GetFolder("C:\Program Files\eMule\Temp").Size 
  34.     If chksize = 0 Then 
  35.         WScript.Sleep 120000 
  36.          ws.run "tsshutdn 60 /delay:0 /powerdown", 0 '这个是在一个批处理关机程序里看到的,非常强,试了很多次,各种情况下都能关机(2003系统,其它系统未测) 
  37.     End If 
  38.     WScript.Sleep 120000 
  39. Loop