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

9zhmke · 发表于 2019-10-28 22:32:41

本帖最后由 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:22

感谢分享。

sofood · 发表于 2019-10-29 12:08:52

感谢无私奉献！！！

hfxiang · 发表于 2019-10-29 12:26:56

测试了一下，在Win7下效果极佳

834772509 · 发表于 2019-10-29 13:02:51

能不能在PE里运行？删除目标盘符系统里的计划任务？

630 · 发表于 2019-10-29 14:23:22

感谢楼主无私奉献！

lndd119 · 发表于 2019-10-29 15:49:35

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

请问下这玩应咋用

lndd119 · 发表于 2019-10-29 15:53:16

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

请问下如何运行啊

9zhmke · 发表于 2019-10-29 16:00:49

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

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

gnuxwy · 发表于 2019-10-29 17:38:10

哦，win下的小工具啊，下来瞧瞧学习下怎么处理流氓软件的。。。

mhj625 · 发表于 2019-10-29 17:46:08

感谢分享，学习以一下

heimei8707 · 发表于 2019-10-29 19:56:57

这个很不错的说

boob · 发表于 2019-10-29 20:29:07

感谢分享。

dxvyi · 发表于 2019-10-29 20:37:19

这是什么情况？？

hfxiang · 发表于 2019-10-29 20:46:57

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

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

lndd119 · 发表于 2019-10-29 21:10:08

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

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

cbdewy · 发表于 2019-10-29 21:49:51

#在这里快感谢分享速回复#

bank-w3000 · 发表于 2019-10-29 22:07:56

这个有的时候用的着。

hfxiang · 发表于 2019-10-30 08:03:06

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

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

liguibin · 发表于 2019-10-30 08:11:37

谢无私奉献！！！

wuhuyou · 发表于 2019-10-30 08:36:04

去流氓小工具。。。谢谢楼主分享！

lndd119 · 发表于 2019-10-30 08:44:35

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

哦受教了谢谢

liguibin · 发表于 2019-10-30 08:56:07

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

9zhmke · 发表于 2019-10-30 20:27:39

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

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

dxvyi · 发表于 2019-10-30 20:42:43

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

错误：无法加载列资源

hfxiang · 发表于 2019-10-30 21:08:28

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

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

dxvyi · 发表于 2019-10-30 21:53:03

还是不行

dxvyi · 发表于 2019-10-30 21:54:00

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

还是不行啊

dxvyi · 发表于 2019-10-30 22:06:57

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

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

9zhmke · 发表于 2019-10-31 10:32:36

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

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

		自动登录	找回密码
密码			注册

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

评分

点评

点评

点评