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

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

我不会c++,但有一些bat基础,请问bat可以弹出可互动的界面吗?

  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
复制代码
微信:flashercs
QQ:49908356

TOP

本帖最后由 minecraftLYC 于 2022-6-20 20:35 编辑

回复 2# flashercs


    这东西真神奇!
但是有一问题,输出成了乱码咋办

TOP

回复 3# minecraftLYC


    批处理保存为ANSI编码.
微信:flashercs
QQ:49908356

TOP

返回列表