主题：动态加载和卸载

 你说的是你往里面动态加入了100个webbrowser控件？

 

 不是直接控制webbrowser所打开的地址就行了？

 

说明意图，你说的卡，是指浏览网页卡，还是什么？

 我用下面的代码测试了几次，没发现有什么问题。
 
Dim i As Long
Dim web As New System.Windows.Forms.WebBrowser
For i = 564410245050 To 564410245067 '564410245267
    e.Form.Controls("Label1").text= i
    web.Navigate("http://k2k.sagawa-exp.co.jp/p/web/okurijosearch.do?okurijtable")
        For Each elem As System.Windows.Forms.Htmlelement In elems
            If elem.GetAttribute("id") Like "_id46:tb1" Then
                Dim e_Info As System.Windows.Forms.HtmlElement = elem.GetElementsByTagName("tbody")(0)
                Dim e_Info1 As System.Windows.Forms.HtmlElement = e_Info.GetElementsByTagName("tr")(0).GetElementsByTagName("td")(2)
                If e_Info1.InnerText <>"お問い合わせNo.をお確かめ下さい." Then  '判断货号存在的时候保存
                    Tables("表A").AddNew
                    Tables("表A").Current("第一列") = i
                    DataTables("表A").Save()
                End If
            End If
           
        Next
    End If
Next

 回复12楼，你的内存满，是因为web你在循环里重复生成了。把它放到外面去。

 

Dim i As Long
Dim web As New System.Windows.Forms.WebBrowser
For i = 564410245050 To 564410245067 '564410245267
    e.Form.Controls("Label1").text= i
    web.Navigate("http://k2k.sagawa-exp.co.jp/p/web/okurijosearch.do?okurijtable")
        For Each elem As System.Windows.Forms.Htmlelement In elems
            If elem.GetAttribute("id") Like "_id46:tb1" Then
                Dim e_Info As System.Windows.Forms.HtmlElement = elem.GetElementsByTagName("tbody")(0)
                Dim e_Info1 As System.Windows.Forms.HtmlElement = e_Info.GetElementsByTagName("tr")(0).GetElementsByTagName("td")(2)
                If e_Info1.InnerText <>"お問い合わせNo.をお確かめ下さい." Then  '判断货号存在的时候保存
                    Tables("表A").AddNew
                    Tables("表A").Current("第一列") = i
                    DataTables("表A").Save()
                End If
            End If
           
        Next
    End If
Next

 

测试了一下，这个问题不能解决。你还是让程序等候几秒算了。

 

或者检测是否存在某个元素，不存在，就让他继续等候。