Question

如何使用vbscript中的msgbox函数

在html语言中，应该怎样设计一个vbscript的msgbox函数使得在不点“确定”时全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。
请高手指教，并把源程序留下，谢谢！！！
第一个回答并不能使所有已打开的程序都被挂起
我刚试验过
请高手继续回答，谢谢！！

Answer 1

　　MsgBox是Visual Basic和VBS中的一个函数，功能是弹出一个对话框，等待用户单击按钮，并返回一个Integer值表示用户单击了哪一个按钮。
　　“MsgBox”即为“Message Box”的缩写，在英语中意为“信箱”。
　　语法：
　　MsgBox (Prompt [,Buttons] [,Title] [,Helpfile,Context])
　　说明：
　　在提供了Helpfile与Context参数的时候，用户可以按F1来查看由Context参数指定的帮助主题。像Microsoft Excel这样的一些主机应用程序就会在对话框中自动添加一个帮助按钮。
　　如果对话框显示“取消”按钮，则按下Esc键与单击“取消”按钮的效果相同。如果对话框中有帮助按钮，则对话框中提供与上下文相关的帮助。但是，直到其它按钮中有一个被单击之前，都不会返回任何值。

　　代码示例：
　　一、使用MsgBox函数，在具有“是”及“否”按钮的对话框中显示一条错误信息。示例中的缺省按钮为“否”，并假设Demo.hlp为一帮助文件，其中有一个帮助主题编号为1000。
　　
　　Dim Msg, Style, Title, Help, Ctxt, Response, MyString
　　Msg = "程序发生错误，继续？" '定义消息文本
　　Style = vbYesNo + vbCritical + vbDefaultButton2 '定义对话框样式
　　Title = "错误信息" '定义标题文本
　　Help = "Demo.hlp" '定义帮助文件
　　Ctxt = 1000 '定义帮助主题编号
　　Response = MsgBox(Msg, Style, Title, Help, Ctxt)
　　If Response = vbYes Then '用户按下“是”按钮
　　MyString = "Yes" '进行某些操作
　　Else '用户按下“否”按钮
　　MyString = "No" '进行某些操作
　　End If
　　

　　二、使用vbCrLf常数在消息内容中换行。
　　MsgBox "第1行" & vbCrLf & "第2行"
　　

　　三、使用vbTab常数显示多行对齐的文本。
　　MsgBox "常数" & vbTab & "值" & vbCrLf & _
　　"vbOK" & vbTab & 1 & vbCrLf & _
　　"vbCancel" & vbTab & 2 & vbCrLf & _
　　"vbAbort" & vbTab & 3 & vbCrLf & _
　　"……" & vbTab & "……", _
　　vbOKOnly, "MsgBox函数返回值"
　　

Answer 2

<SCRIPT LANGUAGE="VBScript">
<!--
sub ChkPROC()
iSel = MsgBox ("Your msg",vbOKCancel)
If iSel = 1 Then
'' OK, then continue
MsgBox "your selected ok!"
End If
'' false here
End Sub
Call ChkPROC()
//-->
</SCRIPT>