问： 嗨，Scripting Guy！可以在消息框中包含指向某个 Web 页面的超链接吗？ -- CB 答： 嗨，CB。听起来您好像想要向用户显示一个消息框，并且希望在消息框中包含一个超链接，以便用户可以点击这个链接，从而获得更多信息。例如，假设某个用户试图访问一些资源，但被拒绝了。这种情况下，您可以弹出一个消息框，告诉用户访问被拒绝，然后向他们提供一个链接，这个链接指向的页面会告诉用户访问所需的权限。一般说来，这种办法会比简单地说“访问被拒绝”好得多。 那么，是否可以用脚本编写语言实现这个目的呢？好吧，据我们所知，目前还不能。消息框中含有超链接当然会很酷，但使用脚本编写语言则仅限于简单的消息框。 不过，先等等，别忙着离开！您并没有问我们：“是否存在某种变通办法可以实现相同目的，但不必在消息框中嵌入超链接？”如果您这么问，我们就会告诉您：“总会有变通办法的。”您所寻求的就是从消息框中实现对 Web 页面的一键式访问。一个方法就是在消息框中嵌入超链接，但不幸的是，我们上面说过，使用 VBScript 无法实现上述目的。因此，我们试着使用其他办法看看：为什么不弹出一个消息框，询问用户：“您是否想要申请访问此资源？”呢？如果用户点击否，那么脚本就会中止。如果用户点击是，脚本就会自动将用户带到合适的 Web 页面。一个消息框，一键式访问网站。它和使用超链接并不十分相同，但结果却是一样的。 如您所见，这只需要以下几行代码就可以实现：
复制代码 代码如下:
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.microsoft.com") Else Wscript.Quit End If
