用vbscript实现在消息框中显示一个超链接

Set objShell = CreateObject("Wscript.Shell") 
intMessage = Msgbox("Would you like to apply for access to this resource?", _ 
    vbYesNo, "Access Denied") 
If intMessage = vbYes Then 
    objShell.Run(http://www.cmdos.net) 
Else 
    Wscript.Quit 
End If

我们首先创建一个 WSH Shell 对象实例；我们需要创建这个实例，以便弹出 Web 浏览器和链接到网站。然后，我们显示消息框（标题为访问被拒绝），并询问用户：“您是否想要申请访问此资源？”这个消息框具有一个是按钮和一个否按钮，这就是 VBScript 常量 vbYesNo 的用途。
注意：有些人可能在想：“等等，我想您应该在 VBScript 中明确定义这些常量。”在大多数情况下，这是正确的。如果我们处理的是 FileSystemObject（打个比方），那么我们就需要使用类似如下代码定义常量：
Const ForReading = 1
但是，VBScript 有一些内部常量。vbYesNo 恰好就是其中之一。它用于在消息框中显示“是”按钮或“否”按钮。vbCrLf 则是另一个内部常量，它的作用是在字符串末尾添加回车换行。这些内部常量——它们是 VBScript 语言的一部分——不必定义；在您输入 vbYesNo 时，VBScript 会知道您的意思。
我们刚才说到哪了？哦，对了，我们弹出一个消息框，并向用户提供是按钮和否按钮。如果用户点击是，我们就将他们带到指定的网站。那么，如何知道用户点击的是否为是呢？很简单：当我们创建消息框时，我们就将用户响应存储在变量 intMessage 中。因此，若要判断用户点了哪个按钮，我们只要检查 intMessage 的值就可以了。如果这个值等于 vbYesNo（另一个内部常量，等于 6），那么用户点击的便为是，于是我们就使用 Shell 对象的 Run 方法打开网站 http://www.cmdos.net。（注意，我们需要做的就是指定 URL；然后操作系统就会使用默认浏览器导航到该站点。）
那如果用户点击的为否呢？这种情况下，我们就会退出 (Wscript.Quit)。
恰如我们所说的，这个方法和我们想象中的不完全一样，但它可以实现这个目的。
顺便说一下，如果您想了解有关 VBScript 的 Msgbox 函数以及配置这个函数的不同方式的更多信息，请访问MSDN 上的 “VBScript 语言参考”。
那如果您需要制作精美一点的消息框呢？这种情况下，您可以自己动手制作一个 HTML 页面，然后使用这个页面模拟真实的 Windows 消息框。不过这个问题我们将在其他时间讨论。