用vbs 实现从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 问： 嗨，ScriptingGuy！我如何从剪贴板中抓取一个URL然后在浏览器中打开该Web站点？ --CL 答： 您好，CL。这是很有趣的问题，或者我们应当说，这是两个很有趣的问题。因为您实际上问了两个问题。第一个问题很简单：我可以使用脚本打开特定的Web站点吗？您大概已经知道答案了，我可以大声地回答您，可以！下面是一个示例脚本，它将“脚本中心”的URL存储在一个名为strURL的变量中。然后，此脚本会创建WSHShell对象的一个实例，并使用Run方法来打开默认的Web浏览器并导航到指定的URL： 复制代码 代码如下: strURL=“http://www.microsoft.com/technet/scriptcenter/default.mspx” SetobjShell=CreateObject("Wscript.Shell") objShell.Run(strURL) 第二个问题有点棘手：我可以使用脚本从剪贴板中抓取信息吗？这个问题的答案也是“可以”，尽管您必须通过****程序到达剪贴板。 WSH和VBScript都不能与剪贴板进行交互：它们都不允许您将数据复制到剪贴板或从剪贴板粘贴数据。另一方面，InternetExplorer却可以和剪贴板进行交互。（瞧，InternetExplorer真是无所不能啊！）所以，就让IE来为我们做这项工作吧。如果您想从剪贴板抓取数据，您可以使用与以下代码类似的代码： SetobjIE=CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") strURL=objIE.document.parentwindow.clipboardData.GetData("text") objIE.Quit Wscript.EchostrURL 这里，我们所做的事情就是：创建InternetExplorer的一个实例，并在一个空白页中将其打开。请注意，您实际上并不能看到此IE实例，因为我们并没有将Visible属性设置为TRUE。所有的事情都是在后台发生的。 然后，我们使用clipboardData.GetData方法来获取放置在剪贴板上的文本并将其存储在变量strURL中；这也就是下面这行代码所做的工作： strURL=objIE.document.parentwindow.clipboardData.GetData("text") 我们关闭此IE实例(objIE.Quit)，然后回显我们从剪贴板检索出来的值。 请做以下尝试：将一些文本复制到剪贴板，然后运行该脚本。您应当会得到一个消息框，其中包含您刚才复制到剪贴板的文本。 现在就剩下一件事情要做：将这两半段脚本合在一起构成一个完整的脚本。下面这个脚本就可以从剪贴板中抓取一个URL然后在默认的Web浏览器中打开该Web站点： SetobjIE=CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") strURL=objIE.document.parentwindow.clipboardData.GetData("text") objIE.Quit SetobjShell=CreateObject("Wscript.Shell") objShell.Run(strURL) 这个脚本还不赖吧。它还有一个优点—它并不是只能用来打开Web站点。假定您的剪贴板上有一个文件路径，例如“C:\Scripts\ScriptLog.txt”。运行此脚本，则该文件将在记事本（或任何您设置为与.txt文件相关联的应用程序）中打开。如果您的剪贴板上有一个.doc文件的路径，则此脚本将在MicrosoftWord中打开该文档。它实际上是一个通用的文件打开脚本，而不仅仅是一个只能用于Web站点的打开脚本。 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于用vbs 实现从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点的所有评论
