vbs 杀死进程_Windows系统使用vbs脚本或bat脚本强制杀死指定所有进程 vbs实现循环持续写入内容到vbs打开开的记事本 使用vbs、bat添加windows计划任务 使用cmd scht...

以下脚本windows7下成功运行过，脚本也可以windows计划任务程序一起组合使用

新建一个记事本文档粘贴下面代码后将新建的记事本文档重命名下面对应的脚本名就能使用了：

添加windows计划任务

cmd命令脚本创建windows计划任务，关键是schtasks添加计划任务命令

schtasks参数说明：

描述:

允许管理员创建、删除、查询、更改、运行和中止

本地或远程系统上的计划系统。替代 AT.exe。

参数列表:

/Create 创建新计划任务。

/Delete 删除计划任务。

/Query 显示所有计划任务。

/Change 更改计划任务属性。

/Run 立即运行计划任务。

/End 中止当前正在运行的计划任务。

/? 显示帮助/用法。

示例:

SCHTASKS

SCHTASKS /?

SCHTASKS /Run /?

SCHTASKS /End /?

SCHTASKS /Create /?

SCHTASKS /Delete /?

SCHTASKS /Query /?

SCHTASKS /Change /?

schtasks /create /tn “sec” /tr c:sec.exe /sc daily /st 12:30

/？ 显示帮助

/create 创建计划任务

/delete 删除计划任务，脚本中使用请增加/f参数消除确认删除的提示

/tn 任务名称

/tr 要运行的程序

/sc 计划任务执行频率: MINUTE, HOURLY,DAILY(每天), WEEKLY, MONTHLY, ONCE(只执行一次),ONSTART, ONLOGON, ONIDLE。

/sd 任务开始日期

/st 任务开始时间

忘了空密码默认无法运行计划任务，想空密码运行计划任务，gpedit.msc-本地策略-安全设置-使用空白密码的本地帐户只允许进行控制台登录禁用。启用禁用如果不设密码可能会带来安全隐患。

vbs命令脚本创建windows计划任务，原理是用vbs运行cmd命令，先删除计划任务再添加

Dim objShell,intReturn

Set objShell = CreateObject("Wscript.Shell")

objShell.Run "cmd /c schtasks /delete /tn testssss /f&schtasks /create /tn testssss /tr D:/1SVUSERFILES/Software/hack_script/Force-kill-process.vbs /sc DAILY /st 20:01"

WScript.sleep 3000'停顿一下是因为VBS执行速度很快，如果不停一下，cmd窗口还没启动呢。电脑反应越慢，这里就应该把等待时间设置得越长。单位:毫秒。

bat命令脚本创建windows计划任务

Echo 删除计划任务testssss

schtasks /delete /tn testssss /f

Echo 添加计划任务testssss

schtasks /create /tn testssss /tr D:/1SVUSERFILES/Software/hack_script/Force-kill-process.vbs /sc DAILY /st 20:01

终止进程

vbs脚本，原理是用vbs代码获取当前进程列表，检索到指定进程名的进程，终止进程

脚本名：Force-kill-process.vbs

'黑人必会！强制杀进程！对付杀毒软件啊

'备注：vbs强制关闭程序

'防止出现错误，加On Error Resume Next控制此后代码即使当前运行错误依然执行

'每1秒执行一次，总执行10分钟

On Error Resume Next

sub Close_Process(ProcessName)

On Error Resume Next

Do

WScript.Sleep 1000

i=i+1

if i<600 then

On Error Resume Next

for each ps in getobject("winmgmts:\.rootcimv2:win32_process").instances_ '循环进程

if Ucase(ps.name)=Ucase(ProcessName) then

ps.terminate

end if

next

else

'WScript.Echo("kill process "&ProcessName&" 10min done!")

WScript.Quit

end if

Loop

end sub

'Close_Process("notepad.exe")

Close_Process("winrar.exe")

'Close_Process("wscript.exe")

bat脚本，原理使用了taskkill终止进程命令，详见用法可运行taskkill /?，ntsd命令还没有试过。

taskkill /F /IM notepad.exe

ntsd -c q -pn excel.exe

C:Documents and SettingsAdministrator>taskkill /?

脚本名：Force-kill-process.bat

ECHO kill all wscript.exe do...

TASKKILL /F /IM wscript.exe /T

ECHO kill all wscript.exe done!

vbs实现循环持续写入内容到vbs打开的记事本

脚本名：Prevent-sleep.vbs

Dim WshShell, oNotepad

Set WshShell = CreateObject("WScript.Shell") '创建WScript.Shell对象

Set oNotepad = WshShell.Exec("notepad") '运行记事本

WshShell.AppActivate oNotepad.ProcessID '激活记事本

Dim JCount

JCount=1000000 '为持续往记事本写入，这个循环终止值设长些，循环保持时间=5秒*JCount次

For J = 1 To JCount

WScript.Sleep 5000

WshShell.appactivate("无标题 - 记事本") '用appactivate 循环寻找指定窗口，确保就失去焦点之后当前活动窗口的也能找回自己

WshShell.SendKeys "Don't into " '随便往记事本写入一些东西，用来模拟保持电脑活动状态阻止机器进入自动屏保

Next

Set oNotepad = Nothing '释放内存

Set WshShell = Nothing

参考：