无忧启动论坛

标题: 删除流氓软件计划任务的VBS程序：20191101修正 [打印本页]

作者: 9zhmke 时间: 2019-10-28 22:32
标题: 删除流氓软件计划任务的VBS程序：20191101修正
本帖最后由 9zhmke 于 2019-11-1 00:14 编辑

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

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

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

复制代码

作者: moran 时间: 2019-10-29 12:08
感谢分享。

作者: sofood 时间: 2019-10-29 12:08
感谢无私奉献！！！

作者: hfxiang 时间: 2019-10-29 12:26
测试了一下，在Win7下效果极佳

作者: 834772509 时间: 2019-10-29 13:02
能不能在PE里运行？删除目标盘符系统里的计划任务？

作者: 630 时间: 2019-10-29 14:23
感谢楼主无私奉献！

作者: lndd119 时间: 2019-10-29 15:49

hfxiang 发表于 2019-10-29 12:26
测试了一下，在Win7下效果极佳

请问下这玩应咋用

作者: lndd119 时间: 2019-10-29 15:53

hfxiang 发表于 2019-10-29 12:26
测试了一下，在Win7下效果极佳

请问下如何运行啊

作者: 9zhmke 时间: 2019-10-29 16:00

834772509 发表于 2019-10-29 13:02
能不能在PE里运行？删除目标盘符系统里的计划任务？

这估计需要从注册表动手，涉及到读取其他分区上的注册表。目前没有这个想法

作者: gnuxwy 时间: 2019-10-29 17:38
哦，win下的小工具啊，下来瞧瞧学习下怎么处理流氓软件的。。。

作者: mhj625 时间: 2019-10-29 17:46
感谢分享，学习以一下

作者: heimei8707 时间: 2019-10-29 19:56
这个很不错的说

作者: boob 时间: 2019-10-29 20:29

感谢分享。

作者: dxvyi 时间: 2019-10-29 20:37
这是什么情况？？

Image 002.png (17.15 KB, 下载次数: 125)

Image 002.png

作者: hfxiang 时间: 2019-10-29 20:46

lndd119 发表于 2019-10-29 15:53
请问下如何运行啊

"C:\Windows\System32\cscript.exe" "x:\SoftWare\小工具\删除任务.vbs"

作者: lndd119 时间: 2019-10-29 21:10

hfxiang 发表于 2019-10-29 20:46
"C:\Windows\System32\cscript.exe" "x:\SoftWare\小工具\删除任务.vbs"

谢谢我看了一下我打开这个EXE文件一闪就没了

作者: cbdewy 时间: 2019-10-29 21:49
#在这里快感谢分享速回复#

作者: bank-w3000 时间: 2019-10-29 22:07
这个有的时候用的着。

作者: hfxiang 时间: 2019-10-30 08:03

lndd119 发表于 2019-10-29 21:10
谢谢我看了一下我打开这个EXE文件一闪就没了

楼主提供的“删除任务.vbs”是用于清理流氓计划任务的，故一闪而过就已完成了工作。你可执行前查看“计划任务”，执行后再查看，做对比才能看出效果，而不是看脚本的输出界面有什么东西......

作者: liguibin 时间: 2019-10-30 08:11
谢无私奉献！！！

作者: wuhuyou 时间: 2019-10-30 08:36
去流氓小工具。。。谢谢楼主分享！

作者: lndd119 时间: 2019-10-30 08:44

hfxiang 发表于 2019-10-30 08:03
楼主提供的“删除任务.vbs”是用于清理流氓计划任务的，故一闪而过就已完成了工作。你可执行前查看“计划 ...

哦受教了谢谢

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

作者: 9zhmke 时间: 2019-10-30 20:27

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

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

作者: dxvyi 时间: 2019-10-30 20:42

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

错误：无法加载列资源

Image 001.png (7.52 KB, 下载次数: 125)

Image 001.png

作者: hfxiang 时间: 2019-10-30 21:08

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

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

作者: dxvyi 时间: 2019-10-30 21:53
还是不行

Image 001.png (17.29 KB, 下载次数: 133)

Image 001.png

作者: dxvyi 时间: 2019-10-30 21:54

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

还是不行啊

Image 001.png (17.29 KB, 下载次数: 140)

Image 001.png

作者: dxvyi 时间: 2019-10-30 22:06

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

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

Image 002.png (30.53 KB, 下载次数: 122)

Image 002.png

作者: 9zhmke 时间: 2019-10-31 10:32

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

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

作者: dxvyi 时间: 2019-10-31 16:45

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

不是PE，是Win7，64位的

作者: 9zhmke 时间: 2019-10-31 17:40

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

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

作者: aimengyu 时间: 2019-10-31 18:08
怎么用？

作者: dxvyi 时间: 2019-10-31 18:16

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

作者: dxvyi 时间: 2019-10-31 18:18

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

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

作者: cchh543 时间: 2019-10-31 18:36
很實用的小工具,自己寫碼,就不怕病毒

作者: SGZOU 时间: 2019-10-31 19:02

WIN7 64位

作者: 9zhmke 时间: 2019-11-1 00:05

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

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

作者: 9zhmke 时间: 2019-11-1 00:06
本帖最后由 9zhmke 于 2019-11-1 00:13 编辑

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

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

作者: 皈依 时间: 2019-11-1 05:47
感谢兄弟的分享精神

作者: ge 时间: 2019-11-1 07:19
优化软件也有这个功能吧？

作者: liguibin 时间: 2019-11-1 08:39
20191101更新：在空列表时会出现12行left语句出错，已修正

作者: liguibin 时间: 2019-11-1 08:42

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

记事本是空的？

作者: liwei_show 时间: 2020-4-11 16:44
下载了谢谢

作者: wuzhihe 时间: 2020-4-15 21:25
谢谢楼主分享！

作者: 浊之清 时间: 2020-4-15 21:47
你这个是可以删除所有流氓软件吗

作者: 9zhmke 时间: 2020-6-25 09:13

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

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

作者: hexj68 时间: 2020-6-25 09:20
感谢无私奉献！！！

作者: a166271626 时间: 2020-6-25 10:44
感谢分享，端午安康

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

作者: tjwx 时间: 2020-6-25 11:39
感谢分享

欢迎光临无忧启动论坛 (http://bbs.wuyou.net/)

Powered by Discuz! X3.3