過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      24
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼WayBackMachine履歴再現(vbs)  YAma(作成Chaos Sheeker氏) 02/8/2(金) 10:35

　───────────────────────────────────────
　■題名 ： WayBackMachine履歴再現(vbs)
　■名前 ： YAma(作成Chaos Sheeker氏)
　■日付 ： 02/8/2(金) 10:35
　-------------------------------------------------------------------------
   
'WayBackMachine履歴再現.vbsサンプル

'

Dim BugWeb

Dim View

Dim URL



　Set BugWeb = CreateObject("BugWeb.BugBrowserAPI")

　Set View = BugWeb.CreateDocumentViewObject(BugWeb.ActiveView)



　URL = BugWeb.EncodeToURLString(View.URL)

　BugWeb.NavigateNew("http://web.archive.org/web/*/" & URL)



　Set View = Nothing

　Set BugWeb = Nothing


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