圆月山庄资源网 Design By www.vgjia.com
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
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
将以上代码保存为文本文件,将"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),此文会改正。
作者对他写的文章如此关注,实在令人敬佩,
另:您的网站没法进行留言,我试了很多都不行,您还是处理一下吧,或网站上加上一个联系方式,这个以便和您联系。
贴上作者原代码:
通用信很强的
dir=”E:\Temp”
Set fso=CreateObject(”Scripting.FileSystemObject”)
cmd=”shutdown -s -f -t 60″
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
End If
WScript.Sleep 120000
loop因为好多人都不设置存放文件的路径所以,给个比较直接的
Dir = "C:\Program Files\eMule\Temp"
Set fso = CreateObject("Scripting.FileSystemObject")
cmd = "shutdown -s -f -t 60"
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
End If
WScript.Sleep 120000
Loop本人修改的:
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
If chksize = 0 Then
WScript.Sleep 120000
ws.run "tsshutdn 60 /delay:0 /powerdown", 0 '这个是在一个批处理关机程序里看到的,非常强,试了很多次,各种情况下都能关机(2003系统,其它系统未测)
End If
WScript.Sleep 120000
Loop
Set ws = WScript.CreateObject("WScript.Shell")
Count = 0
Do Until Count< -1
chksize = fso.GetFolder("C:\Program Files\eMule\Temp").Size
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
将以上代码保存为文本文件,将"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),此文会改正。
作者对他写的文章如此关注,实在令人敬佩,
另:您的网站没法进行留言,我试了很多都不行,您还是处理一下吧,或网站上加上一个联系方式,这个以便和您联系。
贴上作者原代码:
通用信很强的
dir=”E:\Temp”
Set fso=CreateObject(”Scripting.FileSystemObject”)
cmd=”shutdown -s -f -t 60″
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
End If
WScript.Sleep 120000
loop因为好多人都不设置存放文件的路径所以,给个比较直接的
Dir = "C:\Program Files\eMule\Temp"
Set fso = CreateObject("Scripting.FileSystemObject")
cmd = "shutdown -s -f -t 60"
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
End If
WScript.Sleep 120000
Loop本人修改的:
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
If chksize = 0 Then
WScript.Sleep 120000
ws.run "tsshutdn 60 /delay:0 /powerdown", 0 '这个是在一个批处理关机程序里看到的,非常强,试了很多次,各种情况下都能关机(2003系统,其它系统未测)
End If
WScript.Sleep 120000
Loop
标签:
eMule,电驴,自动关机
圆月山庄资源网 Design By www.vgjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
圆月山庄资源网 Design By www.vgjia.com
暂无评论...
RTX 5090要首发 性能要翻倍!三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。
据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。
更新日志
2024年06月01日
2024年06月01日
- PUCK《天蓝色的彼岸》[FLAC/分轨][74.02MB]
- Edward Chan《Blueprint of Memories》[320K/MP3][48.3MB]
- 张敬轩.2007-MY1STCOLLECTION【环球】2CD【WAV+CUE】
- 著名歌手绝美音色经典老歌《超级音效王》DTS-WAV
- 流行靓声-群星《情网HQ》DTS[WAV]
- 群星《经典情歌对唱迟来的爱HQ》DTS[WAV]
- 群星2024《传承(太平洋影音四十五周年纪念专辑)4CD》[FLAC]
- 太平洋唱片中国轻音乐1-10全集[竹锦+影视篇+民歌篇+创作篇等]10CD[APE分轨+CUE]
- 群星《2024第一季度百度排行100首》[FLAC/分轨][2.3G]
- 证声音乐图书馆《聆听·心流·爵士 Flow Jazz》[320K/MP3][77.28MB]
- 证声音乐图书馆《聆听·心流·爵士 Flow Jazz》[FLAC/分轨][132.74MB]
- dnf手游为什么不上线了
- dnf手游韩服怎么重新转职
- 雷婷《婷婷醉歌》发烧版K2HD[正版CD低速原抓WAV+CUE]
- 西卿.1997-西北风(布袋戏精选)【金瓜石】【WAV+CUE】