«
»

Winhttpでhttpリクエストを行い、Cドライブ直下に”test.gif”というファイルにリクエスト結果を保存する例です。


Option Explicit

  Const OpenFileForReading   = 1
  Const OpenFileForWriting   = 2
  Const OpenFileForAppending = 8

  Const adTypeBinary = 1 'Binary
  Const adTypeText   = 2 'Text

  Const adSaveCreateNotExist  = 1
  Const adSaveCreateOverWrite = 2
  HTTPDownload "http://dragon-ark.com/wp-content/uploads/2008/12/20081231_1-300x166.gif" , "c:\test.gif"

 Sub HTTPDownload(ByVal STR_URL, ByVal STR_Path )
    Dim OBJ_ADO
    Dim OBJ_HTTP
    Dim STR_Temp

    Set OBJ_ADO  = CreateObject("ADODB.Stream")

    OBJ_ADO.Type = adTypeBinary
    OBJ_ADO.Open
    OBJ_ADO.Position = 0

    Set OBJ_HTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

    OBJ_HTTP.Open "GET", STR_URL, False
    OBJ_HTTP.Send

    STR_Temp = OBJ_HTTP.ResponseBody
    OBJ_ADO.Write STR_Temp
    OBJ_ADO.SaveToFile STR_Path, adSaveCreateNotExist
    OBJ_ADO.Close
End Sub

Scriptのダウンロードは こちら です。

This entry was posted by admin on 2009/01/03 at 23:47 under Windows, WSH. Tagged , , , . You can leave a response, or trackback from your own site. Follow any responses to this entry through the RSS 2.0 feed.

9 Comments

  1. gửi hàng đi mỹ says:

    … [Trackback]

    […] Find More on on that Topic: dragon-ark.com/archives/170 […]

    2021/06/14, 15:36

  2. gửi hàng đi mỹ says:

    … [Trackback]

    […] Information on that Topic: dragon-ark.com/archives/170 […]

    2021/06/14, 16:59

  3. exchange online plan 1 says:

    … [Trackback]

    […] Information to that Topic: dragon-ark.com/archives/170 […]

    2021/06/27, 11:07

  4. internet bağlantısı kopuyor says:

    … [Trackback]

    […] Read More Information here on that Topic: dragon-ark.com/archives/170 […]

    2021/06/29, 08:47

  5. fresh dumps with pin says:

    … [Trackback]

    […] Find More to that Topic: dragon-ark.com/archives/170 […]

    2021/07/02, 23:02

  6. HP Servis says:

    … [Trackback]

    […] Read More on on that Topic: dragon-ark.com/archives/170 […]

    2021/07/03, 10:46

  7. it danışmanlığı says:

    … [Trackback]

    […] There you will find 84045 more Information on that Topic: dragon-ark.com/archives/170 […]

    2021/07/03, 14:54

  8. sunucu teknik servis says:

    … [Trackback]

    […] Read More here to that Topic: dragon-ark.com/archives/170 […]

    2021/07/03, 18:13

  9. kurumsal sunucu yapılandırma says:

    … [Trackback]

    […] Info on that Topic: dragon-ark.com/archives/170 […]

    2021/07/24, 09:54

Leave a Reply