2ちゃんねる用ブラウザ「ギコナビ」 Part60

■Google_for_gikoNavi.html
<!-- 検索＠Google -->

<SCRIPT LANGUAGE="VBScript">
Call Main

Private Sub Main()
'選択文字列をGoogleで検索
Dim SearchText
Dim emd
Set emd = external.menuArguments.document

'選択部分の文字列を取得
SearchText = emd.selection.createRange().Text

'半角/全角スペースを置換
SearchText = Replace(SearchText, " ", "+")
SearchText = Replace(SearchText, "　", "+")

'検索開始
If Len(SearchText) Then
Dim wsSh
Set wsSh = CreateObject("WScript.Shell")
Call wsSh.Run("http://www.google.co.jp/search?q=" & SearchText)
End If
Set emd = Nothing
End Sub
</SCRIPT>

■Google_for_gikoNavi.reg
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\Googleで検索]
"contexts"=dword:00000010
@="C:\\gikoNavi\\Google_for_gikoNavi.html"



■C:\gikoNavi
┣Google_for_gikoNavi.html
┗Google_for_gikoNavi.reg
こういう配置の状態で、Google_for_gikoNavi.regを登録して、ギコナビ再起動。
再起動後に、文字列を選択して右クリックをすると Googleで検索 という項目が出る。
クリックすると既定のブラウザで開く。