|
嗚嗚 ~~~~(>_<)~~~~ 又像前晚那樣,搞了個(gè)通宵...... 花了基本上一個(gè)通宵的時(shí)間..終于把這個(gè)程序搞好了.... 看著自己的程序在屏幕上閃動(dòng)... 這把心情呀...無(wú)法比喻的開心!!!
程序介紹
本程序可設(shè)定在指定時(shí)間間隔內(nèi)檢測(cè)指定的某程
序進(jìn)程,若發(fā)現(xiàn)指定的程序運(yùn)行,系統(tǒng)就會(huì)執(zhí)行指定的
操作!可設(shè)定發(fā)現(xiàn)程序的進(jìn)程后"重啟\關(guān)機(jī)\注銷\"幾個(gè)動(dòng)作!
使用舉例：你的男\(zhòng)女友經(jīng)常沉迷于某個(gè)游戲,你
叫她少玩,但對(duì)方死活不聽你話! 咋辦咧?直接把游戲
刪除了吧..又怕被K, 設(shè)置電腦密碼吧..又不太厚道!
所以呢!本程序就可以出馬了,讓你既不會(huì)被K,又不會(huì)被說(shuō)不厚道.....
例：用本程序指定了監(jiān)視"qq.exe"進(jìn)程(騰訊QQ)
每隔"1"分鐘掃描一次系統(tǒng)進(jìn)程,發(fā)現(xiàn)該進(jìn)程后執(zhí)行"注
銷"動(dòng)作! 那么,當(dāng)你運(yùn)行了QQ之后,在一分鐘內(nèi),你的
電腦將會(huì)注銷..重新進(jìn)入系統(tǒng)后,只要再打開QQ,系統(tǒng)又會(huì)注銷... ---以 下 是 程 序 代 碼--- (把下面紅色的文字全部復(fù)制到記事本里,然后保存,再把后綴名改為BAT后即可運(yùn)行) @echo off
title 監(jiān)視進(jìn)程...
MODE con: COLS=50 LINES=19
color 0a
::批處理裝飾 echo 設(shè)置計(jì)劃任務(wù)服務(wù)啟動(dòng)類型為自動(dòng)...
sc config schedule start= auto >nul 2>nul
::設(shè)置計(jì)劃任務(wù)服務(wù)狀態(tài)為自動(dòng) echo 開啟計(jì)劃任務(wù)服務(wù)...
net start schedule /y >nul 2>nul
::開啟計(jì)劃任務(wù)服務(wù) for /l %%i in (1,1,6) do echo.
echo 當(dāng)前用戶名為：%username%
echo 此程序的運(yùn)行需要當(dāng)前用戶名及
echo 其密碼！請(qǐng)輸入此用戶的密碼！
echo 若密碼為空則直接按回車鍵即可。
echo.
set/p password= 密碼：
if not defined password (
set password=""
echo.
echo Win xp 系統(tǒng)中默認(rèn)不允許空密碼的賬戶
echo 創(chuàng)建此類型的計(jì)劃任務(wù)!正在修改此限制...
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa" /v limitblankpassworduse /t REG_DWORD /d 00000000 /f >nul
::修改組策略中"賬戶:使用空密碼的本地賬戶只允許進(jìn)行控制臺(tái)登陸"處為"已停用"
ping 127.1 -n 5 >nul 2>nul
)
:start
MODE con: COLS=50 LINES=20
cls
echo.
echo 程序介紹
echo 本程序可設(shè)定在指定時(shí)間間隔內(nèi)檢測(cè)指定的某程
echo 序進(jìn)程,若發(fā)現(xiàn)指定的程序運(yùn)行,系統(tǒng)就會(huì)執(zhí)行指定的
echo 操作!可設(shè)定發(fā)現(xiàn)程序的進(jìn)程后"重啟\關(guān)機(jī)\注銷\"幾
echo 個(gè)動(dòng)作!
echo 使用舉例：你的男\(zhòng)女友經(jīng)常沉迷于某個(gè)游戲,你
echo 叫她少玩,但對(duì)方死活不聽你話! 咋辦咧?直接把游戲
echo 刪除了吧..又怕被K, 設(shè)置電腦密碼吧..又不太厚道!
echo 所以呢!本程序就可以出馬了,讓你既不會(huì)被K,又不會(huì)
echo 被說(shuō)不厚道.....
echo 例：用本程序指定了監(jiān)視"qq.exe"進(jìn)程(騰訊QQ)
echo 每隔"1"分鐘掃描一次系統(tǒng)進(jìn)程,發(fā)現(xiàn)該進(jìn)程后執(zhí)行"注
echo 銷"動(dòng)作! 那么,當(dāng)你運(yùn)行了QQ之后,在一分鐘內(nèi),你的
echo 電腦將會(huì)注銷..重新進(jìn)入系統(tǒng)后,只要再打開QQ,系統(tǒng)
echo 又會(huì)注銷...
echo.
echo 1、創(chuàng)建任務(wù) 2、刪除任務(wù) 3、查看已有任務(wù)
echo 4、退出程序 5、以后不用此程序..
set /p xz=請(qǐng)選擇：
if "%xz%"=="1" goto chj
if "%xz%"=="2" goto del
if "%xz%"=="3" goto chk
if "%xz%"=="4" exit
if "%xz%"=="5" goto gb
if errorlevel 1 goto start
if %xz% geq 6 goto start
:chj
set /p rwm=任務(wù)名(隨意輸入)：
set /p chx=要監(jiān)測(cè)的程序進(jìn)程名：
set /p shj=掃描系統(tǒng)進(jìn)程頻率(單位:分鐘)：
set /p dz=發(fā)現(xiàn)進(jìn)程時(shí)執(zhí)行動(dòng)作(1.重啟 2.關(guān)機(jī) 3.注銷)：
if %dz%==1 set dz=r
if %dz%==2 set dz=s
if %dz%==3 set dz=l
echo CreateObject("WScript.Shell").Run "cmd /c Monitoring.bat",0 >%windir%\system32\Monitoring.vbs
echo tasklist ^| find /I "%chx%" ^>nul ^&^& shutdown -%dz% -t 0 >>%windir%\system32\Monitoring.bat
::在%windir%\system32下生成Monitoring.vbs 和 Monitoring.bat
::Monitoring.vbs的作用：隱藏方式運(yùn)行Monitoring.bat
::Monitoring.bat的作用：用tasklist命令提取出進(jìn)程名,用"|"命令管道符把tasklist命令的結(jié)果傳遞給find命令,
::再用find命令查找QQ.EXE字符,find程序查找到"QQ.EXE"就執(zhí)行相關(guān)"shutdown"命令,若查找不到則執(zhí)行"exit"退出.
schtasks /create /tn "%rwm%" /tr %windir%\system32\Monitoring.vbs /sc minute /mo %shj% /ru "%username%" /rp %password% >nul 2>nul
::此句是本程序核心!每隔指定的時(shí)間運(yùn)行一次指定的程序!
if %dz%==r set dz2=重啟
if %dz%==s set dz2=關(guān)機(jī)
if %dz%==l set dz2=注銷
echo 在 %date% %time% 創(chuàng)建名為 %rwm% 的任務(wù),每 %shj% 分鐘掃描一次 %chx% 進(jìn)程,若發(fā)現(xiàn),則 %dz2%! >>%windir%\system32\Monitoring.log
echo.
echo 創(chuàng)建 %rwm% 任務(wù)成功!
echo 按任意鍵返回主界面! & pause >nul
goto start
:chk
cls
echo.
if exist %windir%\system32\Monitoring.log (
MODE con: COLS=110 LINES=19
type %windir%\system32\Monitoring.log
) else (
cls
MODE con: COLS=50 LINES=20
for /l %%i in (1,1,9) do echo.
echo 還沒創(chuàng)建過(guò)任何任務(wù)哦!
for /l %%i in (1,1,5) do echo.
)
echo 按任意鍵返回... & pause>nul & goto start
:del
if exist %windir%\system32\Monitoring.log (
echo.
echo y|schtasks /tn * /delete
del %windir%\system32\Monitoring.log
del %windir%\system32\Monitoring.vbs
del %windir%\system32\Monitoring.bat
echo.
echo 刪除完畢!
echo 按任意鍵返回... & pause>nul & goto start
) else (
cls
for /l %%i in (1,1,9) do echo.
echo 還沒創(chuàng)建過(guò)任何任務(wù)哦!
for /l %%i in (1,1,5) do echo.
)
echo 按任意鍵返回... & pause>nul & goto start
:gb
echo.
echo 刪除已創(chuàng)建的計(jì)劃任務(wù)...
echo y|schtasks /tn * /delete >nul 2>nul
echo 刪除此程序生成的文件...
del %windir%\system32\Monitoring.log >nul 2>nul
del %windir%\system32\Monitoring.vbs >nul 2>nul
del %windir%\system32\Monitoring.bat >nul 2>nul
echo 關(guān)閉計(jì)劃任務(wù)服務(wù)...
net stop schedule /y >nul 2>nul
echo 修改組策略中"賬戶:使用空密碼的本地賬戶
echo 只允許進(jìn)行控制臺(tái)登陸"處為 "已啟用" ...
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa" /v limitblankpassworduse /t REG_DWORD /d 00000001 /f >nul
ping 127.1 -n 5 >nul 2>nul & exit
| 
