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

[特效代码] 想问一下bat方便做页面吗

[复制链接]
发表于 2022-6-20 17:02:28 | 显示全部楼层 |阅读模式
我不会c++,但有一些bat基础,请问bat可以弹出可互动的界面吗?
发表于 2022-6-20 20:14:37 | 显示全部楼层
  1. @echo off
  2. for /f "delims=" %%A in ('mshta vbscript:Execute("On Error Resume Next:Dim str,fso:str=InputBox(""Message"",""Title"",""Default""):Set fso=CreateObject(""Scripting.FileSystemObject""):fso.GetStandardStream(1).Write str:Set fso=Nothing:close"^)') do (
  3.     echo.用户输入:%%A
  4. )
  5. pause
  6. for /f "delims=" %%A in ('mshta vbscript:Execute("On Error Resume Next:Dim ret,fso:ret=MsgBox(""Message"",vbOKCancel,""Title""):Set fso=CreateObject(""Scripting.FileSystemObject""):fso.GetStandardStream(1).Write ret:Set fso=Nothing:close"^)') do (
  7.     echo.用户选择
  8.     if %%A equ 1 (
  9.       echo 确定
  10.     ) else if %%A equ 2 (
  11.       echo 取消
  12.     )
  13. )
  14. pause
  15. exit /b
复制代码
 楼主| 发表于 2022-6-20 20:31:37 | 显示全部楼层
本帖最后由 minecraftLYC 于 2022-6-20 20:35 编辑

回复 2# flashercs


    这东西真神奇!
但是有一问题,输出成了乱码咋办
发表于 2022-6-20 21:21:29 | 显示全部楼层
回复 3# minecraftLYC


    批处理保存为ANSI编码.
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-19 22:17 , Processed in 0.016271 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表