Inetを使わずHTTPファイルを取得するには？ (ID:78659)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ちなみに、XMLHTTPで行う場合はこんな感じです。 以下のテキストを、「Sample.vbs」というファイル名で保存し、 それをダブルクリックしてみてください。この掲示板の内容が、 「C:\Sample.dat」として保存されます。 # とりあえず、VBの入っていない環境でも動かしやすいように、 # VBScriptで書いて見ましたが、VBに移植するのは容易いですよね。 '================= Option Explicit Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 Dim Xfer Dim Url Dim File Dim FileName Url = "http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200307/03070040.txt" FileName = "C:\Sample.dat" Set Xfer = Nothing Set File = CreateObject("ADODB.Stream") On Error Resume Next Set Xfer = CreateObject("Msxml2.XMLHTTP") If Xfer Is Nothing Then Set Xfer = CreateObject("Microsoft.XMLHTTP") End If Xfer.Open "GET", Url, False Xfer.Send File.Type = adTypeBinary File.Open File.Write Xfer.responseBody File.SaveToFile FileName, adSaveCreateOverWrite File.Close Set File = Nothing Set Xfer = Nothing MsgBox "保存完了です。", vbInformation