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

您好，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 站点的打开脚本。

赞 (0)

相关推荐

  • JS/FLASH实现复制代码到剪贴板(兼容所有浏览器)

    JS/FLASH实现复制代码到剪贴板(兼容所有浏览器)

    目前,如果使用javascript来写复制到剪贴板的代码,一般都是浏览器不兼容的.所以采用flash的方式,模拟一个层,再来复制,就可以做到全部浏览器都适用哦~ 需要下载一个swf文件,和一个js文件.把这两个文件,和htm放到一起. 图示: 必须放在服务器端使用哦. 图示: JS代码: 复制代码 代码如下: ZeroClipboard.js // Simple Set Clipboard System // Author: Joseph Huckaby var ZeroClipboard =

  • JS复制到剪贴板示例代码

    复制代码 代码如下: /* * 复制到剪贴板 * * */ function copyToClipboard(txt) { if(window.clipboardData) { window.clipboardData.clearData(); window.clipboardData.setData("Text", txt); } else if(navigator.userAgent.indexOf("Opera") != -1) { window.locati

  • [js]javascript与剪贴板交互

    1.怎样操作剪贴板,从而实现复制.剪切与粘贴?同时判断剪贴板里边的数据是否是文本? if (!IsClipboardFormatAvailable(CF_TEXT))  return;  if (!OpenClipboard(hwndMain))  return; hglb = GetClipboardData(CF_TEXT);  if (hglb != NULL)  {  lptstr = GlobalLock(hglb);  if (lptstr != NULL)  {  // Call 

  • VBS访问剪贴板的几种方法小结

    VBS访问剪贴板的几种方法小结

    复制代码 代码如下: Set IE = CreateObject("InternetExplorer.Application") IE.Navigate("about:blank") Set clipboard = IE.document.parentWindow.clipboardData 'SetData设置剪切板的内容 clipboard.SetData "text", "忘记了,喜欢一个人的感觉" 'GetData获取

  • 用vbs 实现从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点

    问: 嗨,Scripting Guy!我如何从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点? -- CL 答: 您好,CL.这是很有趣的问题,或者我们应当说,这是两个很有趣的问题.因为您实际上问了两个问题.第一个问题很简单:我可以使用脚本打开特定的 Web 站点吗?您大概已经知道答案了,我可以大声地回答您,可以!下面是一个示例脚本,它将"脚本中心"的 URL 存储在一个名为 strURL 的变量中.然后,此脚本会创建 WSH Shell 对象的一个实例,并使用 Run 

  • 一段多浏览器的"复制到剪贴板"javascript代码

    代码如下,就不多说废话了,可以兼容基本上所有的主流浏览器(IE,FF),很多地方可以用到的: copyToClipboard = function(txt) { if(window.clipboardData) {    window.clipboardData.clearData();    window.clipboardData.setData("Text", txt); } else if(navigator.userAgent.indexOf("Opera"

  • 用vbscript实现将脚本的输出复制到剪贴板

    问: 嗨,Scripting Guy!有办法将脚本输出复制到剪贴板吗? -- ZW, Marseilles, France 答: 您好,ZW.如果您不介意用一些疯狂的解决方法,那么实际上将脚本输出复制到剪贴板相当容易.首先,您需要构造一个字符串,其中包含想要的输出.然后,创建 Internet Explorer 的一个实例,然后在其中打开一个空白页.接着,利用 Internet Explorer 对象模型的内置功能,将字符串复制到剪贴板:特别是, 可以使用 clipboardData.SetDa

  • ASP.NET jQuery 实例4(复制TextBox的文本到本地剪贴板上)

    ASP.NET jQuery 实例4(复制TextBox的文本到本地剪贴板上)

    在这节,我们将看到如何把多行文本框的内容复制到剪贴板上. 注意:jQuery clipboard plugin 只支持IE 界面代码: 复制代码 代码如下: <form id="form1" runat="server"> <div align="center"> <fieldset style="width: 400px; height: 300px;"> <p>请输入你的评论

  • vb.net借助剪贴板将图片导入excel内

    复制代码 代码如下: Dim im as Image=Image.FromFile ("C:/picture.bmp")   '获得Image System.Windows.Forms.Clipboard.SetDataObject(im, True)  '复制到剪贴板 Dim xlApp As Excel.Application = New Excel.Application()        Dim xlBook As Excel.Workbook Dim xlSheet As E

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

    您好,CL.这是很有趣的问题,或者我们应当说,这是两个很有趣的问题.因为您实际上问了两个问题.第一个问题很简单:我可以使用脚本打开特定的 Web 站点吗?您大概已经知道答案了,我可以大声地回答您,可以!下面是一个示例脚本,它将"脚本中心"的 URL 存储在一个名为 strURL 的变量中.然后,此脚本会创建 WSH Shell 对象的一个实例,并使用 Run 方法来打开默认的 Web 浏览器并导航到指定的 URL: strURL = "http://www.microsoft

  • python制作爬虫并将抓取结果保存到excel中

    python制作爬虫并将抓取结果保存到excel中

    学习Python也有一段时间了,各种理论知识大体上也算略知一二了,今天就进入实战演练:通过Python来编写一个拉勾网薪资调查的小爬虫. 第一步:分析网站的请求过程 我们在查看拉勾网上的招聘信息的时候,搜索Python,或者是PHP等等的岗位信息,其实是向服务器发出相应请求,由服务器动态的响应请求,将我们所需要的内容通过浏览器解析,呈现在我们的面前. 可以看到我们发出的请求当中,FormData中的kd参数,就代表着向服务器请求关键词为Python的招聘信息. 分析比较复杂的页面请求与响应信息,

  • Python 抓取数据存储到Redis中的操作

    redis是一个key-value存储结构.和Memcached类似,它支持存储的value类型相对更多,包括string(字符串).list(链表).set(集合).zset(sorted set 有序集合)和hash(哈希类型),数据存储如下图分析 为了分别为ID存入多个键值对,此次仅对Hash数据进行操作,例子如下 import os,sys import requests import bs4 import redis #连接Redis r = redis.Redis(host='127

  • 微信打开网址添加在浏览器中打开提示的办法

    微信打开网址添加在浏览器中打开提示的办法

    使用微信打开网址时,无法在微信内打开常用下载软件,手机APP等.网上流传的各种微信打开下载链接,微信一更新基本失效.大家常用的方法是,弹出一个遮罩提示用户在新的浏览器窗口打开,再也不用管微信如何的更新. 直接判断微信的ua,如果是在微信内置浏览器中打开,弹出一个遮罩提示用户在浏览器中打开下载,并且不加关闭的按钮.这样子用户就只能在浏览器中打开,并且可以直接下载应用了. css代码 <style type="text/css"> *{ margin:0; padding:0;

  • 用js限制网页只在微信浏览器中打开(或者只能手机端访问)

    用js限制网页只在微信浏览器中打开 js $(function(){ //判断页面是否是在微信浏览器打开 //对浏览器的UserAgent进行正则匹配,不含有微信独有标识的则为其他浏览器 var useragent = navigator.userAgent; if (useragent.match(/MicroMessenger/i) != 'MicroMessenger') { window.location.href = "wxError.html";//若不是微信浏览器,跳转到

  • 在浏览器中打开或关闭JavaScript的方法

    所有现代浏览器都使用了JavaScript的内置支持.很多时候,你可能需要启用或手动禁用此支持. 本教程将让您知道如何启用和禁用JavaScript支持,在您的浏览器:IE浏览器,Firefox和Opera. JavaScript在Internet Explorer(IE)中: 下面是简单的步骤给打开或关闭JavaScript在您的Internet Explorer: 按照从菜单"工具" - > "Internet选项" 从对话框中选择"安全&quo

  • 在Nginx浏览器中打开目录浏览功能

    在nginx中不像apache默认是打开目录浏览功能的,在nignx中目录浏览功能默认是关闭了,下面我来介绍在nginx中实现目录浏览功能的配置方法. 打开nginx.conf文件,在location server 或 http段中加入 autoindex on; 另外两个参数最好也加上去: autoindex_exact_size off; 默认为on,显示出文件的确切大小,单位是bytes. 改为off后,显示出文件的大概大小,单位是kB或者MB或者GB autoindex_localtim

  • Python 抓取动态网页内容方案详解

    Python 抓取动态网页内容方案详解

    用Python实现常规的静态网页抓取时,往往是用urllib2来获取整个HTML页面,然后从HTML文件中逐字查找对应的关键字.如下所示: 复制代码 代码如下: import urllib2 url="http://mm.taobao.com/json/request_top_list.htm?type=0&page=1" up=urllib2.urlopen(url)#打开目标页面,存入变量up cont=up.read()#从up中读入该HTML文件 key1='<a

  • PHP的CURL方法curl_setopt()函数案例介绍(抓取网页,POST数据)

    通过curl_setopt()函数可以方便快捷的抓取网页(采集很方便大笑),curl_setopt 是PHP的一个扩展库      使用条件:需要在php.ini 中配置开启.(PHP 4 >= 4.0.2)        //取消下面的注释 extension=php_curl.dll 在Linux下面,需要重新编译PHP了,编译时,你需要打开编译参数--在configure命令上加上"–with-curl" 参数. 1. 一个抓取网页的简单案例: [php] view pla

随机推荐