1

我尝试在我的 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

我是编程新手(希望随着时间的推移变得更好)。如果我写的东西听起来我不知道我在说什么,那可能是因为我不知道。任何帮助将不胜感激。

谢谢,克里斯

4

0 回答 0