過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ       4
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼現在のページを新しく開く(vbs)  YAma(作成者IGA氏) 02/8/1(木) 9:37

　───────────────────────────────────────
　■題名 ： 現在のページを新しく開く(vbs)
　■名前 ： YAma(作成者IGA氏)
　■日付 ： 02/8/1(木) 9:37
　-------------------------------------------------------------------------
   
'現在のページを新しく開く(&N)

'　　VBScript

'by IGA (2000/10/1)

'

　　Dim　　 BugWeb

　　Dim　　 DocObj



　　Set BugWeb = CreateObject("BugWeb.BugBrowserAPI")



　　Set DocObj = BugWeb.CreateDocumentViewObject(BugWeb.ActiveView)

　　BugWeb.NavigateNew(DocObj.URL)



　　Set DocObj = Nothing

　　Set BugWeb = Nothing


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