VIP可享有论坛特权，免看广告，负分归零，重新加分开始！
「我要成为VIP」
| 该用户匿名发帖 发表于 2008-2-2 17:17 只看TA 1楼 |
|---|
| 该用户已被删除 |
|
[交流] 批处理实现"禁止运行指定程序"功能 批处理源码@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 │ ┃ Ｑ.退出 ┃ │ 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   
|
| 0 |