这个不知道论坛有没有批处理程序运行控制器 - 中国DOS联盟论坛


@ 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

第1楼　lsbsyb	发表于 2007-03-14 11:35
新手上路　发帖 10　积分 17
[原创]这个不知道论坛有没有批处理程序运行控制器这个不知道论坛有没有批处理程序运行控制器 http://zhenlove.com.cn/cndos/fileup/files/程序运行控制器.rar [ Last edited by lsbsyb on 2007-3-13 at 10:51 PM ]

第2楼　everest79	发表于 2007-03-14 12:53
金牌会员　发帖 1,127　积分 2,564
@ 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