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

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


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

WEBINAR:

On-Demand

Application Security Testing: An Integral Part of DevOps


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
×
We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.
Thanks for your registration, follow us on our social networks to keep up-to-date