過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ       3
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼現在のページのリンクを全て開く(vbs)  YAma 02/8/1(木) 9:36

　───────────────────────────────────────
　■題名 ： 現在のページのリンクを全て開く(vbs)
　■名前 ： YAma
　■日付 ： 02/8/1(木) 9:36
　-------------------------------------------------------------------------
   
'現在のページのリンクを全て開く

'　　VBScript

'　　　　　　　　　　By YAma

Dim　　BugWeb

Dim　　Viewobj

Dim　　Linkobj

Dim　　strHREF



　　Set BugWeb = CreateObject("BugWeb.BugBrowserAPI")

　　Set Viewobj = BugWeb.CreateDocumentViewObject(BugWeb.ActiveView)



　　For Each Linkobj In Viewobj.Document.links

　　　　strHREF = Linkobj.href

　　　　'ここにフィルタをかけないと大変なことになります

　　　　'現状はHPに書いてあるAタグが全て開かれますから

　　　　'mailtoとかzip等のアーカイブファイルまで開こうと

　　　　'してしまいます。

　　　　'本格的なフィルタをかけると大変なので今回は

　　　　'作ってません

　　　　Call BugWeb.NavigateNew(strHREF)

　　Next



　　Set Viewobj = Nothing

　　Set BugWeb = Nothing


				  
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ       3