VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/02/05(Wed) 10:54
投稿者： 花ちゃん
Ｅメール：
ＵＲＬ：
タイトル： Re^3: HTMLの取得

魔界の仮面弁士 さんの方法の他下記の方法でも検索表示できます。
こんなバカな事試すのは私位しかいないのかあまり知られてはいないようですが

Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
    Dim Ret     As Long
    Dim KeyWord As String
    Dim Url     As String
    KeyWord = "VBレスキュー(花ちゃん)"
    Url = "http://www.google.co.jp/search?q=" & KeyWord & "&type=0"
    Ret = ShellExecute(Me.hwnd, "open", Url, vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub

'検索の他こんな事もできます。
Private Sub Command2_Click()
    Dim Ret     As Long
    Dim KeyWord As String
    Dim Url     As String
    KeyWord = "東京都港区赤坂１ー４ー１"
    Url = "http://www.nifty.com/cgi-bin/mapsearch.cgi?keyword=" & KeyWord & "&type=0"
    Ret = ShellExecute(Me.hwnd, "open", Url, vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -