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


Option Explicit

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

  HTTPDownload "http://google.co.jp/index.html" , "c:\text.txt"
Sub HTTPDownload(ByVal STR_URL, ByVal STR_Path )
    Dim OBJ_File
    Dim OBJ_FSO
    Dim OBJ_HTTP

    Set OBJ_FSO  = CreateObject("Scripting.FileSystemObject")
    Set OBJ_File = OBJ_FSO.OpenTextFile(STR_Path, OpenFileForWriting, True)
    Set OBJ_HTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

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

    OBJ_File.Write  OBJ_HTTP.ResponseText
    OBJ_File.Close( )
End Sub

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

48 Comments

  1. daftar slot says:

    … [Trackback]

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

  2. arvest central mortgage co says:

    … [Trackback]

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

  3. microsoft exchange hosting fiyat says:

    … [Trackback]

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

  4. internet teknik servis says:

    … [Trackback]

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

  5. bell & ross replica says:

    … [Trackback]

    […] Here you can find 18137 more Info to that Topic: dragon-ark.com/archives/164 […]

  6. exchange online plan 1 says:

    … [Trackback]

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

  7. HP Server Teknik Destek says:

    … [Trackback]

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

  8. W88 says:

    … [Trackback]

    […] There you will find 98635 more Info to that Topic: dragon-ark.com/archives/164 […]

  9. exchange mail says:

    … [Trackback]

    […] Here you will find 13848 more Info to that Topic: dragon-ark.com/archives/164 […]

  10. it danışmanlık ücretleri says:

    … [Trackback]

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

  11. hack instagram account says:

    … [Trackback]

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

  12. lenovo servis says:

    … [Trackback]

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

  13. darkode market url says:

    … [Trackback]

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

  14. site to buy dumps with pin says:

    … [Trackback]

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

  15. greatdumps cc says:

    … [Trackback]

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

  16. 1:Buy DMT Online 2:Buy DMT 3:Buy DMT bulk order 4:where to buy DMT 5:DMT crystals for sale says:

    … [Trackback]

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

  17. 1p lsd says:

    … [Trackback]

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

  18. TKO Extracts is a recreational cannabis & Medical Marijuana Online Dispensary says:

    … [Trackback]

    […] There you can find 5061 additional Information to that Topic: dragon-ark.com/archives/164 […]

  19. 5 Simple Steps To Creating Growth With A Gaming Website says:

    … [Trackback]

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

  20. Dark0de Market says:

    … [Trackback]

    […] Here you will find 16837 additional Info to that Topic: dragon-ark.com/archives/164 […]

  21. kardinal stick says:

    … [Trackback]

    […] There you will find 19463 additional Information on that Topic: dragon-ark.com/archives/164 […]

  22. Ford Transit Custom Sport Double Cab says:

    … [Trackback]

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

  23. houses for sale in El Mirage says:

    … [Trackback]

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

  24. http://144.91.94.11/elangqq/ says:

    … [Trackback]

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

  25. Car dealership security says:

    … [Trackback]

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

  26. สล็อตวอเลท ไม่มีขั้นต่ำ says:

    … [Trackback]

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

  27. 性別適合手術 says:

    … [Trackback]

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

  28. see it here says:

    … [Trackback]

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

  29. best cvv shop 2021 says:

    … [Trackback]

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

  30. หมวกไฟ says:

    … [Trackback]

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

  31. What if I need my lingual braces adjusted? says:

    … [Trackback]

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

  32. 【WSH】Winhttpでhttpリクエストを行う(Text) | Dragon-Ark says:

    Private Proxy Search Engines

    Winhttpでhttpリクエストを行い、Cドライブ直下に

  33. slot999 says:

    … [Trackback]

    […] Here you will find 95584 additional Info on that Topic: dragon-ark.com/archives/164 […]

  34. 【WSH】Winhttpでhttpリクエストを行う(Text) | Dragon-Ark says:

    Ronald Lyday

    Winhttpでhttpリクエストを行い、Cドライブ直下に

  35. 【WSH】Winhttpでhttpリクエストを行う(Text) | Dragon-Ark says:

    Roderick Stayrook

    Winhttpでhttpリクエストを行い、Cドライブ直下に

  36. funkymedia says:

    … [Trackback]

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

  37. 늑대닷컴 says:

    … [Trackback]

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

  38. 【WSH】Winhttpでhttpリクエストを行う(Text) | Dragon-Ark says:

    Nery Newby

    Winhttpでhttpリクエストを行い、Cドライブ直下に

  39. 【WSH】Winhttpでhttpリクエストを行う(Text) | Dragon-Ark says:

    Elias Mcclane

    Winhttpでhttpリクエストを行い、Cドライブ直下に

  40. 【WSH】Winhttpでhttpリクエストを行う(Text) | Dragon-Ark says:

    Casey Loethen

    Winhttpでhttpリクエストを行い、Cドライブ直下に

  41. 【WSH】Winhttpでhttpリクエストを行う(Text) | Dragon-Ark says:

    Youtube Proxy

    Winhttpでhttpリクエストを行い、Cドライブ直下に

  42. 【WSH】Winhttpでhttpリクエストを行う(Text) | Dragon-Ark says:

    Buy Proxies

    Winhttpでhttpリクエストを行い、Cドライブ直下に

  43. 【WSH】Winhttpでhttpリクエストを行う(Text) | Dragon-Ark says:

    Mohammed Worek

    Winhttpでhttpリクエストを行い、Cドライブ直下に

  44. 【WSH】Winhttpでhttpリクエストを行う(Text) | Dragon-Ark says:

    Teodora Tiangco

    Winhttpでhttpリクエストを行い、Cドライブ直下に

  45. แทงไฮโล says:

    … [Trackback]

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

  46. backend dev portfolio says:

    … [Trackback]

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

  47. 【WSH】Winhttpでhttpリクエストを行う(Text) | Dragon-Ark says:

    Amazing Proxies

    Winhttpでhttpリクエストを行い、Cドライブ直下に

  48. 【WSH】Winhttpでhttpリクエストを行う(Text) | Dragon-Ark says:

    Fastest Proxy

    Winhttpでhttpリクエストを行い、Cドライブ直下に

Leave a Reply