IE浏览器增加“复制图像地址”的右键菜单的vbs代码

但IE以及与IE共用右键菜单的MyIE、Sogou等浏览器均没有复制图像链接地址的快捷菜单，通常只有选择图片的属性再在属性对话框中复制图片地址，很麻烦！
下面我们给IE添加一个“复制图像地址”的右键菜单，步骤如下：
VB新建一个ActiveX Dll工程，工程名：NetCopyURL，将默认生成的类名改为clsCopyURL
在clsCopyURL.cls中添加如下代码：
Public Sub CopyImageURL(URL As String)
Clipboard.Clear
Clipboard.SetText URL
End Sub
执行File->Make NetCopyURL.dll生成动态链接库文件NetCopyURL.dll
拷贝NetCopyURL.dll到C:\Windows\System32文件夹
运行开始->所有程序->附件->命令提示符，输入如下命令注册dll：Regsvr32 C:\Windows\System32\NetCopyURL.dll
打开记事本，敲入以下内容，并存储到C:\Program Files\CopyImageUrl\CopyUrl.htm。这是右键菜单要执行的VBScript脚本。


代码如下:

<script language="VBscript">
Sub OnContextMenu()
On Error Resume Next
set srcEvent = external.menuArguments.event
set EventElement = external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY)
set objNet=CreateObject("NetCopyURL.clsCopyURL")
objNet.CopyImageURL(EventElement.href)
end Sub
call OnContextMenu()
</script>

最后在注册表中给IE添加一个右键菜单：在任何位置新建一个reg文件，如AddMenu.reg，敲入如下内容：


代码如下:

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\复制图像地址(&X)]
@="C:\\Program Files\\CopyImageUrl\\CopyUrl.htm"
"Contexts"=dword:0000002

保存后双击AddMenu.reg文件导入注册表项，即完成右键菜单的添加。
第7步中写入注册表的Contexts的值代表右键点击IE中什么对象时出现设置的右键菜单，具体含义如下（可组合）：
0x01 缺省
0x02 图片
0x04 控件
0x08 表单域
0x10 选择文本
0x20 超链接
如：
Contexts=0x000002，表示右键点击IE中的图片时出现设置的右键菜单
Contexts=0x000022，表示右键点击IE中的图片或超链接时出现设置的右键菜单
ok了，重新打开IE，打开一个有图片的网页，在图片上右键单击鼠标，此时菜单中出现了“复制图像地址(&X)”的菜单项，选择该菜单命令，图片的链接地址就被复制了。
将CopyUrl.htm的内容改为以下代码，可省略前5个步骤。（即不需要再做ActiveX DLL了）
<script language="VBscript">
Sub OnContextMenu()
set srcEvent = external.menuArguments.event
set EventElement = external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY)
set cpbObj = external.menuArguments.clipboardData
call cpbObj.setData("Text",EventElement.href)
end Sub
call OnContextMenu()
</script>
制作了一个安装文件，下载解压后，右键单击CopyImageUrl.inf，选择“安装”即可。打开一个有图片的网页，在图片上右键单击鼠标，此时菜单中出现了“复制图像地址(&X)”的菜单项，选择该菜单命令，图片的链接地址就被复制了。安装文件下载地址：
CopyImageUrl.zip

赞 (0)

相关推荐

  • vbs复制文件的脚本

    vbs复制文件的脚本

    复制代码 代码如下: parentfolder = "c:\" sourcefile = "c:\windows\log.log" targetfolder = parentfolder & date & "\" set objshell = createobject("shell.application") set objfolder = objshell.namespace(parentfolder) ob

  • vbs 自动复制U盘的内容

    思路很简单,高层的东西没什么技术含量,引用几个函数或方法就行了.开始我用的是批处理(如果你插入U盘的盘符是J,把课件保存于F盘)打开记事本,键入以下内容: 复制代码 代码如下: :cheat ping 127.0.0.1>nul if exist J:\*.ppt (copy J:\*.ppt F:\ && exit) else goto cheat 保存为main.bat,本来这个文件就够实现此功能了,但我想不到有什么DOS命令可以隐藏命令提示符界面,就不得不编了一个vbs脚本专门

  • 自动复制U盘文件的VBS脚本

    自动复制U盘文件的VBS脚本

    以下为演示: 一.设置 右键单击,选择编辑 oStr = "txt|jpg|doc" '你要窃取的文件类型,可以自行添加,用"|"隔开 oDistPath = "C:\\windows\\system\\" '保存路径 oFolderName = "Task" '保存文件夹名称 oType = 0 '将保存的文件夹进行伪装 1为task文件夹,2为recycler文件夹,0为不伪装 oOut = 1 '1复制完毕后退出,0复制

  • vbs复制文件夹的实现代码

    vbs复制文件夹的实现代码

    需要实现一个复制文件夹的功能,网上找到相关代码,并做了改进,vbs脚本如下 复制代码 代码如下: Dim fso, CopyCountSet fso = CreateObject("Scripting.FileSystemObject") CopyCount = CopyCount + XCopy(fso, ".\1", ".\2", True)MsgBox "拷贝了" & CopyCount & "

  • vbs病毒制作之一复制自身的vbs脚本

    复制自身到c盘的huan.vbs ASP/Visual Basic代码 复制代码 代码如下: set copy1=createobject("scripting.filesystemobject")          copy1.getfile(wscript.scriptfullname).copy("c:\huan.vbs")

  • Windows 安装IIS出现的问题（无法安装IIS，提示“安装程序无法复制文件IISApp.vbs”）

    这就是典型的windows安全数据库出问题了,可以用以下方法来解决这个问题: Windows安全资料库,在%WinDir%\Security\database里. 台湾的资料库,大陆称为数据库. 在Windows作业系统里带有专门的Esentutl.exe工具,这是一个DOS工具,可用来查看和修复Windows安全资料库. 比如我有一次在安装IIS的元件时,发生了错误: ************************ 复制错误 安装程式无法复制档 iisapp.vbs. 请确认下面指定的位置是

  • 最新恶意复制型病毒autorun.inf，stNP.VBS，NP.VBS代码简单解析和解决方法

    最新恶意复制型病毒autorun.inf,stNP.VBS,NP.VBS 及代码分析与病毒处理两种方法 方法一:来自于指间轻舞 此病毒最大的特点在于中毒后,自动感染你的硬盘根目录,并复制病毒文件.无论你是采用双击,还是右键选择打开,或者运行资源管理器都会自动运行其代码(病毒),所以中此病毒后,新手往往打不开盘符,导致数据无法读取. 下面是病毒的代码分析 文件总共有三个 都很简单,已经加上了注解. 文件名:autorun.inf 复制代码 代码如下: [autorun]  open=  shell

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

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

  • vbs实现只复制比目标文件更新的文件

    因为网站需要频繁的更新首页,有时候使用cdn经常导致首页正在生成内容的时候同步数据(可能是冲突,经常导致首页是空的),这就想了先生成一个不是首页的index2.htm然后再复制一遍为index.htm,这样index2的频繁读写也没问题了.所以先判断index2.htm不是空的时候才复制,而且必须是比index.htm更新的时候才复制.这样就需要一些脚本的支持了. 前几天写了一个(bat+xcopy实现只复制比目标文件更新的文件)还是出现为空的情况,这里特加些功能,参考很多网站的文章,感谢百度的

  • IE浏览器增加“复制图像地址”的右键菜单的vbs代码

    但IE以及与IE共用右键菜单的MyIE.Sogou等浏览器均没有复制图像链接地址的快捷菜单,通常只有选择图片的属性再在属性对话框中复制图片地址,很麻烦!下面我们给IE添加一个"复制图像地址"的右键菜单,步骤如下: VB新建一个ActiveX Dll工程,工程名:NetCopyURL,将默认生成的类名改为clsCopyURL 在clsCopyURL.cls中添加如下代码: Public Sub CopyImageURL(URL As String) Clipboard.Clear Cli

  • JavaScript中layim之整合右键菜单的示例代码

    JavaScript中layim之整合右键菜单的示例代码

    一. 效果演示 1.1.好友右键菜单: 1.2.分组右键菜单: 1.3.群组右键菜单: 二. 实现教程 接下来我们以好友右键菜单为例,实现步骤如下: 2.1.绑定好友右击事件: /* 绑定好友右击事件 */ $('body').on('mousedown', '.layim-list-friend li ul li', function(e){ // 过滤非右击事件 if(3 != e.which) { return; } // 不再派发事件 e.stopPropagation(); var o

  • 利用JS重写Cognos右键菜单的实现代码

    利用JS重写Cognos右键菜单的实现代码

    复制代码 代码如下: <!--菜单样式--> <STYLE type=text/css> .cMenu { BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; FONT-WEIGHT: normal; FONT-SIZE: 14px; VISIBILITY: hidden; BORDER-LEFT: #000000 1px solid; WIDTH: 150px; CURSOR: default; COLO

  • 为jQuery.Treeview添加右键菜单的实现代码

    为jQuery.Treeview添加右键菜单的实现代码

    先上图: jquery.treeview 数据通过JSON数据加载,有需要的朋友,可以通jquery的AJAX方法获取相关的JSON数据 json的数据格式:{"id":1,"parentid":0,"title":"标题","children":[{ ...}]} 需要两个jQuery 两件 (jquery.treeview.min.js 树插件 和 jquery.contextmenu.r2.js 右键

  • 去掉RAR右键解压菜单的VBS代码

    原理: http://demon.tw/programming/vbs-binary-file-another.html 复制代码 代码如下: Public ReadBinaryReadBinaryDat(".\1.exe")BinaryDat = Replace(Replace(ReadBinary, "526172211a07", "522172211a07"), "807a0161", "807a0121&qu

  • js实现自定义右键菜单

    本文实例为大家分享了js实现右键菜单的具体代码,供大家参考,具体内容如下 原理: 1.屏蔽默认的右键菜单 2.点击右键获取位置,让自定义菜单到点击位置上 3.点击左键,自定义菜单消失 代码如下 <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>右键菜单练习</title> <style> *{

  • 原生js自定义右键菜单

    本文实例为大家分享了js自定义右键菜单的具体代码,供大家参考,具体内容如下 1.右键菜单触发的基本过程 实现自定义右键菜单我们首先需要了解以下内容: 浏览器默认的右键菜单触发的基本过程 1).单击右键,菜单出现 2).菜单出现,鼠标箭头一直在菜单左上角 3).再换个位置点击右键,原菜单消失,新菜单出现在指定位置 4).点击左键,中键,菜单消失 以上为大致实现过程,不全面,仅供参考 也许文字过于抽象,我们来看看代码吧: 2.HTML结构 <!--start右键菜单的结构--> <div i

  • vue原生方法自定义右键菜单

    vue原生方法自定义右键菜单

    本文实例为大家分享了vue原生方法自定义右键菜单的具体代码,供大家参考,具体内容如下 1.在需要添加右键的页面,绑定contextmenu事件(阻止浏览器默认事件,添加自定义事件) <div @contextmenu.prevent.native="openMenu($event)">   .... </div> 2.在页面编写右键菜单的内容 <ul v-show="visible" :style="{left:left+'p

  • JavaScript模拟鼠标右键菜单效果

    JavaScript模拟鼠标右键菜单效果

    本文实例为大家分享了JavaScript模拟鼠标右键菜单的具体代码,供大家参考,具体代码如下 效果图: 具体代码: <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>右键菜单</title> <style type="text/css"> *{ margin: 0; padd

  • javascript全局自定义鼠标右键菜单

    javascript全局自定义鼠标右键菜单

    本文实例为大家分享了javascript全局自定义鼠标右键菜单的具体代码,供大家参考,具体内容如下 前言 html全局自定义鼠标右键菜单 一.效果展示 二.源代码 <!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title></title> <style type="text/css"> #TextBox{ width: 2

随机推荐