Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt][HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\全部文本保存到 &SourceCode Explorer]
@="F:\\My Documents\\My VB\\小知识纪录软件\\SCE Beta8\\IEAll.htm"
"contexts"=dword:00000001[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\选定文本保存到 S&ourceCode Explorer]
@="F:\\My Documents\\My VB\\小知识纪录软件\\SCE Beta8\\IESelect.htm"
"contexts"=dword:00000010
@="F:\\My Documents\\My VB\\小知识纪录软件\\SCE Beta8\\IEAll.htm"
"contexts"=dword:00000001[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\选定文本保存到 S&ourceCode Explorer]
@="F:\\My Documents\\My VB\\小知识纪录软件\\SCE Beta8\\IESelect.htm"
"contexts"=dword:00000010
set AEData=createobject("SCEID.clsHtmlData")
dim tmpbackif external.menuArguments.document.body.innertext<>"" and external.menuArguments.document.title<>"" then
tmpback= AEData.SmartDataAction (external.menuArguments.document.title,external.menuArguments.document.Url,external.menuArguments.document.body.innertext)'docobj.document.selection.createRange.text)
else
if external.menuArguments.document.body.innertext="" then
window.alert "网页内容为空,无法存储!"
else
window.alert "网页标题为空,无法存储!"
end ifend if
set AEData=nothing</script>
http://www.applevb.com/art/ie_menu.txt