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:50匿名 says:
… [Trackback]
[…] Find More on on that Topic: dragon-ark.com/archives/170 […]
2022/04/12, 12:04beer777 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:55