Board logo

标题: [交流] 批处理实现"禁止运行指定程序"功能 [打印本页]

作者: 制君    时间: 2008-2-2 17:17     标题: 批处理实现"禁止运行指定程序"功能

批处理源码
@echo off
title 禁止运行指定程序
COLOR 3f
MODE con: COLS=30 LINES=18
set var=0
:start
cls
echo          ╭────╮
echo  ╭───┤ 主菜单 ├───╮
echo  │      ╰────╯      │
echo  │ ┏━━━━━━━━━┓ │
echo  │ ┃    ⑴禁止运行    ┃ │
echo  │ ┗━━━━━━━━━┛ │
echo  │ ┏━━━━━━━━━┓ │
echo  │ ┃    ⑵解除禁止    ┃ │
echo  │ ┗━━━━━━━━━┛ │
echo  │ ┏━━━━━━━━━┓ │
echo  │ ┃    Q.退出      ┃ │
echo  │ ┗━━━━━━━━━┛ │
echo  │                        │
echo  ╰────────────╯
echo.
if %var% == 1 echo 选择无效请重新输入
set choice=
set /p choice=选择:
if /i "%choice%" == "1" goto norun
if /i "%choice%" == "2" goto undo
if /i "%choice%" == "q" exit
if /i "%choice%" == ""  goto start
set var=1
goto start
:norun
title 禁止运行
cls
echo 请拖曳你要设置的程序│
echo 到该窗口然后按回车  │
echo ──────────╯
set /p var=
FOR /F "usebackq delims=" %%i IN (`echo %var%`) DO set filename=%%~ni%%~xi
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%filename%" /v Debugger /t REG_SZ /d "%filename%" /f 1>nul 2>nul
goto end
:undo
title 解除禁止
cls
echo 请拖曳你要设置的程序│
echo 到该窗口然后按回车  │
echo ──────────╯
set /p var=
FOR /F "usebackq delims=" %%i IN (`echo %var%`) DO set filename=%%~ni%%~xi
reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%filename%" /f 1>nul 2>nul
goto end
:end
cls
color 3e
echo 操作完成...
ping 127.1 -n 3 >nul
exit


作者: szyczpc    时间: 2008-2-2 17:23

刚做了试验。多视频文件无效。意义不大。如果是限制所设定的任何文件的话效果就可以了




欢迎光临 SiS001! Board - [第一会所 关闭注册] (http://67.220.92.21/bbs2/) Powered by Discuz! 7.2