Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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
    INet.Cancel
    ' 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.

 

 

Sitemap