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

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

本帖最后由 smss 于 2021-5-25 20:02 编辑
  1. 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"
  2. ::怎样在VBS中加个判断如点取消就关闭自我呢
  3. if "%inwiminfo%" == "" set inwiminfo=1
  4. echo %inwiminfo%|findstr/i "^[0-9]$ ^[1-9][0-9]$ 100">nul&&GOTO :A||(echo 请正确输入分卷号!&pause)
复制代码

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

TOP

叫管理员移动

TOP

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

mshta 会启动一个 CMD 子进程,无论如何只有等待子进程结束以后才能结束父进程。
也就是说,批处理无法用 mshta 结束。
  1. @echo off
  2. 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 (
  3.     set "n=%%i"
  4. )
  5. if not defined n exit
  6. echo;N=%n%
  7. pause
复制代码
1

评分人数

TOP

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

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

TOP

返回列表