過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      14
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼現在のページを起動時OpenURLから削除(vbs)  YAma 02/8/1(木) 10:11

　───────────────────────────────────────
　■題名 ： 現在のページを起動時OpenURLから削除(vbs)
　■名前 ： YAma
　■日付 ： 02/8/1(木) 10:11
　-------------------------------------------------------------------------
   
'現在のページを起動時OpenURLから削除

'　　　　　　 By YAma

　　Dim　　BugWeb

　　Dim　　OpenURLFileName

　　Dim　　fso

　　Dim　　mktsDat

　　Dim　　OpenURL

　　Dim　　NowURL

　　Dim　　Work

 

　　On Error Resume Next

 

　　Set BugWeb = CreateObject("BugWeb.BugBrowserAPI")



　　'現在のURLを取得

　　Set Work = BugWeb.CreateDocumentViewObject(BugWeb.ActiveView)

　　NowURL = Work.document.URL

　　Set Work = Nothing



　　'指定起動時OpenURLを開く

　　OpenURLFileName = BugWeb.ApplicationPath & "\BugWeb_OpenUrl.dat"

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Set mktsDat = fso.OpenTextFile(OpenURLFileName, 1, 0, 0)

　　Work = ""

　　Do While mktsDat.AtEndOfStream <> True

　　'ファイルの最終行（EOS）まで処理

　　　　OpenURL = CStr(mktsDat.ReadLine)

　　　　'1行読み出し

　　　　'読み込んだURLが現在のURLじゃなければ書き込む

　　　　If OpenURL <> NowURL Then

　　　　　　Work = Work & OpenURL & vbCRLF

　　　　End If

　　Loop

　　mktsDat.Close

　　Set mktsDat = Nothing



　　'起動時OpenURLに書き込み

　　Set mktsDat = fso.OpenTextFile(OpenURLFileName, 2, 1, 0)

　　Call mktsDat.Write(Work)

　　mktsDat.Close

　　Set mktsDat = Nothing

　　 '起動時OpenURLを反映

　　BugWeb.ReloadOpenCloseURL



　　'終了

　　Set fso = Nothing

　　Set BugWeb = Nothing


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