@echo off
del %temp%\tmp 2>nul
start mshta vbscript:Inputbox("test","test")
ping 127.1 /n 2 >nul
:loop
if exist %temp%\tmp goto next
set "s=%var%"
for /f "tokens=2*" %%a in ('getwininfo /text "test"^|^|echo a^>%temp%\tmp') do (
     set "var=%%b"
     goto loop
)
:next
del %temp%\tmp 2>nul
echo %s%
pause
复制代码

' & @cls & for /f %%a in ('cscript "%~f0" //nologo //e:vbscript') do @echo %%a & pause>nul & exit /b
WSH.Echo MsgBox("Are you sure to exit?", vbYesNo, "EXIT")
复制代码

@echo off
>0.vbs echo WSH.Echo MsgBox("Are you sure to exit?", vbYesNo, "EXIT")
for /f %%a in ('cscript 0.vbs //nologo //e:vbscript') do if %%a equ 6 (goto Y) else goto N
:Y
echo Yes
goto End
:N
echo No
goto End
:End
del 0.vbs
pause>nul
复制代码

@echo off
>0.vbs echo WSH.Echo InputBox("Please input?", "Get Value", "OK")
for /f %%a in ('cscript 0.vbs //nologo //e:vbscript') do set "s=%%a"
echo.%s%
del 0.vbs
pause>nul
复制代码

@echo off
for /f "delims=" %%i in ('powershell "Add-Type -AssemblyName Microsoft.VisualBasic; [Microsoft.VisualBasic.Interaction]::InputBox('What is your name:')"') do (
    set "MyInput=%%i"
)
echo,%MyInput%
pause
复制代码