VB采集网页卡死 ，请高手指点

Question

vb采集卡死

Answer 1

FindStrMulti不会有问题的，问题应该再其它地方。我估计问题在HtmlStr(url),这个作用是获取网页源码。提取太频繁了，服务器卡住了！
Public Function HtmlStr(url)    '提取网页源码
    Dim MyXML As Object
    Set MyXML = CreateObject("MSXML2.XMLHTTP")
    MyXML.Open "GET", url, False
    MyXML.Send
    While MyXML.ReadyState <> 4
        DoEvents
    Wend
    HtmlStr = MyXML.responseText
End Function