RealICQClient/ZWT/Static/AddFace.htm

<script language="VBScript">
Sub AddAsFace(FileName) 
	On Error Resume Next
	set IAddFace = CreateObject("IEContext.IEContextMenu")
	if err>0 then
		Alert("未检测到办公助手插件！")
	else
		call IAddFace.AddFace(FileName)
        end if
	set IAddFace=nothing
end sub
</script>

<script language="javascript">
function OnContextMenu()
{
	var srcEvent = external.menuArguments.event;
	var EventElement;
	
	if(typeof(srcEvent.clientX) == "undefined")
	{
		EventElement = external.menuArguments.document.elementFromPoint ( srcEvent.pointerX, srcEvent.pointerY );
	}
	else
	{
		EventElement = external.menuArguments.document.elementFromPoint ( srcEvent.clientX, srcEvent.clientY );
	}
		
	if(EventElement != null && EventElement.tagName == "IMG")
	{
		AddAsFace(EventElement.href);
	     	return;
	}
	else
	{
		alert("无法处理的超链接形式");
	}
}
OnContextMenu();
</script>