' Getting the HTML code of any page on the web' NOTE: requires the Microsoft XML library' Example:' Text1.Text = GetHtmlPageSource("http://www.vb2themax.com/Default.asp")Function GetHtmlPageSource(ByVal URL As String) Dim objHTTP As New XMLHTTP ' add the http:// in case it isn't already present in the specified URL If Left$(URL, 7) <> "http://" Then URL = "http://" & URL ' open the page in sync mode objHTTP.open "GET", URL, False objHTTP.send ' check the result of the operation If objHTTP.Status = "200" Then GetHtmlPageSource = objHTTP.responseText End IfEnd Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
