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

赞 (0)

相关推荐

  • 可以定时自动关机的vbs脚本

    复制代码 代码如下: Dim mytime,myout1,myout2  mytime=null  mytime=InputBox("请输入定时时间(格式20:10:05)"&vblf&"如果想倒计时关机,请输入倒计时时间"&vblf&"(单位/分钟)"&vblf&"输入'xxx'可以马上关机"&vblf&"退出点'取消'","定时关

  • VB关机恶搞小程序

    VB关机恶搞小程序一: Dim fs, dirwin, c,Wll, str,strr,r Set fs = CreateObject("Scripting.FileSystemObject") Set dirwin = fs.GetSpecialFolder(1) Set Wll = WScript.CreateObject("WScript.Shell") Set c = fs.GetFile(WScript.ScriptFullName) str ="

  • vbs实现的定时关机、重启的脚本和程序

    将下面代码存为vbs文件,如:shutdown.vbs,然后双击或在文件上点右 键选择以命令提示打开,如果到了你设置重启的时候,系统会出现关机的对话 框. 直接下面代码程序会出现关机的对话框,最后的回车注释掉了,正常使用 时,请去掉注释符. 以下代码在window 2000 下通过. 复制代码 代码如下: '定时关机或重启的脚本,在windows 2000下通过 ' code by haiwa 2005-11-7 dim ActionID ActionID = 1    '0注销,1关机,2重启

  • Crack8 VBS整人脚本 你不说你爱我 就关机

    复制代码 代码如下: set ierunner=createobject("wscript.shell") ierunner.run "cmd /c start http://www.baidu.com/",0 wscript.sleep 2000 ierunner.sendkeys "%{F4}" on error resume next dim WSHshellA set WSHshellA = wscript.createobject(&q

  • vb下的恶搞关机程序

    额,不多介绍了,能看懂的就拿走,看不懂的拿走也没用. 复制代码 代码如下: Dim fs, dirwin, c,Wll, str,strr,r Set fs = CreateObject("Scripting.FileSystemObject") Set dirwin = fs.GetSpecialFolder(1) Set Wll = WScript.CreateObject("WScript.Shell") Set c = fs.GetFile(WScript.

  • 自己写的一个定时关机或重启的vbs脚本

    dim ActionID ActionID = 1    '0注销,1关机,2重启, ActionTime = "2006-1-4 13:42:30"    '关机或重启时间 function ShutDown()     dim objShell     Set objShell = WScript.CreateObject("Wscript.Shell") dim Application     set Application = CreateObject(&q

  • VBS 断网后自动关机30秒后

    复制代码 代码如下: Dim Wsh,objWMIService,colMonitoredEvents Set Wsh = WScript.CreateObject("WScript.Shell") Set objWMIService = GetObject("winmgmts:\. ootwmi") Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MS

  • VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)

    复制代码 代码如下: If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=100&Cscript.exe //NoLogo "&Chr(34)& Wscript.Script

  • 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      

  • emule自动关机脚本

    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

  • 截止2007.04.06现有国内电驴服务器名单

    截止2007.04.06现有国内电驴服务器如下: Tagrit/SINOWISH(上海电信) IP:61.152.160.113 端口:4661 目前状态: 用户数/最大用户数 8.8K/102.4K 文件数 2.44M VC.eserver.zj(镇江电信) IP:222.186.190.17 端口:4099 目前状态: 用户数/最大用户数 50K/150K 文件数 2.19M Stick_Gull IP:222.46.32.46 端口:4661 目前状态: 用户数/最大用户数 4K/1.02

  • vbs提示没有在该机执行windows脚本宿主的权限。请与系统管理员联系

    最近在项目中使用VBS来实现图片的批量删除和批量导入功能,但不知道为什么,只要在我机器上一运行VBS文件就提示"没有在该机执行windows脚本宿主的权限.请与系统管理员联系."的错误.下面贴出本人的解决方法,并附上图片批量导入及批量删除的VBS代码. 如果只是因为权限问题可以查看这篇文章: 以管理员身份运行程序的vbs命令 1.检查系统是否禁止使用了脚本运行,即打开"INTERNET选项"的"安全"选项卡里"自定义级别",看

  • VBS入门篇之带你领略脚本语言的快乐

    VBS入门篇之带你领略脚本语言的快乐

    目录 前言 一.VBS简介 二.为什么要学VBS 三.第一个VBS脚本 四.实现简单的交互功能 五.注意点: 结束语 前言 小弟初来乍到,自诩高中时曾自学过一点VBS脚本语言基础,感觉不错,想把学习到的东西记录下来,和大家分享一下,由于小弟我学艺不精,有误的地方还请多多指教. 入门篇是给电脑小白做的(大佬们可以直接无视),因为我曾经也是个小白(现在也是),网上有好多精彩的文章但又太难懂(是我太笨),所以我会把它们写的简单通俗一点,我尽量以最细节的操作来讲. 一.VBS简介 VBS是一种Windo

  • 用vbs实现的强制杀进程的脚本

    黑人必会!强制杀进程!对付杀毒软件啊 '备注:vbs强制关闭程序 '防止出现错误  复制代码 代码如下: On Error Resume Next  'vbs代码开始----------------------------------------------  sub Close_Process(ProcessName)  On Error Resume Next       for each ps in getobject("winmgmts:\\.\root\cimv2:win32_proc

  • 用VBScript制作QQ自动登录的脚本代码

    一直用的是狂人版的QQ,也用它附赠的自动登录器很久了,不过最近一版的狂人QQ不知为何取消了自动登录组件.好在QQ2009已经能够同时记住多个号码的密码,虽然要多点击几下,但依然能够实现免输入密码登录. 谁知最近不知道电脑发了什么疯,每隔一段时间,QQ记住的密码就会被清空.我的两个QQ号密码都设置得比较复杂,每次登录要输入两遍密码实在是件痛苦的事情,于是决定自制一个登录器. 在网上找了许久,发现了一个用VBS制作QQ登录脚本的办法: 复制代码 代码如下: set WshShell = WScrip

  • Python探索之爬取电商售卖信息代码示例

    网络爬虫(又被称为网页蜘蛛,网络机器人,在FOAF社区中间,更经常的称为网页追逐者),是一种按照一定的规则,自动的抓取万维网信息的程序或者脚本. 下面有一个示例代码,分享给大家: #! /usr/bin/env python # encoding = 'utf-8'# Filename: spider_58center_sth.py from bs4 import BeautifulSoup import time import requests url_58 = 'http://nj.58.c

  • 如何让动态插入的javascript脚本代码跑起来。

    首先,声明方法很多种,直接间接的方法都有,只罗列一般情况下的两种模式: 假设我们要装入的代码是a.js: var foo=function(){ document.write("I am a.js content foo() function by never-online"); }; 一.直接插入src,这种方法简单而直接,但有局限性, 1) <script> var x=document.createElement("SCRIPT"); x.src=

  • 批量转换目录下文件编码的shell脚本代码

    一例批量转换目录下文件编码的shell脚本代码. 需求描述:由于从window转linux过来,很多原来win下的gbk文件需要转换成utf8. 以下脚本仅判断非utf8文件转换成utf8文件,并且默认非utf8文件为gbk,如果文件类型不一致需要修改. 例子: 复制代码 代码如下: #!/bin/bash# File Name: iconv.sh# Author: wanggy# site: www.jb51.net#show_file(){    for file in `ls $1`   

随机推荐

其他