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のダウンロードは こちら です。
video chat older gay says:
gay dad chat https://newgaychat.com/
2022/09/03, 07:41freee gay chat says:
frree gay and bi chat sites in seattle wa https://gaychatcams.net/
2022/09/03, 11:10gay chat ro says:
chat gay vegas https://gaychatspots.com/
2022/09/03, 19:08gay sex slave chat room says:
most popular video gay chat https://gay-live-chat.net/
2022/09/03, 19:43gay phone chat manhole says:
gay chat rooms phoenix https://chatcongays.com/
2022/09/04, 01:16chat gay las vegas says:
gay chat am https://gayphillychat.com/
2022/09/04, 07:17free sacramento gay chat says:
gay black chat – live gay black men https://gaychatnorules.com/
2022/09/04, 11:33gay massachusetts chat no sign up says:
gay suppport chat https://gaymusclechatrooms.com/
2022/09/04, 17:08gay couple chat says:
gay chat room finding sex https://free-gay-sex-chat.com/
2022/09/04, 23:13freer gay and bi text chat says:
321 gay chat https://gayinteracialchat.com/
2022/09/05, 02:24