批处理之家 » BAT求助&讨论 » [已解决]BAT调用VBS怎样加个判断如点取消就关闭自我？

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

返回列表发帖

Rank: 5 Rank: 5

帖子: 595
积分: 804
技术: 38
捐助: 0
注册时间: 2018-11-29

1楼 跳转到 » 倒序看帖

字体大小: tT

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

帖子: 310
积分: 312
技术: 57
捐助: 0
注册时间: 2021-4-15

2楼

发表于 2021-5-21 12:12 | 只看该作者

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

帖子: 310
积分: 312
技术: 57
捐助: 0
注册时间: 2021-4-15

3楼

发表于 2021-5-21 12:37 | 只看该作者

叫管理员移动

Rank: 6 Rank: 6

帖子: 1482
积分: 3266
技术: 567
捐助: 0
注册时间: 2015-7-19

4楼

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

1 评分人数

smss: ++++技术 + 1

Rank: 5 Rank: 5

帖子: 595
积分: 804
技术: 38
捐助: 0
注册时间: 2018-11-29

5楼

发表于 2021-5-23 00:40 | 只看该作者

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

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