删除流氓软件计划任务的VBS程序：20191101修正

9zhmke

流氓软件的计划任务太可恶了，写个小脚本来搞掉它，把以下内容存到一个文本文件，扩展名改为.vbs即可。如果不能运行，那可能是编码用错，切换回ANSI编码重新粘贴保存即可，不想麻烦的可以直接下载附件。
20191101更新：在空列表时会出现12行left语句出错，已修正
懒人使用： 删除任务.7z (721 Bytes, 下载次数: 261)

2019-11-1 00:05 上传

点击文件名下载附件
下载积分: 无忧币 -2

1、基本上所有的流氓行为都在最外面一层，没有发现过藏到子目录里，所以只删除最外面一层的计划任务
2、整体删除所有计划任务会影响到系统运行，特别是显示不了输入法，所以不能简化成schtasks /delete /TN * /F

1. 
   
2. '删除流氓软件产生的计划任务
   
3. Set WshShell=WScript.CreateObject("WScript.Shell")
   
4. Set tmp1 = WshShell.Exec("SCHTASKS /Query /FO:csv") '取出现有计划列表
   
5. tmp2 = tmp1.StdOut.ReadAll()
   
6. if len(tmp2)<20 then
   
7.     Set tmp1 = WshShell.Exec("cmd  /c chcp 437&%COMSPEC% /C ""SCHTASKS /Query /FO:csv""") '提高兼容性重新取出
   
8.     tmp2 = tmp1.StdOut.ReadAll()
   
9. end if
   
10. if instr(tmp2,"437")>0 then tmp2=right(tmp2,len(tmp2)-instr(tmp2,chr(13))-1)'和下面句一起实现去除首行目录
    
11. if instr(tmp2,"任务名")>0 or instr(tmp2,"TaskName")>0 then tmp2=right(tmp2,len(tmp2)-instr(tmp2,chr(13))-1)
    
12. tmp1=instr(tmp2,"TaskName"):if tmp1<1 then tmp1=instr(tmp2,"任务名")
    
13. if instr(tmp2,"不存在任何可用的计划任务")<1 and tmp1>12 then'如果不是空的
    
14.     tmp2=left(tmp2,tmp1-8) '去除后面微软自己的
    
15.     tmp1 = Split(tmp2,chr(13) )'分解出每一行
    
16.     for i=0 to UBound(tmp1)'遍历数组
    
17.         tmp2=Split(tmp1(i),",")'分离后方的日期
    
18.         if tmp1(i)>"" then'如果不是空的
    
19.             if left(tmp2(0),1)<" " then tmp2(0)=right(tmp2(0),len(tmp2(0))-1)
    
20.             WshShell.Run "schtasks /delete /TN " & tmp2(0) & " /F",0,true
    
21.         end if
    
22.      Next
    
23. end if
    

复制代码

tjwx

感谢分享

窄口牛

求楼主个东西吧，全局设置资源管理器内文件(夹)以中图标方式，更新时间排序。就是资源管理器下右键按中等图标，排序按照时间降序，然后在文件夹选项里点击应用到所有文件夹。

a166271626

感谢分享，端午安康

hexj68

感谢无私奉献！！！

9zhmke

浊之清 发表于 2020-4-15 21:47
你这个是可以删除所有流氓软件吗

不是所有，只能清除在计划任务里这一部分，而且不是反复清除，对于每次启动又把自己加入到计划任务那种还不能处理，不过现在还没发现所以暂时也没有计划继续深入。

浊之清

你这个是可以删除所有流氓软件吗

wuzhihe

谢谢楼主分享！

liwei_show

下载了谢谢

liguibin

9zhmke 发表于 2019-10-30 20:27
请打开命令提示符CMD，粘贴这句运行一下，然后把D盘根目录的list.txt用附件粘上来看看
SCHTASKS /Query  ...

记事本是空的？

liguibin

20191101更新：在空列表时会出现12行left语句出错，已修正

ge

优化软件也有这个功能吧？

皈依

感谢兄弟的分享精神

9zhmke

dxvyi 发表于 2019-10-31 18:18
我查了下，win7运行这命令确实有问题。另外说下，我的win7是64位旗舰中文版，自己用Nlite极轻度精简，火 ...

先试一下昨天更新后的版本，如果不行的话，可能有其他问题了。

9zhmke

SGZOU 发表于 2019-10-31 19:02
WIN7 64位

确实，空的时候有这个提示，已修正

SGZOU

WIN7 64位

cchh543

很實用的小工具,自己寫碼,就不怕病毒

dxvyi

9zhmke 发表于 2019-10-31 17:40
没办法帮你啊，能描述清楚些不？中文还是英文、哪个版本号、谁改的版本，自己动过些什么，有哪些安全软 ...

我查了下，win7运行这命令确实有问题。另外说下，我的win7是64位旗舰中文版，自己用Nlite极轻度精简，火绒，B盘是内存虚拟盘（在其它盘运行也一样）。

dxvyi

9zhmke 发表于 2019-10-31 17:40
没办法帮你啊，能描述清楚些不？中文还是英文、哪个版本号、谁改的版本，自己动过些什么，有哪些安全软 ...

aimengyu

怎么用？

9zhmke

dxvyi 发表于 2019-10-31 16:45
不是PE，是Win7，64位的

没办法帮你啊，能描述清楚些不？中文还是英文、哪个版本号、谁改的版本，自己动过些什么，有哪些安全软件、为什么安装到B盘...... 总之，你的系统与别人的系统有什么不同

dxvyi

9zhmke 发表于 2019-10-31 10:32
PE里面不一定有VBS运行环境......话说你用的是什么系统啊？

不是PE，是Win7，64位的

9zhmke

dxvyi 发表于 2019-10-30 22:06
一步步执行，cmd显示？？，txt里无内容

PE里面不一定有VBS运行环境......话说你用的是什么系统啊？

dxvyi

dxvyi 发表于 2019-10-30 21:53
还是不行

一步步执行，cmd显示？？，txt里无内容

dxvyi

hfxiang 发表于 2019-10-30 21:08
试一下如下指令：
chcp 437
SCHTASKS /Query /FO:csv>list.txt

还是不行啊

dxvyi

还是不行

hfxiang

dxvyi 发表于 2019-10-30 20:42
错误：无法加载列资源

试一下如下指令：
chcp 437
SCHTASKS /Query /FO:csv>list.txt
chcp 936

dxvyi

9zhmke 发表于 2019-10-30 20:27
请打开命令提示符CMD，粘贴这句运行一下，然后把D盘根目录的list.txt用附件粘上来看看
SCHTASKS /Query  ...

错误：无法加载列资源

9zhmke

dxvyi 发表于 2019-10-29 20:37
这是什么情况？？

请打开命令提示符CMD，粘贴这句运行一下，然后把D盘根目录的list.txt用附件粘上来看看
SCHTASKS /Query /FO:csv >d:\list.txt

liguibin

使用windows7系统的用户都知道它里面有个计划任务功能，可以将任何脚本、程序或文档安排在某个最方便的时间运行，经常使用“计划任务”这个功能，会让一些记性不好的朋友把计算机管理的井井有条，也不会错过一些重要的事情了