タイトル : Re^4: ヤフー検索での文字化け 投稿日 : 2014/11/11(Tue) 19:15 投稿者 : 花ちゃん
キーワードの部分だけをエンコードするようにしないと。 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 |