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

投稿日： 2003/05/14(Wed) 11:53
投稿者： 魔界の仮面弁士
Ｅメール：
ＵＲＬ：
タイトル： Re^3: HTMLファイルをダウンロード

> 下記の検索フォームにて「Search string 」に「 S92UN 」 と入れて
> 他はデフォルトのまま「SEARCH」を押して見て下さい。　
> http://oh2w.kolumbus.com/dxs/qin.html

であれば、XMLHTTP(ServerXMLHTTP)オブジェクトを使って、例えばこんな感じで。

    Dim objXMLHTTP As Object
    
    Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
'    Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP")
'    Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP.2.6")
'    Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP.3.0")
'    Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP.4.0")
    
    objXMLHTTP.Open "POST", "http://oh2w.kolumbus.com/cgi-bin/qin.sh", False
    objXMLHTTP.Send "dxcall=S92UN&Search+Target=dxcolumn&year=2003&band=ALL&mode=ALL&spots=25&Submit%21=SEARCH"

    If objXMLHTTP.Status >= 400 Then
        'エラー
        MsgBox objXMLHTTP.StatusText, vbExclamation, "応答コード: " & CStr(objXMLHTTP.Status)
        Set objXMLHTTP = Nothing
        Exit Sub
    End If

'    Debug.Print objXMLHTTP.responseText

    '受信内容をStreamオブジェクト経由でファイル出力
    With CreateObject("ADODB.Stream")
        .Open
        .Type = 1   '1=adTypeBinary
        .Write objXMLHTTP.responseBody
        .SaveToFile "C:\qin.sh", 2  '2=adSaveCreateOverWrite
        .Close
    End With

    MsgBox "保存完了", vbInformation, "C:\qin.sh"
    Set objXMLHTTP = Nothing

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

- Web Forum -