VBScript 剪贴板抓取URL并在浏览器中打开

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了VBScript 剪贴板抓取URL并在浏览器中打开，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1722字，纯文字阅读大概需要3分钟。

内容图文

您好，CL。这是很有趣的问题，或者我们应当说，这是两个很有趣的问题。因为您实际上问了两个问题。第一个问题很简单：我可以使用脚本打开特定的 Web 站点吗？您大概已经知道答案了，我可以大声地回答您，可以！下面是一个示例脚本，它将“脚本中心”的 URL 存储在一个名为 strURL 的变量中。然后，此脚本会创建 WSH Shell 对象的一个实例，并使用 Run 方法来打开默认的 Web 浏览器并导航到指定的 URL：
strURL = “http://www.microsoft.com/technet/scriptcenter/default.mspx”
Set objShell = CreateObject("Wscript.Shell")
objShell.Run(strURL)
第二个问题有点棘手：我可以使用脚本从剪贴板中抓取信息吗？这个问题的答案也是“可以”，尽管您必须通过后门程序到达剪贴板。
WSH 和 VBScript 都不能与剪贴板进行交互：它们都不允许您将数据复制到剪贴板或从剪贴板粘贴数据。另一方面，Internet Explorer 却可以和剪贴板进行交互。（瞧，Internet Explorer 真是无所不能啊！）所以，就让 IE 来为我们做这项工作吧。如果您想从剪贴板抓取数据，您可以使用与以下代码类似的代码：
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
strURL = objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit
Wscript.Echo strURL
这里，我们所做的事情就是：创建 Internet Explorer 的一个实例，并在一个空白页中将其打开。请注意，您实际上并不能看到此 IE 实例，因为我们并没有将 Visible 属性设置为 TRUE。所有的事情都是在后台发生的。
然后，我们使用 clipboardData.GetData 方法来获取放置在剪贴板上的文本并将其存储在变量 strURL 中；这也就是下面这行代码所做的工作：
strURL = objIE.document.parentwindow.clipboardData.GetData("text")
我们关闭此 IE 实例 (objIE.Quit)，然后回显我们从剪贴板检索出来的值。
请做以下尝试：将一些文本复制到剪贴板，然后运行该脚本。您应当会得到一个消息框，其中包含您刚才复制到剪贴板的文本。
现在就剩下一件事情要做：将这两半段脚本合在一起构成一个完整的脚本。下面这个脚本就可以从剪贴板中抓取一个 URL 然后在默认的 Web 浏览器中打开该 Web 站点：
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
strURL = objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit
Set objShell = CreateObject("Wscript.Shell")
objShell.Run(strURL)
这个脚本还不赖吧。它还有一个优点 — 它并不是只能用来打开 Web 站点。假定您的剪贴板上有一个文件路径，例如“C:\Scripts\ScriptLog.txt”。运行此脚本，则该文件将在记事本（或任何您设置为与 .txt 文件相关联的应用程序）中打开。如果您的剪贴板上有一个 .doc 文件的路径，则此脚本将在 Microsoft Word 中打开该文档。它实际上是一个通用的文件打开脚本，而不仅仅是一个只能用于 Web 站点的打开脚本。

原文：http://www.jb51.net/article/16381.htm

内容总结

以上是互联网集市为您收集整理的VBScript 剪贴板抓取URL并在浏览器中打开全部内容，希望文章能够帮你解决VBScript 剪贴板抓取URL并在浏览器中打开所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---