過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      17
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼'Googleサイト検索(vbs)  YAma(作成Y..氏) 02/8/2(金) 9:46

　───────────────────────────────────────
　■題名 ： 'Googleサイト検索(vbs)
　■名前 ： YAma(作成Y..氏)
　■日付 ： 02/8/2(金) 9:46
　-------------------------------------------------------------------------
   
'Googleサイト検索

'ツールバーにスクリプト実行がついた記念

Dim BugWeb

Dim View

Dim URL

Dim KeyWord



　Set BugWeb = CreateObject("BugWeb.BugBrowserAPI")

　Set View = BugWeb.CreateDocumentViewObject(BugWeb.ActiveView)

　If(BugWeb.Version < 81) Then

　　BugWeb.ShowMessage("BugBrowser v0.81以上で動作します。")

　Else

　　URL = BugWeb.EncodeToURLString(View.URL)

　　URL = mid(URL,instr(URL,"://")+3)

　　if instr(URL,"/")<>0 then

　　　　URL = left(URL,instr(URL,"/")-1)

　　end if

　　KeyWord = BugWeb.EncodeToURLString(BugWeb.SearchKeywordString)

　　BugWeb.NavigateNew("http://www.google.co.jp/search?sourceid=navclient&q=site:" & URL & "+" & KeyWord)

　End If



　Set View = Nothing

　Set BugWeb = Nothing


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