• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    vbs实现的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
        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
    您可能感兴趣的文章:
    • 可以定时自动关机的vbs脚本
    • 自己写的一个定时关机或重启的vbs脚本
    • vbs实现的定时关机、重启的脚本和程序
    • VBS 断网后自动关机30秒后
    • Crack8 VBS整人脚本 你不说你爱我 就关机
    • VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)
    • vb下的恶搞关机程序
    • VB关机恶搞小程序
    上一篇:vbs adox提取数据库表名和列名的类
    下一篇:vbs判读盘符被双击的脚本
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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