vbs实现的eMule电驴自动关机脚本代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| Setfso=CreateObject("Scripting.FileSystemObject") Setws=WScript.CreateObject("WScript.Shell") Count=0 DoUntilCount<-1 chksize=fso.GetFolder("C:\ProgramFiles\eMule\Temp").Size Ifchksize=0Then WScript.Sleep120000 ''ws.run"shutdown-p",0''这句还是不太好使 ws.run"tsshutdn60/delay:0/powerdown",0''这个是在一个批处理关机程序里看到的，非常强，试了很多次，各种情况下都能关机（2003系统，其它系统未测） EndIf WScript.Sleep120000 Loop 将以上代码保存为文本文件，将"C:\ProgramFiles\eMule\Temp"改成你自己的emule临时文件目录，并将后缀改成vbs运行即可。 此脚本的作用是每2分钟检测一次temp文件夹，若emule下载完成，则temp为空，脚本等待2分钟后强行关闭本地计算机，没有超时或警告。 不过本人非常配服作者的见解，作者太有才了，能想出这种办法来。 非常感谢对我的评价，作者的生气是可以理解的，我也不多做解释了，因为我不在您的网站上看到这内容，且，我看了您的代码，是可以正常工作的 现在说下我的观点： 1。我在网上看到的内容是提示是在do里边的，所以这个方法是不行的。 2。shutdown的参数，我是不怎么了解，我用的系统是2003+sp2这个上的shutdown是有-p属性的,不过看了您的文章知道了，还有个-f属性，我这个版本也有，所以您的代码通用性比较强。 3。至于，脚本等待2秒后强行关闭本地计算机，没有超时或警告。这个是本人粗心所致（应该是2分钟120000=120*1000），此文会改正。 作者对他写的文章如此关注，实在令人敬佩， 另：您的网站没法进行留言，我试了很多都不行，您还是处理一下吧，或网站上加上一个联系方式，这个以便和您联系。 贴上作者原代码： 通用信很强的 dir=”E:\Temp” Setfso=CreateObject(”Scripting.FileSystemObject”) cmd=”shutdown-s-f-t60″ Setws=WScript.CreateObject(”WScript.Shell”) Wscript.Echo“emule自动关机脚本已运行……” count=0 dountilcount<-1 chksize=fso.GetFolder(dir).Size Ifchksize=0Then ws.runcmd,0 EndIf WScript.Sleep120000 loop因为好多人都不设置存放文件的路径所以，给个比较直接的 Dir="C:\ProgramFiles\eMule\Temp" Setfso=CreateObject("Scripting.FileSystemObject") cmd="shutdown-s-f-t60" Setws=WScript.CreateObject("WScript.Shell") Wscript.Echo"emule自动关机脚本已运行……" Count=0 DoUntilCount<-1 chksize=fso.GetFolder(Dir).Size Ifchksize=0Then ws.runcmd,0 EndIf WScript.Sleep120000 Loop本人修改的： Setfso=CreateObject("Scripting.FileSystemObject") Setws=WScript.CreateObject("WScript.Shell") Count=0 DoUntilCount<-1 chksize=fso.GetFolder("C:\ProgramFiles\eMule\Temp").Size Ifchksize=0Then WScript.Sleep120000 ws.run"tsshutdn60/delay:0/powerdown",0''这个是在一个批处理关机程序里看到的，非常强，试了很多次，各种情况下都能关机（2003系统，其它系统未测） EndIf WScript.Sleep120000 Loop |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: VBS备忘录启动代码下一篇: 用于提取网易文件的hta代码
关于vbs实现的eMule电驴自动关机脚本代码的所有评论
