|
|
サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2015/02/08 14:23
- 名前： VBレスキュー(花ちゃん)
- ***********************************************************************************
* カテゴリー：[インターネット][][]
* キーワード：google 検索 ,yahoo 検索 ,URL エンコード , , ,
***********************************************************************************
-----------------------------------------------------------------------------------
投稿日 ：2015/02/08 14:20
投稿者 ：花ちゃん
-----------------------------------------------------------------------------------
プロジェクト → 参照の追加(VB2012〜) → アセンブリ → フレームワーク → System.Web を参照設定しておいて下さい。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim keyWord As String = Web.HttpUtility.UrlEncode("VBレスキュー(花ちゃん)", System.Text.Encoding.GetEncoding("utf-8"))
'お好きな方の検索エンジンで検索して下さい。
Dim myURL As String = "https://www.google.co.jp/search?ie=UTF-8&q=" & keyWord
System.Diagnostics.Process.Start(myURL)
myURL = "http://search.yahoo.co.jp/search?p=" & keyWord & "&aq=-1&oq=&ei=UTF-8&fr=sfp_as&x=wrt"
System.Diagnostics.Process.Start(myURL)
End Sub
 |
|
