怎么用vbscript实现在消息框中显示一个超链接-创新互联

这篇文章主要为大家展示了“怎么用vbscript实现在消息框中显示一个超链接”,内容简而易懂,条理清晰,希望能够帮助大家解决疑惑,下面让小编带领大家一起研究并学习一下“怎么用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.microsoft.com") 
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.microsoft.com。(注意,我们需要做的就是指定 URL;然后操作系统就会使用默认浏览器导航到该站点。)
那如果用户点击的为否呢?这种情况下,我们就会退出 (Wscript.Quit)。
恰如我们所说的,这个方法和我们想象中的不完全一样,但它可以实现这个目的。


以上是“怎么用vbscript实现在消息框中显示一个超链接”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!


网页题目:怎么用vbscript实现在消息框中显示一个超链接-创新互联
网址分享:http://scyanting.com/article/cescgd.html