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

投稿日： 2003/07/02(Wed) 20:28
投稿者： nobu
Ｅメール：
ＵＲＬ：
タイトル： cgi ページのダウンロード　出来ました

魔界の仮面弁士　さん、ありがとうございました。
以前教えていただいていたコードだと思いますが
色々と整理して試したところ下記で保存出来るようになりました。
（＊＊＊部分は伏せ字としてあります）

    Dim objXMLHTTP As Object
    
    Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
    
    objXMLHTTP.Open "POST", "http://www.****/***.cgi", False
    objXMLHTTP.Send "UNAME=" & MyCalls & "&UPASSWD=" & PassWords & "&Submit%21=SEND"

If objXMLHTTP.Status >= 400 Then
        'エラー
        MsgBox objXMLHTTP.StatusText, vbExclamation, "応答コード: " & CStr(objXMLHTTP.Status)
        Set objXMLHTTP = Nothing
        Exit Sub
End If
    
    With CreateObject("ADODB.Stream")
        .Open
        .Type = 1   '1=adTypeBinary
        .Write objXMLHTTP.responseBody
        .SaveToFile strPath & "LoginSrch.txt", 2  '2=adSaveCreateOverWrite
        .Close
    End With
    
    Set objXMLHTTP = Nothing

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

- Web Forum -