以我的為例...
在這個機碼之下
語法:
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\全部使用 FlashGet 下載
預設值 H:\Program Files\FlashGet\jc_all.htm
name: contexts type: DWORD valure: f3
最後一個關鍵 jc_all.htm
語法:
<script language="VBScript">
'Great thanks to Vladimir Romanov(Author of ReGet Pro)
On Error Resume Next
set JetCarCatch=CreateObject("JetCar.Netscape")
if err<>0 then
MsgBox("FlashGet not properly installed!"+ vbCrLf+"Please Install FlashGet again")
else
set links = external.menuArguments.document.links
ReDim params(links.length*2)
params(0)=external.menuArguments.document.Url
for i = 0 to links.length-1
params(i*2+1)=links(i).href
params(i*2+2)=links(i).innerText
next
JetCarCatch.AddUrlList params
end if
</script>
註:其它的 local_machine / ... 也看看吧
書籤