Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB5,VB6
Expertise: beginner
Apr 15, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Download and save an HTML page with the Internet Transfer control

You can easily download an HTML page by using the Internet Transfer Control (INet). Here's a reusable routine that uses this control to download the HTML page at the specified URL and optionally save it to a local file. In either case the routine returns the contents of the page as a string:

' Return the contents of an HTML page at a given URL
' and optionally save it to a file
' uses an Internet Transfer Control,
' that must be passed in the first argument

Function GetHTMLPage(INet As INet, ByVal URL As String, _
    Optional FileName As String) As String
    Dim fnum As Integer
    ' cancel any pending operation
    ' set protocol to HTTP
    INet.Protocol = icHTTP
    ' get the page
    GetHTMLPage = INet.OpenURL(URL)
    ' save to a file, if requested
    If FileName <> "" Then
        fnum = FreeFile
        Open FileName For Output As #fnum
        Print #fnum, GetHTMLPage;
        Close #fnum
    End If
End Function

Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date