mshta vbscript:msgbox("提示内容1",1,"提示窗口1")(window.close)
复制代码

@echo off
for /f %%i in ('mshta vbscript:msgbox("提示内容1",1,"提示窗口1")(window.close)') do (
    set "bbb=%%i"
)
echo %bbb%
pause
复制代码

@echo off
Setlocal enabledelayedexpansion
::CODER BY 老刘 POWERD BY iBAT
Set Vbscript=Msgbox("Hello,world!",1)
for /f "Delims=" %%a in (
'mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(%Vbscript:"=""%)"^)(Close^)'
) do Set "MsHtaReturnValue=%%a"
echo %MsHtaReturnValue%
Set ReturnValue1=确定
Set ReturnValue2=取消或关闭窗口
Echo 你点击了!ReturnValue%MsHtaReturnValue%!。
pause
复制代码

@echo off
setlocal enabledelayedexpansion
set ms=mshta vbscript:CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write(msgbox("是否立即关闭？",4132,"提示"))(window.close)
for /f %%i in ('!ms!') do if %%i EQU 6 exit
pause
复制代码

cax /msy "提示"
if errorlevel 7 (
	echo 否
) else if errorlevel 6 (
	echo 是
)
复制代码

@echo off &setlocal &for /f %%v in (
    'mshta vbscript:execute("createobject(""scripting.filesystemobject"").getstandardstream(1).write(msgbox(""中文提示"",1)):close"^)'
) do set "v=%%v"&echo,弹窗返回值=%%v
endlocal&pause&exit/b
复制代码

rem 隐藏运行
if not "%1"=="hide" mshta VBScript:CreateObject("WScript.Shell").Run("""%~f0"" hide",0)(Close)&exit

rem 显示对话框
for /f "delims=" %%i in (
'mshta VBScript:Execute("CreateObject(""Scripting.FilesystemObject"").GetStandardStream(1).Write(MsgBox(""此程序即将删除系统盘的用户数据！是否继续？"",4132,""警告"")):Close"^)'
) do set ReturnValue=%%i

if "%ReturnValue%"=="6" set Button=是
if "%ReturnValue%"=="7" set Button=否
mshta VBScript:MsgBox("%Button%",0,"返回值")(Close)

rem 播放语音
if "%ReturnValue%"=="7" mshta VBScript:CreateObject("sapi.spvoice").speak("Goodbye")(Close)&exit
复制代码