過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      20
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼IEで開く(vbs)  YAma(作成さるまた氏) 02/8/2(金) 10:03

　───────────────────────────────────────
　■題名 ： IEで開く(vbs)
　■名前 ： YAma(作成さるまた氏)
　■日付 ： 02/8/2(金) 10:03
　-------------------------------------------------------------------------
   
'IEで開く

Dim　　　　bugWeb

Dim　　　　ieObj



　Set bugWeb = CreateObject("BugWeb.BugBrowserAPI")

　Set ieObj　= CreateObject("InternetExplorer.Application")



　if bugWeb is Nothing or ieObj is Nothing then

　　closeObj

　　WScript.Quit

　end if



　ieObj.Navigate(BugWeb.CreateDocumentViewObject(BugWeb.ActiveView).URL)

　ieObj.Visible = true

　closeObj

　WScript.Quit



Sub closeObj()

　Set ieObj　= Nothing

　Set bugWeb = Nothing

End Sub


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