[特效代码] 批处理隐藏代码运行出错，求改正:loveliness:

Nano

以下代码运行出错，求改正

if "%1" == "h" goto :HHH
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&Exit /B 1
:HHH
pushd "%~sdp0"&&Dism 1>nul 2>nul||mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 "%*"","","runas",0)(window.close)&&Exit /B 1
复制代码