Board logo

标题: [原创]这个不知道论坛有没有批处理程序运行控制器 [打印本页]

作者: lsbsyb     时间: 2007-3-14 11:35    标题: [原创]这个不知道论坛有没有批处理程序运行控制器

这个不知道论坛有没有批处理程序运行控制器
[url=http://]http://zhenlove.com.cn/cndos/fileup/files/程序运行控制器.rar[/url]

[ Last edited by lsbsyb on 2007-3-13 at 10:51 PM ]
作者: everest79     时间: 2007-3-14 12:53

@ Echo Off
title 注册表之程序运行控制器  (Y键禁用设置、N键解禁设置)
mode con: cols=60 lines=15
color 1f
:Start
cls
@Echo.
:cho
Set choice=
@Set /p choice=请您选择的控制方式(Y/N) :
If Not '%choice%'=='' SET choice=%choice:~0,1%
@If /i %choice%==Y Goto 001
@If /i %choice%==N Goto 002
Echo.
Echo 您输入的%choice%为无效字符,请重新输入!
Echo.
Goto cho
:001
@Echo.
@Echo 说明:程序名称为 (*.exe);
@Echo       程序标识为任意阿拉伯数字,注意标识禁止重复!
@Echo.
@Set /p E=请输入准备禁用的程序名称:
@Set /p G=请输入准备禁用的程序标识:
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v DisallowRun /t reg_dword /d 00000001 /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun" /v %G% /t reg_sz /d %E% /f
@Echo.
@Echo 应用程序%E%已经被禁用,注销后生效!
@pause
Goto Start
:002
@Echo.
@Set /p L=请输入准备解禁的程序名称:
@Set /p P=请输入准备禁用的程序标识:
@reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun" /v %P% /t reg_sz /d %L% /f
@Echo.
@Echo 已经解除对应用程序%L%的禁用限制,注销后生效!
@pause
Goto Start