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

smss · 发表于 2021-5-21 01:39:35

本帖最后由 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:01

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

1152 · 发表于 2021-5-21 12:37:28

叫管理员移动

WHY · 发表于 2021-5-23 00:31:27

本帖最后由 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:58

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

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

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

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

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