标题: 【求助】 右键添加 处理链接地址 [打印本页]
作者: hjkk123 时间: 2008-5-12 15:53 标题: 【求助】 右键添加 处理链接地址
下面是ie右健INF安装文件 链接到剪贴版并用IE打开（当没有用IE浏览器的时候）
怎么还是用TT打开，非要改IE为默认浏览器才行
JavaScript怎么运行ie啊？？
或者JavaScript怎么打开notepad.exe啊
Url456.inf
[Version]
Signature="$Chicago$"
Provider="MetaBuilders"
[DestinationDirs]
DefaultDestDir=10,"web"
[DefaultInstall]
AddReg=CopyUrl_AddReg
CopyFiles=CopyUrl_CopyFiles
[CopyImageUrl_CopyFiles]
CopyUrl.html
[CopyImageUrl_AddReg]
HKCU,"Software\Microsoft\Internet Explorer\MenuExt\链接到剪贴版并用IE打开",,%REG_SZ%,"%10%\web\Url456.html"
HKCU,"Software\Microsoft\Internet Explorer\MenuExt\链接到剪贴版并用IE打开","contexts",%REG_Dword%,00000034
[Strings]
REG_SZ=0x00000000
REG_BINARY=0x00000001
REG_DWORD=0x00010001
Url123.htmlSignature="$Chicago$"
Provider="MetaBuilders"
[DestinationDirs]
DefaultDestDir=10,"web"
[DefaultInstall]
AddReg=CopyUrl_AddReg
CopyFiles=CopyUrl_CopyFiles
[CopyImageUrl_CopyFiles]
CopyUrl.html
[CopyImageUrl_AddReg]
HKCU,"Software\Microsoft\Internet Explorer\MenuExt\链接到剪贴版并用IE打开",,%REG_SZ%,"%10%\web\Url456.html"
HKCU,"Software\Microsoft\Internet Explorer\MenuExt\链接到剪贴版并用IE打开","contexts",%REG_Dword%,00000034
[Strings]
REG_SZ=0x00000000
REG_BINARY=0x00000001
REG_DWORD=0x00010001
<SCRIPT LANGUAGE="JavaScript" defer>
var parentWin = external.menuArguments;
var srcEvent = external.menuArguments.event;
var doc = parentWin.document;
var eventElement = doc.elementFromPoint ( srcEvent.clientX, srcEvent.clientY );
var cpb = parentWin.clipboardData;
var src123 = eventElement;
var str = new String(src123.href.toString());
str = + str +
cpb.setData("Text",str.toString());
window.open(cpb.getData("text"),"");
</SCRIPT>
[ Last edited by hjkk123 on 2008-5-17 at 07:05 PM ]var parentWin = external.menuArguments;
var srcEvent = external.menuArguments.event;
var doc = parentWin.document;
var eventElement = doc.elementFromPoint ( srcEvent.clientX, srcEvent.clientY );
var cpb = parentWin.clipboardData;
var src123 = eventElement;
var str = new String(src123.href.toString());
str = + str +
cpb.setData("Text",str.toString());
window.open(cpb.getData("text"),"");
</SCRIPT>
作者: hjkk123 时间: 2008-5-17 15:39
谁帮我把下面代码改下,怪了，晕啊
下面的脚本怎么老打开一个空的窗口
IE123.htm
<SCRIPT LANGUAGE="VBScript" defer>
<!--
Dim PopupBreite
Dim PopupHoehe
Dim ExpireDate
sub ShowThePopup(Which)
PosStr = "left=" & exwin.event.screenx
PosStr = PosStr & ",top=" & exwin.event.screeny
PosStr = PosStr & ",width=" & PopupBreite
PosStr = PosStr & ",height=" & PopupHoehe
PosStr = PosStr & ",resizable=no,scrollbars=no,menubar=no,toolbar=no,location=no,directories=no,status=no"
window.open Which,"popup", PosStr
end sub
PopupBreite = 400
PopupHoehe = 200
Randomize(Time())
set exwin = external.menuArguments
set sel = exwin.document.selection
set rng = sel.createRange()
Wort = rng.text
if Wort = "" then
set ptrng = exwin.document.body.createTextRange()
ptrng.moveToPoint exwin.event.x, exwin.event.y
ptrng.expand("word")
Wort = ptrng.text
end if
Wort = Trim(Wort)
if Instr(Wort,"@")>0 and Left(LCase(Wort),7) <> "http://" and Left(LCase(Wort),6) <> "ftp://" then
if Left(LCase(Wort),7) <> "mailto:" then Wort="mailto:" & Wort
else
if Left(LCase(Wort),7) <> "http://" and Left(LCase(Wort),6) <> "ftp://" then Wort="http://" & Wort
end if
window.open Wort
-->
</SCRIPT>
[ Last edited by hjkk123 on 2008-5-17 at 03:57 PM ]<!--
Dim PopupBreite
Dim PopupHoehe
Dim ExpireDate
sub ShowThePopup(Which)
PosStr = "left=" & exwin.event.screenx
PosStr = PosStr & ",top=" & exwin.event.screeny
PosStr = PosStr & ",width=" & PopupBreite
PosStr = PosStr & ",height=" & PopupHoehe
PosStr = PosStr & ",resizable=no,scrollbars=no,menubar=no,toolbar=no,location=no,directories=no,status=no"
window.open Which,"popup", PosStr
end sub
PopupBreite = 400
PopupHoehe = 200
Randomize(Time())
set exwin = external.menuArguments
set sel = exwin.document.selection
set rng = sel.createRange()
Wort = rng.text
if Wort = "" then
set ptrng = exwin.document.body.createTextRange()
ptrng.moveToPoint exwin.event.x, exwin.event.y
ptrng.expand("word")
Wort = ptrng.text
end if
Wort = Trim(Wort)
if Instr(Wort,"@")>0 and Left(LCase(Wort),7) <> "http://" and Left(LCase(Wort),6) <> "ftp://" then
if Left(LCase(Wort),7) <> "mailto:" then Wort="mailto:" & Wort
else
if Left(LCase(Wort),7) <> "http://" and Left(LCase(Wort),6) <> "ftp://" then Wort="http://" & Wort
end if
window.open Wort
-->
</SCRIPT>
作者: slore 时间: 2008-5-17 16:27
你得到的wort是什么?
作者: hjkk123 时间: 2008-5-17 18:43
和1楼的一样功能
要用IE打开的的链接地址呀
作者: slore 时间: 2008-5-17 19:46
明白你意思了……脚本里是不能调用其他的程序的……
不然网页里给你调用个shutdown？或者taskkill或者病毒……
作者: hjkk123 时间: 2008-5-17 20:14
2楼代码它不是我写的
那么slore啊， 第 2 楼的代码怎么改成1楼所需要的功能呢
作者: slore 时间: 2008-5-17 20:23
直接用1楼的不行？·
作者: hjkk123 时间: 2008-5-17 20:36
不行啊，运行错误提示 找不到'file:///c:/windows/web/null'。请认路径或internet地址正确。
而且现在有的tt没有改默认浏览器的设置
[ Last edited by hjkk123 on 2008-5-17 at 08:38 PM ]
作者: slore 时间: 2008-5-17 21:08
你的1楼的html代码没有错……
错的是你的安装文件……
安装文件里面你没有改字段名。
还有你要复制的文件名也不对。
[DefaultInstall]
AddReg=CopyUrl_AddReg ;要修改的注册表字段
CopyFiles=CopyUrl_CopyFiles ;要复制的文件字段
[CopyImageUrl_CopyFiles] ;字段名不对，文件没有复制
CopyUrl.html
[CopyImageUrl_AddReg] ;你的这个字段名不对！注册表不修改
HKCU,"Software\Microsoft\Internet Explorer\MenuExt\链接到剪贴版并用IE打开",,%REG_SZ%,"%10%\web\Url456.html" ;你的文件名也不对……
HKCU,"Software\Microsoft\Internet Explorer\MenuExt\链接到剪贴版并用IE打开","contexts",%REG_Dword%,00000034
作者: hjkk123 时间: 2008-5-17 21:18
slore大虾，谢谢你啊。我刚才都改正过来了
我想只可能是Url123.html哪里写的有漏洞
文件已经在web文件夹下，我刚才测试了下，好神经啊，点击同一个链接在不同时候，感觉几乎是随机的，一会儿正常，一会儿出现8楼的错误
肯定是window.open(cpb.getData("text"),"");这句话怎么了，因为上一句话，很及时，功能很正常，那要怎么改下呢
[ Last edited by hjkk123 on 2008-5-17 at 09:29 PM ]
作者: slore 时间: 2008-5-17 21:54
你出现错误的时候
剪贴板什么内容？
是不是空的呀？
作者: slore 时间: 2008-5-17 22:16
知道原因了。。。
<a href=XXXX>连接显示的字</a>
这样的可以。。。
但是如果：
<a href=XXX><某效果>连接显示的字</某效果></a>
这种的就得不到连接了……
我这里只是闪下，但是不提示错误。
我的是IE6
感觉得到连接的话javascript应该有方法得到连接。。。
你这个看了，本身是读图片的连接吧，可能就有区别了。
（而且访问剪贴板好像没有必要吧）