How to Get a html page content using Inet in vb6 and put the content in a TextBox?

Question

How to Get a html page content using Inet in vb6 and put the content in a TextBox ?

Answer 1

Try this:

Function GetHTMLCode(Optional strURL As String) As String
    Dim objHttp As Object, strText As String
    Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
    objHttp.Open "GET", strURL, False
    objHttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHttp.Send ("")
    strText = objHttp.responseText
    Set objHttp = Nothing
    GetHTMLCode = strText
End Function

OK?)