IE浏览器增加“复制图像地址”的右键菜单的vbs代码
2022-10-29 18:24:05内容摘要
但IE以及与IE共用右键菜单的MyIE、Sogou等浏览器均没有复制图像链接地址的快捷菜单，通常只有选择图片的属性再在属性对话框中复制图片地址，很麻烦！下面我们给IE添加一个“复制
文章正文
但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>
最后在CopyImageUrl.zip
下面我们给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>
最后在CopyImageUrl.zip
代码注释
作者：喵哥笔记
