I found some sample code that reads the web page without a web browser. It reads the text on the web page and puts it into a Rich Text Box called WebText.
This code works really quick and never locks up but it does not read the text that is in the table on the webpage.
The code I am using calls the function below:
Expand|Select|Wrap|Line Numbers
- WebText.Text = GetHTMLCode("http://xfinitytv.comcast.net/tv-listings")
- Function GetHTMLCode(ByVal strURL) As String
- Dim strReturn ' As String
- Dim objHTTP ' As MSXML.XMLHTTPRequest
- If Len(strURL) = 0 Then Exit Function
- objHTTP = CreateObject("MSXML2.XMLHTTP")
- objHTTP.open("GET", strURL, False)
- objHTTP.send() 'Get it.
- strReturn = objHTTP.responseText
- objHTTP = Nothing
- GetHTMLCode = strReturn
- End Function
Thanks,
Chris