[其他] [已解决]BAT调用VBS怎样加个判断如点取消就关闭自我？

smss

for /f "tokens=1*" %%i in ('mshta VBScript:Execute("a=InputBox(""输入install分卷号(预设1):""):CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).Write(""inwiminfo=""&a):close"^)')do set "%%i"
::怎样在VBS中加个判断如点取消就关闭自我呢
if "%inwiminfo%" == "" set inwiminfo=1
echo %inwiminfo%|findstr/i "^[0-9]$ ^[1-9][0-9]$ 100">nul&&GOTO :A||(echo 请正确输入分卷号!&pause)
复制代码

smss

mshta 会启动一个 CMD 子进程，无论如何只有等待子进程结束以后才能结束父进程。
也就是说，批处理无法用  ...
WHY 发表于 2021-5-23 00:31

真正的大师总能化腐朽为神奇

WHY

mshta 会启动一个 CMD 子进程，无论如何只有等待子进程结束以后才能结束父进程。
也就是说，批处理无法用 mshta 结束。

@echo off
for /f "tokens=*" %%i in ('mshta "JavaScript:n=prompt('输入分卷号','1');if(/^(?:\d|[1-9]\d|100)$/.test(n)){new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(n)}else if(n!=null){alert('分卷无效')};close()"') do (
    set "n=%%i"
)
if not defined n exit
echo;N=%n%
pause
复制代码

1152

叫管理员移动

1152

你这个应该发到vbs求助&讨论