Question

我试图在我的VB程序中使用webbrowser来加载网页和网页上的表格。它工作但非常缓慢，很多时候冻结。我找到了一些示例代码，它们在没有Web浏览器的情况下读取网页。它读取网页上的文本并将其放入名为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

我是编程新手（希望随着时间的推移变得更好）。如果我写的东西听起来像我不知道我在说什么，可能是因为我没有。任何帮助都会很感激。

谢谢，克里斯

使用msxml2.xmlhttp从网页读取表格

0 个答案: