ツールバー..

メッセージ

メルトダウン

ツールバーの、EditBoxに入力した文字をGoogle(Web)で検索する機能
をつけたいのですが、どうすればよろしいのですか。

まだ、ID登録もしていないユーザーでして、初心者です。

ソースと解説を書き込んでいただけませんか。

そうしていただければ後は自分で研究しますから。

お願いします。

EditBoxから文字列を得る方法はたとえばこんな感じです。
http://www.activebasic.com/forum/viewtopic.php?p=1861

Google検索は「http://www.google.co.jp/search?q=検索語」というようなURLで行えます。
Execの引数にURLを指定すれば通常使うブラウザで表示させることができます。

ただし、検索語には日本語をそのまま使うとブラウザやその設定によってどのような文字コードが使われるかわからず、検索語の文字化けの元になります。
（自分専用ツールなど、環境がはっきりしているのであれば簡単に対処できますが）

そこで自らの手で特定の文字コードへ変換しURLエンコードを行った上で、検索URLに文字コードを指定するのが確実だと思われます。
URLエンコードは%41%42のような文字列で、日本語や各種記号など本来URLで使えない文字をURLに埋め込むために使われます。

URLエンコードは例があります。（ここではUTF-8を使っています）
http://www.activebasic.com/forum/viewtopic.php?p=873

結局これでどうでしょうか。

コード: 全て選択

Dim str As String
GetGetDlgItemTextStr(hMainWnd, EditBox1, str)
str = ToUTF8(str)
Exec "http://www.google.co.jp/search?ie=UTF-8&q=" + URLEncode(StrPtr(str))