RealICQClient/COM/IEContext/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

Sub OnContextMenu()
	set srcEvent = external.menuArguments.event
	set EventElement = external.menuArguments.document.elementFromPoint ( srcEvent.clientX, srcEvent.clientY )	
	AddAsFace(EventElement.src)
end sub


call OnContextMenu()

</script>