<HTML>
<BODY>
<SCRIPT language="javascript" defer=true>
<!--
var gsNO_WCRIPT_ERROR='The Windows Scripting Host, which is not installed on your System.\n'+
'You may download the Windows Scripting host from \n'+
'http://msdn.microsoft.com/scripting .'
var win = external.menuArguments;
var sFile=win.document.URL;
var srcEvent = external.menuArguments.event;
var EventElement = external.menuArguments.document.elementFromPoint ( srcEvent.clientX, srcEvent.clientY );
var srcImage = EventElement;
var srcAnchor = srcImage.parentElement;
try{
var WshShell = new ActiveXObject("WScript.Shell");
var sSpyPath=WshShell.regRead('HKCU\\Software\\GetPlayIcqFile\\InstallationDirectory');
sSpyPath=sSpyPath + 'getfile.exe';
var oExec = WshShell.run('"' + sSpyPath+'" "'+ srcAnchor.href+'"');
}catch(ex){
win.alert(gsNO_WCRIPT_ERROR)
}
</SCRIPT>
<script language="vbscript">
<!--
Sub OnContextMenu()
set srcEvent = external.menuArguments.event
set EventElement = external.menuArguments.document.elementFromPoint ( srcEvent.clientX, srcEvent.clientY )
if srcEvent.type = "MenuExtAnchor" then
set srcAnchor = EventElement
do until TypeName(srcAnchor)="HTMLAnchorElement"
set srcAnchor=srcAnchor.parentElement
Loop
Call AddLink(srcAnchor.href,srcAnchor.innerText)
elseif srcEvent.type="MenuExtImage" then
if TypeName(EventElement)="HTMLAreaElement" then
Call AddLink(EventElement.href,EventElement.Alt)
else
set srcImage = EventElement
set srcAnchor = srcImage.parentElement
do until TypeName(srcAnchor)="HTMLAnchorElement"
set srcAnchor=srcAnchor.parentElement
if TypeName(srcAnchor)="Nothing" then
call AddLink(srcImage.href,srcImage.Alt)
exit sub
end if
Loop
Call AddLink(srcAnchor.href,srcImage.Alt)
end if
elseif srcEvent.type="MenuExtUnknown" then
set srcAnchor = EventElement
do until TypeName(srcAnchor)="HTMLAnchorElement"
set srcAnchor=srcAnchor.parentElement
if TypeName(srcAnchor)="Nothing" then
Call AddLink(EventElement.href,EventElement.innerText)
exit sub
end if
Loop
Call AddLink(srcAnchor.href,srcAnchor.innerText)
elseif 1=1 then
MsgBox("Unknown Event Source """ + srcEvent.type + """" + vbCrLf + "Please send description of error to jetcar@163.net")
end if
end sub
</script>
</BODY>
</HTML>
downplayicqsource.rar （24个子文件） 
Project2.res 876B GetFile.res 876B Unit1.ddp 51B downfile.htm 2KB Unit2.dcu 4KB Unit1.dcu 9KB Unit2.~pas 1KB Unit1.~ddp 51B Unit2.pas 1KB GetFile.dpr 318B Unit1.dfm 3KB GetFile.dof 2KB GetFile.~dpr 271B getfile.ini 26B GetFile.cfg 386B Project2.cfg 386B Unit1.~dfm 3KB Unit2.~ddp 51B Project2.dof 1KB Unit1.~pas 5KB Unit2.ddp 51B Unit1.pas 5KB Unit2.dfm 32KB Unit2.~dfm 32KB资源评论
r____2018-03-18谢谢分享。。
普通网友
- 粉丝: 882
- 资源: 2万+
