【２ちゃんねる用ブラウザ】ギコナビでスレッド中の単語を選択してGoogleで検索するには【その２】

Posted by kumacchi on 2010年9月18日 , No comment

【２ちゃんねる用ブラウザ】ギコナビでスレッド中の単語を選択してGoogleで検索するには – KUMA TYPE

上の記事で、ギコナビから選択文字をGoogleで検索することに成功しました。

が、しかし、通常はGoogle Chromeを使っているので、いちいちIEが起動するのが鬱陶しいというか、起動時間がもったいないというか、実際IEが起動して検索結果が表示されるまでちょっと時間がかかるので「どうせなら規定のブラウザになっているChromeで検索してくれればいいのに、既に起動してるから検索結果もすぐ表示されるだろうし」というわけでやってみました。

なんとなくVBScriptを使えばできそうな気はしていましたが、VBScriptは全くわからないので、JavaScriptでお茶を濁していたのですがまあやれるだけやってみようということでやってみました。

◇参考にさせて頂いたサイト

・サクラエディタ/マクロ/Googleで検索 – 選択範囲をGoogleで検索

・Webブラウザで選択した範囲のみプレビューして印刷してみる（bookmarklet）: 無題ドキュメンツ３

詳しいやり方は前に書いた記事を見ていただくとして、ファイル名をgoogle2.htmlとして下記のスクリプトを作成しました。

google2.html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<SCRIPT language="VBScript">
    ‘選択文字列をGoogleで検索
    Dim strSelHtmlText
    Dim exDoc
    Set exDoc = external.menuArguments.document

‘選択部分の HTML を取得
strSelHtmlText = exDoc.selection.createRange().htmlText

    ‘選択部分があればgoogleで検索
    If Len(strSelHtmlText) Then
        Dim sh
        Set sh = CreateObject("WScript.Shell")
        Call sh.Run("http://www.google.co.jp/search?hl=ja&lr=&num=50&q=" & strSelHtmlText)
    End If
    Set exDoc = Nothing
</SCRIPT>

そして、例によってIE MenuExtで「ググる２」として登録

20100277