(一) 計算圖標,目的:顯示當前所有ie右鍵擴展菜單項y

document.body.clientwidth-333)this.width=document.body.clientwidth-333" border=1>x8>o1uu
ie_rightkey:=baregkeylist("software//microsoft//internet explorer//menuext", "hkey_current_user")
(二) 顯示圖標
變量{ie_rightkey}(顯示全部ie右鍵擴展菜單項,滾動文本設置) 和{select_word}(顯示選中的ie右鍵擴展菜單項)
(三) 交互圖標
交互圖標右側有下面的熱區交互和按鈕交互s-j &k
(四) 熱區設置:限制lastlineclicked范圍(設永久交互,熱區范圍是{ie_rightkey}顯示區)

document.body.clientwidth-333)this.width=document.body.clientwidth-333" border=1>^
select_id:=lastlineclicked---選中的行.
select_word:=getline(ie_rightkey,select_id)--顯示選中的行
(五) 刪除選中項按鈕

document.body.clientwidth-333)this.width=document.body.clientwidth-333" border=1>[email protected]/'/b
計算圖標內容/
if select_word="" thenp
almsgbox(windowhandle,"請選擇相應的內容!","虹軟工作室提醒",0,"error")@
else
badeletereg( "software//microsoft//internet explorer//menuext//"^select_word, "contexts","hkey_current_user")
badeletereg( "software//microsoft//internet explorer//menuext//"^select_word, "","hkey_current_user")
-------刷新顯示
ie_rightkey:=baregkeylist("software//microsoft//internet explorer//menuext", "hkey_current_user")
select_word:=""---選中顯示置空
end if
---------"

二 、如何清理ie工具欄的所有擴展項？

------------win2000調試環境-------------
------獲取所有項
ie_toolkey_dd:=baregkeylist("software//microsoft//internet explorer//extensions", "hkey_local_machine")
------某一項
repeat with toolkey:=1 to linecount(ie_toolkey_dd)
------某一項的所有值列表
regvl_count:=baregvaluelist( "software//microsoft//internet explorer//extensions//"^getline(ie_toolkey_dd,toolkey), "hkey_local_machine")
------某一項的值
repeat with vl:=1 to linecount(regvl_count)bvfk+l
badeletereg( "software//microsoft//internet explorer//extensions//"^getline(ie_toolkey_dd,toolkey),getline(regvl_count,vl),"hkey_local_machine")
end repeat
end repeat

-------------用到的函數budapi.u32和almessagebox.u32------------------