CODE: [Copy to clipboard]
[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.htmlCODE: [Copy to clipboard]
<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>
[CODE: [Copy to clipboard]
<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>
[