Atlanta Custom Software Development 

 
   Search        Code/Page
 

User Login
Email

Password

 

Forgot the Password?
Services
» Web Development
» Maintenance
» Data Integration/BI
» Information Management
Programming
  Database
Automation
OS/Networking
Graphics
Links
Tools
» Regular Expr Tester
» Free Tools

Download and save an HTML page with the Internet Transfer control

Total Hit ( 2900)

Rate this article:     Poor     Excellent 

 Submit Your Question/Comment about this article

Rating


 


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:

Click here to copy the following block
' 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


Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)

Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )


Home   |  Comment   |  Contact Us   |  Privacy Policy   |  Terms & Conditions   |  BlogsZappySys

© 2008 BinaryWorld LLC. All rights reserved.