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のダウンロードは こちら です。
gửi hàng đi mỹ says:
… [Trackback]
[…] Find More on on that Topic: dragon-ark.com/archives/170 […]
2021/06/14, 15:36gửi hàng đi mỹ says:
… [Trackback]
[…] Information on that Topic: dragon-ark.com/archives/170 […]
2021/06/14, 16:59exchange online plan 1 says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/170 […]
2021/06/27, 11:07internet bağlantısı kopuyor says:
… [Trackback]
[…] Read More Information here on that Topic: dragon-ark.com/archives/170 […]
2021/06/29, 08:47fresh dumps with pin says:
… [Trackback]
[…] Find More to that Topic: dragon-ark.com/archives/170 […]
2021/07/02, 23:02HP Servis says:
… [Trackback]
[…] Read More on on that Topic: dragon-ark.com/archives/170 […]
2021/07/03, 10:46it danışmanlığı says:
… [Trackback]
[…] There you will find 84045 more Information on that Topic: dragon-ark.com/archives/170 […]
2021/07/03, 14:54sunucu teknik servis says:
… [Trackback]
[…] Read More here to that Topic: dragon-ark.com/archives/170 […]
2021/07/03, 18:13kurumsal sunucu yapılandırma says:
… [Trackback]
[…] Info on that Topic: dragon-ark.com/archives/170 […]
2021/07/24, 09:54dark0de market url says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/170 […]
2021/07/28, 07:57thi công villa tại hội an says:
… [Trackback]
[…] Find More on to that Topic: dragon-ark.com/archives/170 […]
2021/07/30, 13:34무료신천지게임 says:
… [Trackback]
[…] Find More Info here on that Topic: dragon-ark.com/archives/170 […]
2021/07/31, 00:44쿠쿠티비 says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/170 […]
2021/08/02, 23:07free web site creation says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/170 […]
2021/08/22, 01:17sig sauer p938 says:
… [Trackback]
[…] Here you will find 94177 additional Info on that Topic: dragon-ark.com/archives/170 […]
2021/09/01, 19:49kardinal stick says:
… [Trackback]
[…] Read More on on that Topic: dragon-ark.com/archives/170 […]
2021/10/20, 07:53relx says:
… [Trackback]
[…] Find More here on that Topic: dragon-ark.com/archives/170 […]
2021/10/20, 08:02Firearms For Sale Near Me says:
… [Trackback]
[…] Find More Information here to that Topic: dragon-ark.com/archives/170 […]
2021/10/26, 07:30clubechecs.com says:
… [Trackback]
[…] Read More here to that Topic: dragon-ark.com/archives/170 […]
2021/11/10, 14:57บาคาร่า1688 says:
… [Trackback]
[…] Read More on to that Topic: dragon-ark.com/archives/170 […]
2021/11/15, 09:53สล็อตเว็บตรง says:
… [Trackback]
[…] Information on that Topic: dragon-ark.com/archives/170 […]
2021/12/08, 09:32marriott says:
… [Trackback]
[…] Find More on to that Topic: dragon-ark.com/archives/170 […]
2021/12/21, 09:19et robust familieabonnement says:
… [Trackback]
[…] Here you can find 73492 more Info to that Topic: dragon-ark.com/archives/170 […]
2022/01/23, 04:12Retail Phygital Strategy says:
… [Trackback]
[…] Find More Info here to that Topic: dragon-ark.com/archives/170 […]
2022/01/26, 20:23Firearms For Sale says:
… [Trackback]
[…] Read More here to that Topic: dragon-ark.com/archives/170 […]
2022/04/04, 08:50beer777 says:
… [Trackback]
[…] Find More here on that Topic: dragon-ark.com/archives/170 […]
2022/05/01, 09:08page says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/170 […]
2022/05/05, 07:55cvv non info says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/170 […]
2022/06/08, 02:11prima diet reviews says:
… [Trackback]
[…] Read More to that Topic: dragon-ark.com/archives/170 […]
2022/06/18, 02:45Online Medications Store says:
… [Trackback]
[…] There you will find 53254 more Info to that Topic: dragon-ark.com/archives/170 […]
2022/06/25, 03:11ขายเฟสบุ๊คยิงแอด says:
… [Trackback]
[…] Find More on on that Topic: dragon-ark.com/archives/170 […]
2022/07/03, 08:58shop admin cc says:
… [Trackback]
[…] Read More Information here on that Topic: dragon-ark.com/archives/170 […]
2022/07/15, 16:43สล็อตวอเลท ไม่มีขั้นต่ำ says:
… [Trackback]
[…] Read More Info here to that Topic: dragon-ark.com/archives/170 […]
2022/08/05, 08:53แทงบอลโลก 2022 says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/170 […]
2022/08/09, 07:01colourcee.bet says:
… [Trackback]
[…] Read More Information here to that Topic: dragon-ark.com/archives/170 […]
2022/08/19, 09:12www.spellcasting.biz/prayer-to-provide/ says:
… [Trackback]
[…] Info on that Topic: dragon-ark.com/archives/170 […]
2022/08/21, 22:32สล็อตวอเลท ไม่มีขั้นต่ำ says:
… [Trackback]
[…] There you will find 49625 more Info on that Topic: dragon-ark.com/archives/170 […]
2022/08/25, 09:48Plant System says:
… [Trackback]
[…] Read More on on that Topic: dragon-ark.com/archives/170 […]
2022/09/09, 01:46magnum research pistol says:
… [Trackback]
[…] Read More to that Topic: dragon-ark.com/archives/170 […]
2022/09/21, 08:33Umzugskartons says:
… [Trackback]
[…] There you can find 78598 additional Information to that Topic: dragon-ark.com/archives/170 […]
2022/09/24, 04:25sbo says:
… [Trackback]
[…] Read More here on that Topic: dragon-ark.com/archives/170 […]
2022/10/01, 15:14สินเชื่อโฉนดที่ดิน says:
… [Trackback]
[…] Find More on on that Topic: dragon-ark.com/archives/170 […]
2022/10/03, 03:105 Tips about Buy shard online in Australia You Can Use Today says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/170 […]
2022/10/08, 00:24