VB6 - URLの内容を文字列に保存してファイル（例：.txt）に保存する方法

Question

Option Explicit 

Public Sub save_url_contents_as_text() 
    Dim MyUrl As String 
    Dim MyFile As Object 'store the text file here 
    Dim tempstring As String 

    MyUrl = "www.AnythingIWantToPutHere" 

    'I want your help here. Something Like a function 
    tempstring = geturltext(MyUrl) 

    'I want to save the URL text contents here 
    MyFile = tempstring 

End Sub 

Answer 1

から直接取得しましたhereから直接取得しました。必要に応じてURLとファイル名を変更します。この呼び出しは、URLの内容をディスクファイルに書き込みます。

この例では、ファイルへのURLからファイルをダウンロードしURLDownloadToFile API functionを使用する方法を示しますVisual Basicの6.

Private Declare Function URLDownloadToFile Lib "urlmon" _ 
Alias "URLDownloadToFileA" (ByVal pCaller As Long, _ 
ByVal szURL As String, ByVal szFileName As String, _ 
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 

Private Sub Form_Load() 
    ' Download the file. 
    URLDownloadToFile 0, _ 
    "http://www.vb-helper.com/vbhelper_425_64.gif", _ 
    "C:\vbhelper_425_64.gif", 0, 0 

End Sub