Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WshSHell.popup "枚举主键,1 秒钟后本窗口将自动关闭!", 1, "示例", 0 + 64 popup 方法
在弹出式消息框中显示文本。
intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType])
参数
object
WshShell 对象。
strText
包含要显示在弹出式消息框中的文本的字符串值。
nSecondsToWait
可选。表示弹出式消息框最长显示时间（秒）的数值。
strTitle
可选。包含要作为弹出式消息框的标题显示的文本的字符串值。
nType
可选。表示要显示在弹出式消息框中的按钮和图标类型的数值。这些类型确定消息框的使用方法。
IntButton
表示用户单击以解除消息框的按钮号的整数值。该值由 Popup 方法返回。
说明
无论主机可执行文件（WScript.exe 或 CScript.exe）是否运行，Popup 方法都显示一个消息框。如果 nSecondsToWaitis 等于零（默认值），弹出式消息框将保持可见，除非用户关闭它。如果 nSecondsToWaitis 大于零，则弹出式消息框在 nSecondsToWait 秒之后关闭。如果未提供参数 strTitle，则在默认情况下，弹出式消息框的标题为 "Windows Script Host"（Windows 脚本宿主）。nType 的含义与 Microsoft Win32? 应用程序编程接口的 MessageBox 函数的含义相同。下列各表显示这些值及其含义。您可组合这些表中的值。
注意 要以 RTL 语言（如希伯来语或阿拉伯语）正确地显示文本，请将十六进制的 hex &h00100000（十进制的 1048576）添加到 nType 参数中。
按钮类型
值 说明
0 显示“确定”按钮。
1 显示“确定”和“取消”按钮。
2 显示“放弃”、“重试”和“忽略”按钮。
3 显示“是”、“否”和“取消”按钮。
4 显示“是”和“否”按钮。
5 显示“重试”和“取消”按钮。
图标类型
值 说明
16 显示“停止标记”图标。
32 显示“问号”图标。
48 显示“感叹号”图标。
64 显示“信息标记”图标。
上面的两个表中并未涵盖 nType 的所有值。有关完整列表，请参阅 Microsoft Win32 文档。
返回值 intButton 表示用户单击按钮的次数。如果用户在 nSecondsToWait 秒之前未单击按钮，则 intButton 设为 –1。
值 说明
1 “确定”按钮
2 “取消”按钮
3 “放弃”按钮
4 “重试”按钮
5 “忽略”按钮
6 “是”按钮
7 “否”按钮
示例
下面的代码生成简单的弹出式窗口。
[VBScript]
Dim WshShell, BtnCode
Set WshShell = WScript.CreateObject("WScript.Shell") BtnCode = WshShell.Popup("Do you feel alright?", 7, "Answer This Question:", 4 + 32) Select Case BtnCode
case 6 WScript.Echo "Glad to hear you feel alright."
case 7 WScript.Echo "Hope you're feeling better soon."
case -1 WScript.Echo "Is there anybody out there?"
End Select
[JScript]
var WshShell = WScript.CreateObject("WScript.Shell");
var BtnCode = WshShell.Popup("Do you feel alright?", 7, "Answer This Question:", 4 + 32);
switch(BtnCode) {
case 6:
WScript.Echo("Glad to hear you feel alright.");
break;
case 7:
WScript.Echo("Hope you're feeling better soon.");
break;
case -1:
WScript.Echo("Is there anybody out there?");
break;
}
欢迎加入QQ技术群聊：70539804