中国DOS联盟

下面是ie右健INF安装文件 链接到剪贴版并用IE打开（当没有用IE浏览器的时候）
怎么还是用TT打开，非要改IE为默认浏览器才行
JavaScript怎么运行ie啊？？
或者JavaScript怎么打开notepad.exe啊

Url456.inf

Signature="$Chicago$"

Provider="MetaBuilders"





DefaultDestDir=10,"web"





AddReg=CopyUrl_AddReg

CopyFiles=CopyUrl_CopyFiles





CopyUrl.html





HKCU,"Software\Microsoft\Internet Explorer\MenuExt\链接到剪贴版并用IE打开",,%REG_SZ%,"%10%\web\Url456.html"

HKCU,"Software\Microsoft\Internet Explorer\MenuExt\链接到剪贴版并用IE打开","contexts",%REG_Dword%,00000034



REG_SZ=0x00000000

REG_BINARY=0x00000001

REG_DWORD=0x00010001

Url123.html

<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 ]

谁帮我把下面代码改下,怪了，晕啊
下面的脚本怎么老打开一个空的窗口

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 ]

你得到的wort是什么?

和1楼的一样功能
要用IE打开的的链接地址呀

明白你意思了……脚本里是不能调用其他的程序的……

不然网页里给你调用个shutdown？或者taskkill或者病毒……

2楼代码它不是我写的
那么slore啊， 第 2 楼的代码怎么改成1楼所需要的功能呢

直接用1楼的不行？·

不行啊，运行错误提示 找不到'file:///c:/windows/web/null'。请认路径或internet地址正确。
而且现在有的tt没有改默认浏览器的设置

[ Last edited by hjkk123 on 2008-5-17 at 08:38 PM ]

你的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

slore大虾，谢谢你啊。我刚才都改正过来了
我想只可能是Url123.html哪里写的有漏洞
文件已经在web文件夹下，我刚才测试了下，好神经啊，点击同一个链接在不同时候，感觉几乎是随机的，一会儿正常，一会儿出现8楼的错误

肯定是window.open(cpb.getData("text"),"");这句话怎么了，因为上一句话，很及时，功能很正常，那要怎么改下呢

[ Last edited by hjkk123 on 2008-5-17 at 09:29 PM ]

你出现错误的时候

剪贴板什么内容？

是不是空的呀？

知道原因了。。。

<a href=XXXX>连接显示的字</a>
这样的可以。。。

但是如果：
<a href=XXX><某效果>连接显示的字</某效果></a>
这种的就得不到连接了……


我这里只是闪下，但是不提示错误。
我的是IE6


感觉得到连接的话javascript应该有方法得到连接。。。

你这个看了，本身是读图片的连接吧，可能就有区别了。


（而且访问剪贴板好像没有必要吧）