- 日時： 2015/02/05 11:22
- 名前： VBレスキュー(花ちゃん)
- ***********************************************************************************
* カテゴリー：[インターネット][][]
* キーワード：google 検索 ,yahoo 検索 ,URL エンコード , , ,
***********************************************************************************
タイトル ：ヤフー検索での文字化け
記 事 No ：16002
投 稿 日 ：2014/11/11(Tue) 13:43
元質問者 ：taro
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に値として、半角数字なら上手くいきますが、漢字やひらがなを値として入れると文字化けしてしまいます。
-----------------------------------------------------------------------------------
記事No ：16010
投稿日 ：2014/11/11(Tue) 19:15
回答者 ：花ちゃん
-----------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim oIE As Object
Dim oSC As Object
Dim myURL As String
Dim keyWord As String
Set oIE = CreateObject("InternetExplorer.Application")
Set oSC = CreateObject("ScriptControl")
oSC.Language = "Jscript"
keyWord = oSC.CodeObject.encodeURIComponent("VBレスキュー(花ちゃん)")
Set oSC = Nothing
' myURL = "https://www.google.co.jp/search?ie=UTF-8&q=" & keyWord
myURL = "http://search.yahoo.co.jp/search?p=" & keyWord & "&aq=-1&oq=&ei=UTF-8&fr=sfp_as&x=wrt"
oIE.navigate myURL
oIE.Visible = True
Set oIE = Nothing
End Sub
|
キーワードを URL エンコードして yahoo 及び google 検索(VB6.0)