• Home
 · 
• Internet/HTML
 · 
• This code retrieves the entire HTML source from a WEB page using an inet control. This code works,

This code retrieves the entire HTML source from a WEB page using an inet control. This code works,

This code retrieves the entire HTML source from a WEB page using an inet control. This code works, differently from many others similar codes

API Declarations


'
' Place in a form an inet control and enjoy this code
' sample: text_returned = getHTML("http://www.yansb.com")
'



Rate This code retrieves the entire HTML source from a WEB page using an inet control. This code works,

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim response$
Dim vData As Variant

  Inet1.Cancel
  'Label1.Caption = 0
  response = Inet1.OpenURL(url)
  If response <> "" Then
    Do
      vData = Inet1.GetChunk(1024, icString)
      DoEvents
      If Len(vData) Then
        response = response & vData
        'Label1.Caption = CStr(Len(response))
      End If
    Loop While Len(vData)
  End If
  'Label1.Caption = CStr(Len(response))
  GetHTML = response
End Function