我尝试在我的 VB 程序中使用网络浏览器来加载网页和网页上的表格。它的工作原理非常缓慢,而且很多时候它会冻结。我发现一些示例代码可以在没有网络浏览器的情况下读取网页。它读取网页上的文本并将其放入名为 WebText 的富文本框中。此代码运行速度非常快,并且永远不会锁定,但它不会读取网页表格中的文本。
我正在使用的代码调用以下函数:
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
我是编程新手(希望随着时间的推移变得更好)。如果我写的东西听起来我不知道我在说什么,那可能是因为我不知道。任何帮助将不胜感激。
谢谢,克里斯