批处理之家 - Powered by Discuz! Board

标题: [其他] [已解决]BAT调用VBS怎样加个判断如点取消就关闭自我？ [打印本页]

作者: smss 时间: 2021-5-21 01:39 标题: [已解决]BAT调用VBS怎样加个判断如点取消就关闭自我？

本帖最后由 smss 于 2021-5-25 20:02 编辑

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)
复制代码

作者: 1152 时间: 2021-5-21 12:12

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

作者: 1152 时间: 2021-5-21 12:37

叫管理员移动

作者: WHY 时间: 2021-5-23 00:31

本帖最后由 WHY 于 2021-5-23 02:26 编辑

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
复制代码

作者: smss 时间: 2021-5-23 00:40

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

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

欢迎光临批处理之家 (http://www.bathome.net/)