此主题相关图片如下：cpu.jpg

每次用网页数据保存，发现cpu占用很厉害，有时会到70%以上，不知道怎么回事？

代码如下：

Dim web As New System.Windows.Forms.WebBrowser()

web.Navigate("http://www.0572home.com/house/hs2.asp")

Do Until web.ReadyState = 4

    Application.DoEvents

Loop

\'取数据

Dim Cols() As String = { "编号","信息来源","区县","小区路段","房屋类型","面积","价格","单价","发布时间" }

Dim elems As object = web.Document.GetElementById("hsList").GetElementsByTagName("tr")

Dim m As Integer = 0

For Each elem As object In elems

    Dim i As Integer = -1

    If m > 0 Then  \'因为网页的表格有标题,如果不判断,就会增加出一个空行

        Tables("德清房产网").AddNew

        Dim tdelems As object =  elem.GetElementsByTagName("td")

        For Each tdelem As object In tdelems

            i = i + 1

            Tables("德清房产网").Current(Cols(i)) = tdelem.Innertext

            \'

        Next

    End If

    m = m + 1

Next

Tables("德清房产网").save

你这样改改看看：

Dim web As New System.Windows.Forms.WebBrowser()

web.Navigate("http://www.0572home.com/house/hs2.asp")

Do Until web.ReadyState = 4

     System.Threading.Thread.Sleep(500)

Loop

按bin哥说的，用事件。

为什么网页数据加载好了，cpu占用还这么高呢？

能不能在

Tables("德清房产网").save

之后加代码，控制以下代码进程的停止？

Dim web As New System.Windows.Forms.WebBrowser()

web.Navigate("http://www.0572home.com/house/hs2.asp")

Do Until web.ReadyState = 4

Application.DoEvents

Loop

业余玩玩，对编程没有系统学习过，事件方法不了解，能不能指点一下？

web.stop

web.Dispose

都不管用，呵呵