vbs & bat "人机对话" - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

VBS话题不要在DOS疑难解答 & 问题讨论提问!

@echo off
>tmp.vbs echo MyVar = MsgBox ("请选择...", 4163, "提示"):Wscript.Echo MyVar
for /f "delims=*" %%i in ('cscript.exe //nologo tmp.vbs') do set MyVar=%%i
if "%MyVar%"=="2" echo 取消
if "%MyVar%"=="6" echo 是
if "%MyVar%"=="7" echo 否
pause

在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。

MsgBox(prompt)
参数
prompt
作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 分隔各行。
Buttons
数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和。有关数值，请参阅“设置”部分。如果省略，则 buttons 的默认值为 0。
Title
显示在对话框标题栏中的字符串表达式。如果省略 title，则将应用程序的名称显示在标题栏中。
Helpfile
字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供 helpfile，则必须提供 context。在 16 位系统平台上不可用。
Context
数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context，则必须提供 helpfile。在 16 位系统平台上不可用。
设置
buttons 参数可以有以下值：

常数值描述
vbOKOnly 0 只显示确定按钮。
vbOKCancel 1 显示确定和取消按钮。
vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。
vbYesNoCancel 3 显示是、否和取消按钮。
vbYesNo 4 显示是和否按钮。
vbRetryCancel 5 显示重试和取消按钮。
vbCritical 16 显示临界信息图标。
vbQuestion 32 显示警告查询图标。
vbExclamation 48 显示警告消息图标。
vbInformation 64 显示信息消息图标。
vbDefaultButton1 0 第一个按钮为默认按钮。
vbDefaultButton2 256 第二个按钮为默认按钮。
vbDefaultButton3 512 第三个按钮为默认按钮。
vbDefaultButton4 768 第四个按钮为默认按钮。
vbApplicationModal 0 应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。
vbSystemModal 4096 系统模式：在用户响应消息框前，所有应用程序都被挂起。

第一组值 (0 - 5) 用于描述对话框中显示的按钮类型与数目；第二组值 (16, 32, 48, 64) 用于描述图标的样式；第三组值 (0, 256, 512) 用于确定默认按钮；而第四组值 (0, 4096) 则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。

返回值
MsgBox 函数有以下返回值：

常数值按钮
vbOK 1 确定
vbCancel 2 取消
vbAbort 3 放弃
vbRetry 4 重试
vbIgnore 5 忽略
vbYes 6 是
vbNo 7 否

说明
如果同时提供了 helpfile 和 context，则用户可以按 F1 键以查看与上下文相对应的帮助主题。

如果对话框显示取消按钮，则按 ESC 键与单击取消的效果相同。如果对话框包含帮助按钮，则有为对话框提供的上下文相关帮助。但是在单击其他按钮之前，不会返回任何值。

当MicroSoft Internet Explorer使用MsgBox函数时，任何对话框的标题总是包含"VBScript",以便于将其与标准对话框区别开来。

下面的例子演示了 MsgBox 函数的用法：

Dim MyVar
MyVar = MsgBox ("Hello World!", 65, "MsgBox Example")
' MyVar 包含 1 或 2，这取决于单击的是哪个按钮。

第1楼　plp626	发表于 2008-03-12 00:25
银牌会员　发帖 1,020　积分 2,278
vbs & bat "人机对话" 我搜索了，还是不会，所以发个帖啦，高手别说我懒啦．我不是ｊｓｊ专业的　这个标题问得很不专业，我大概说下我的想法：ｖｂｓ我不怎么懂，但知道它会弹对话框，可选择＂确定＂，＂取消＂，＂忽略＂现在我想让ｂａｔ生成个ｖｂｓ，然后ｖｂｓ弹出这个对话框，若用户点击＂确定＂，＂取消＂，＂忽略＂，ｂａｔ将执行不同的命令望达人伸出援助之手，偶不胜感激！

第2楼　abcd	发表于 2008-03-12 03:00
银牌会员　发帖 739　积分 1,436
生产vbs后，用cscript //nologo执行用for读取

第3楼　fastslz	发表于 2008-03-12 10:50
铂金会员　发帖 2,315　积分 5,493　来自上海
VBS话题不要在DOS疑难解答 & 问题讨论提问! @echo off >tmp.vbs echo MyVar = MsgBox ("请选择...", 4163, "提示"):Wscript.Echo MyVar for /f "delims=*" %%i in ('cscript.exe //nologo tmp.vbs') do set MyVar=%%i if "%MyVar%"=="2" echo 取消 if "%MyVar%"=="6" echo 是 if "%MyVar%"=="7" echo 否 pause 在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。 MsgBox(prompt) 参数 prompt 作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 分隔各行。 Buttons 数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和。有关数值，请参阅“设置”部分。如果省略，则 buttons 的默认值为 0。 Title 显示在对话框标题栏中的字符串表达式。如果省略 title，则将应用程序的名称显示在标题栏中。 Helpfile 字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供 helpfile，则必须提供 context。在 16 位系统平台上不可用。 Context 数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context，则必须提供 helpfile。在 16 位系统平台上不可用。设置 buttons 参数可以有以下值：常数值描述 vbOKOnly 0 只显示确定按钮。 vbOKCancel 1 显示确定和取消按钮。 vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。 vbYesNoCancel 3 显示是、否和取消按钮。 vbYesNo 4 显示是和否按钮。 vbRetryCancel 5 显示重试和取消按钮。 vbCritical 16 显示临界信息图标。 vbQuestion 32 显示警告查询图标。 vbExclamation 48 显示警告消息图标。 vbInformation 64 显示信息消息图标。 vbDefaultButton1 0 第一个按钮为默认按钮。 vbDefaultButton2 256 第二个按钮为默认按钮。 vbDefaultButton3 512 第三个按钮为默认按钮。 vbDefaultButton4 768 第四个按钮为默认按钮。 vbApplicationModal 0 应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。 vbSystemModal 4096 系统模式：在用户响应消息框前，所有应用程序都被挂起。第一组值 (0 - 5) 用于描述对话框中显示的按钮类型与数目；第二组值 (16, 32, 48, 64) 用于描述图标的样式；第三组值 (0, 256, 512) 用于确定默认按钮；而第四组值 (0, 4096) 则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。返回值 MsgBox 函数有以下返回值：常数值按钮 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 放弃 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否说明如果同时提供了 helpfile 和 context，则用户可以按 F1 键以查看与上下文相对应的帮助主题。如果对话框显示取消按钮，则按 ESC 键与单击取消的效果相同。如果对话框包含帮助按钮，则有为对话框提供的上下文相关帮助。但是在单击其他按钮之前，不会返回任何值。当MicroSoft Internet Explorer使用MsgBox函数时，任何对话框的标题总是包含"VBScript",以便于将其与标准对话框区别开来。下面的例子演示了 MsgBox 函数的用法： Dim MyVar MyVar = MsgBox ("Hello World!", 65, "MsgBox Example") ' MyVar 包含 1 或 2，这取决于单击的是哪个按钮。

第4楼　plp626	发表于 2008-03-12 12:52
银牌会员　发帖 1,020　积分 2,278
Originally posted by fastslz at 2008-3-12 10:50 AM: VBS话题不要在DOS疑难解答 & 问题讨论提问! @echo off >tmp.vbs echo MyVar = MsgBox ("请选择...", 4163, "提示"):Wscr ... 谢谢fastslz帮忙,完全解决了我的问题,在此加分感谢.(仍然感谢abcd兄) vbs的疑问我在也找不到在那发问了,虽然是dos论坛,但是vbs也是脚本,属于批处理范畴. 兄不会让我到别的论坛去发帖吧? 再多问句: 兄的这些vbs的资料从那可以得到(论坛里下的SCRIPT56.chm上没找到是私家收藏吗?) MsgBox(prompt) 参数 prompt 作为消息显示在对话框中的字符串表达式。prompt 的..... [ Last edited by plp626 on 2008-3-12 at 01:07 PM ]

第5楼　plp626	发表于 2008-03-12 13:04
银牌会员　发帖 1,020　积分 2,278
是否我误会了,fastslz兄是说有关vbs的东西要在批处理室发?

第6楼　fastslz	发表于 2008-03-12 21:06
铂金会员　发帖 2,315　积分 5,493　来自上海
欢迎来到脚本中心 VBS属于脚本语言，和DOS没关系当然发DOS批处理 & 脚本技术，很好理解呀