元に戻る スレッド一覧へ 記事閲覧

このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。) キーワードを URL エンコードして yahoo 及び google 検索(VB6.0)　[No.342の個別表示] 　　　　　サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ 日時： 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

Page: 1 |

投稿フォーム　　　　　　　　　　　　　　　スレッド一覧へ 題　　名 スレッドをトップへソート 名　　前 パスワード （記事メンテ時に使用） 投稿キー （投稿時 を入力してください） コメント *********************************************************************************** * カテゴリー：[][][] * キーワード： , , , , , ***********************************************************************************    クッキー保存

スレッド一覧へ