dcsimg
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

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: VB7
Expertise: Intermediate
Jul 17, 2002

WEBINAR:

On-Demand

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


GetHtmlPageSource - Download the HTML at a given URL

' Download the HTML source code at the specified URL
' You can optionally specify the username/password credentials,
'  in case the page uses Basic Authentication
' Returns a null string if any error occurs

Function GetHtmlPageSource(ByVal url As String, Optional ByVal username As _
    String = Nothing, Optional ByVal password As String = Nothing) As String
    Dim st As System.IO.Stream
    Dim sr As System.IO.StreamReader

    Try
        ' make a Web request
        Dim req As System.Net.WebRequest = System.Net.WebRequest.Create(url)
        ' if the username/password are specified, use these credentials
        If Not username Is Nothing AndAlso Not password Is Nothing Then
            req.Credentials = New System.Net.NetworkCredential(username, _
                password)
        End If
        ' get the response and read from the result stream
        Dim resp As System.Net.WebResponse = req.GetResponse
        st = resp.GetResponseStream
        sr = New System.IO.StreamReader(st)
        ' read all the text in it
        Return sr.ReadToEnd
    Catch ex As Exception
        Return ""
    Finally
        ' always close readers and streams
        sr.Close()
        st.Close()
    End Try
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


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

 

 

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