' 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
7 Ways Technology Has Changed Traditional Payments
In today’s digital world, technology has changed how we make payments. From contactless cards to mobile wallets, it’s now easier
January 26, 2023
