求助，bat运行一闪需过

zhz3721 · 发表于 2021-4-22 09:28:21

如题，bat如下：

@echo off
cls
::定义bat外观
title 『自动复制ocx控件文件到系统并注册』
MODE con: COLS=80 LINES=25
color 5E
echo ___________________________________________________________________________
echo.
echo 请稍等，正在复制所需的控件到系统并注册中...........
echo ___________________________________________________________________________
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
cd /d %~dp0
ver | find "4.0" > NUL && goto win95
ver | find "4.1" > NUL && goto win98
ver | find "4.9" > NUL && goto winMe
ver | find "5.0" > NUL && goto win2000
ver | find "5.1" > NUL && goto winxp
ver | find "5.2" > NUL && goto win2003
ver | find "6.0" > NUL && goto win2008
ver | find "6.1" > NUL && goto win7
ver | find "6.2" > NUL && goto win8
ver | find "6.3" > NUL && goto win8.1
ver | find "10.0" > NUL && goto win10
:win95
@echo 当前系统是：Windows 95
@echo ----------------------------------------
goto winxp_dn
:win98
@echo 当前系统是：Windows 98
@echo ----------------------------------------
goto winxp_dn
:winMe
@echo 当前系统是：Windows Me
@echo ----------------------------------------
goto winxp_dn
:win2000
@echo 当前系统是：Windows 2000
@echo ----------------------------------------
goto winxp_dn
:winxp
@echo 当前系统是：Windows XP
@echo ----------------------------------------
goto winxp_dn
:win2003
@echo 当前系统是：Windows Server 2003
@echo ----------------------------------------
goto winxp_dn
:win2008
@echo 当前系统是：Windows Vista
@echo ----------------------------------------
goto winxp_up
:win7
@echo 当前系统是：Windows 7
@echo ----------------------------------------
goto winxp_up
:win8
@echo 当前系统是：Windows 8
@echo ----------------------------------------
goto winxp_up
:win8.1
@echo 当前系统是：Windows 8.1
@echo ----------------------------------------
goto winxp_up
:win10
@echo 当前系统是：Windows 10
@echo ----------------------------------------
goto winxp_up
:winxp_dn
@echo ----------------------------------------
@echo 正在复制OCX控件文件到系统目录并注册............
copy /y ".\ocx\*.OCX" "%windir%\system32"
@echo 复制完成.................................
@echo .........................................
@echo 注册OCX文件中............................
%windir%\system32\regsvr32.exe %windir%\system32\MSCOMCT2.OCX /S
%windir%\system32\regsvr32.exe %windir%\system32\MSCOMCTL.OCX /S
@echo 注册完成.................................
@echo .........................................
@echo .........................................
goto end
:win7_up
@echo 当前系统是：win7
@echo ----------------------------------------
@echo 正在复制OCX控件文件到系统目录并注册............
if %PROCESSOR_ARCHITECTURE%==x86 goto x32
if not %PROCESSOR_ARCHITECTURE%==x86 goto x64
goto end
:x64
copy /y ".\ocx\*.OCX" "%windir%\SysWOW64"
@echo 复制完成.................................
@echo .........................................
@echo 注册OCX文件中............................
%windir%\SysWOW64\regsvr32.exe %windir%\SysWOW64\MSCOMCT2.OCX /S
%windir%\SysWOW64\regsvr32.exe %windir%\SysWOW64\MSCOMCTL.OCX /S
@echo 注册完成.................................
@echo .........................................
@echo .........................................
goto end
:x32
copy /y ".\ocx\*.OCX" "%windir%\system32"
@echo 复制完成.................................
@echo .........................................
@echo 注册OCX文件中............................
%windir%\system32\regsvr32.exe %windir%\system32\MSCOMCT2.OCX /S
%windir%\system32\regsvr32.exe %windir%\system32\MSCOMCTL.OCX /S
@echo 注册完成.................................
@echo .........................................
@echo .........................................
goto end
@echo 获取不到当前操作系统的版本，请联系技术员处理！
@echo --------------------------------------------------
goto end
:end
pause

复制代码

zhz3721 · 发表于 2021-4-22 13:26:43

没有大佬帮忙看一下吗？

路过 · 发表于 2021-4-22 14:44:56

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit

复制代码

这一行决定了该批处理以后台运行，当然就是一闪而过了

极品小猫 · 发表于 2021-4-22 14:55:10

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit

复制代码

这一行命令会让该脚本以不显示窗口的模式去运行

删除掉即可

WHY · 发表于 2021-4-22 21:08:17

脚本中那么多 goto winxp_up，但 winxp_up 标签在哪里？
应该跟 mshta 那一行没有关系，那一行是获取管理员权限的，正常窗口显示（而非隐藏窗口）。
https://docs.microsoft.com/en-us ... /shell-shellexecute

zhz3721 · 发表于 2021-4-22 22:44:10

回复 5# WHY

谢谢！标签弄错了

1152 · 发表于 2021-4-24 09:58:05

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit

复制代码

这个代码是隐藏打开窗口后退出

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[其他] 求助，bat运行一闪需过