VB6 WinXP
Form1.WebBrowser1.Navigate2 " http://search.yahoo.co.jp/search?p=" & Textbox1.text & "&aq=-1&oq=&ei=UTF-8&fr=sfp_as&x=wrt"
上の様にボタンを押した時に、ヤフーで検索していますが、 Textbox1.textに値として、半角数字なら上手くいきますが、漢字やひらがなを値として入れると文字化けしてしまいます。解決法はあるでしょうか？

> 半角数字なら上手くいきますが、漢字やひらがなを値として入れると文字化けしてしまいます。

『パーセントエンコーディング』について調べてみて下さい。


（要は、漢字等を直接 URL に含めるのではなく、
　半角英数字に置き換える必要があるということです）

> > 半角数字なら上手くいきますが、漢字やひらがなを値として入れると文字化けしてしまいます。
>
> 『パーセントエンコーディング』について調べてみて下さい。
>
>
> （要は、漢字等を直接 URL に含めるのではなく、
> 　半角英数字に置き換える必要があるということです）
御解答有難う御座います。
調べて見ます。

> > > 半角数字なら上手くいきますが、漢字やひらがなを値として入れると文字化けしてしまいます。
> >
> > 『パーセントエンコーディング』について調べてみて下さい。
> >
> >
> > （要は、漢字等を直接 URL に含めるのではなく、
> > 　半角英数字に置き換える必要があるということです）
> 御解答有難う御座います。
> 調べて見ます。

少し調べて見た所、ジャバスクリプトにエンコードする関数があるので、それを呼び出して、使うとありまして少し真似てみたのですが、

Dim strSource as String
Dim objSC As Object

strSource=" http://search.yahoo.co.jp/search?p=" & Textbox1.text & "&aq=-1&oq=&ei=UTF-8&fr=sfp_as&x=wrt"

Set objSC = CreateObject("ScriptControl")
objSC.Language = "Jscript"
Form1.WebBrowser1.Navigate2 = objSC.CodeObject.encodeURIComponent(strSource)

Set objSC = Nothing

上記の様にしたのですが、エンコードされたのですが、:や/もエンコードされているみたいで、なにやら不完全な状態見たいです。初心者で知識不足ですがよろしくお願いします。

キーワードの部分だけをエンコードするようにしないと。

Private Sub Command1_Click()
    Dim strSource As String
    Dim objSC As Object
    Dim keyWord As String
    Set objSC = CreateObject("ScriptControl")
    objSC.Language = "Jscript"
    keyWord = objSC.CodeObject.encodeURIComponent(Text1.Text)
    Set objSC = Nothing
    strSource = "http://search.yahoo.co.jp/search?p=" & keyWord & "&aq=-1&oq=&ei=UTF-8&fr=sfp_as&x=wrt"
    Form1.WebBrowser1.Navigate2 strSource
End Sub

> キーワードの部分だけをエンコードするようにしないと。
そうですね。

解決出来ました有難う御座いました。