我如何从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点?
来源:百度文库 编辑:神马文学网 时间:2024/07/03 12:42:44
问:
嗨,Scripting Guy!我如何从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点?
-- CL
答:
您好,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.QuitWscript.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.QuitSet objShell = CreateObject("Wscript.Shell")objShell.Run(strURL)
这个脚本还不赖吧。它还有一个优点 — 它并不是只能用来打开 Web 站点。假定您的剪贴板上有一个文件路径,例如“C:\Scripts\ScriptLog.txt”。运行此脚本,则该文件将在记事本(或任何您设置为与 .txt 文件相关联的应用程序)中打开。如果您的剪贴板上有一个 .doc 文件的路径,则此脚本将在 Microsoft Word 中打开该文档。它实际上是一个通用的文件打开脚本,而不仅仅是一个只能用于 Web 站点的打开脚本。
嗨,Scripting Guy!我如何从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点?
-- CL
答:
您好,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.QuitWscript.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.QuitSet objShell = CreateObject("Wscript.Shell")objShell.Run(strURL)
这个脚本还不赖吧。它还有一个优点 — 它并不是只能用来打开 Web 站点。假定您的剪贴板上有一个文件路径,例如“C:\Scripts\ScriptLog.txt”。运行此脚本,则该文件将在记事本(或任何您设置为与 .txt 文件相关联的应用程序)中打开。如果您的剪贴板上有一个 .doc 文件的路径,则此脚本将在 Microsoft Word 中打开该文档。它实际上是一个通用的文件打开脚本,而不仅仅是一个只能用于 Web 站点的打开脚本。
我如何从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点?
在JAVA WEB中使用URL重写
如何在Dreamweaver中快速定义站点
如何打开剪贴板查看器
如何打开剪贴板查看器
如何打开剪贴板查看器
如何打开剪贴板查看器
在MDI应用程序中如何判断一个子窗体已经打开
如何在一个工作区中打开多个工程文件和删除工程文件
在VFP中如何从数据表中获取一个字段的最大值
如何在360浏览器、傲游、搜狗浏览器中设hao123为首页?
在用IE浏览器浏览网页时,打开网页的速度很慢,请问这是什么原因?该如何解决
使用开源软件设计、开发和部署协作型 Web 站点,第 6 部分: 在 Drupal 中构建...
使用开源软件设计、开发和部署协作型 Web 站点,第 3 部分: 在 Windows 中建...
使用开源软件设计、开发和部署协作型 Web 站点,第 4 部分: 在 Linux 中建立开...
一个IP建多个Web站点
在real内嵌播放器中防止弹出url
在struts2中实现去掉后缀及url重写
在asp.net中自动给url地址加上超链接
在HTML中获取正确的URL属性值
技巧/诀窍:在ASP.NET中重写URL
少女在性爱中该如何保护乳房
“如何将16进制码流在html中显示为图片”兼容多个浏览器的方案。
VFP中实现在浏览器中运行应用程序方法