本帖最后由 smss 于 2021-5-23 18:29 编辑
http://www.bathome.net/thread-49098-1-2.html- for %%i in (Wim esd ISO)do ((if Wim==%%i set i=53)&(if %%i==ESD set i=57)&(if %%i==ISO set i=88)
- reg add "HKLM\SOFTWARE\Classes\Directory\shell\给朕打包为%%i" /v icon /t REG_SZ /d SHELL32.dll,1!i! /f
- reg add "HKCR\Directory\shell\给朕打包为%%i\Command" /f /ve /t REG_SZ /d "\"%~dp0HIDECMD.exe\" \"%~dp0执行.bat\" \"%%1\" %%i"
- if not ISO==%%i (reg add "HKCR\SystemFileAssociations\.%%i\Shell\给朕解开..." /v icon /t REG_SZ /d SHELL32.dll,1!i! /f
- reg add "HKCR\SystemFileAssociations\.%%i\Shell\给朕解开...\Command" /f /ve /t REG_SZ /d "\"%~dp0HIDECMD.exe\" \"%~dp0执行.bat\" \"%%1\" WimEsd"
- )
- )
复制代码 以管理员身份运行" 由注册表项:HKEY_CLASSES_ROOT\batfile\shell\runas\command 控制,其默认值为:%SystemRoot%\System32\cmd.exe /C "%1" %*
能不能在注册表中就把这个和HIDECMD合并为一句呢@WHY@Batcher管理员应该知道
在脚本头加以下代码 也是一知半解 用VBS隐藏会有黑窗一闪而过 最后用的HIDECMD来隐藏 大师们都是怎样处理这个问题呢
%2 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit |