WebBrowser1处理速度跟不上循环的问题。

我用一个循环读一序列的网页
用    类似如下代码：
for n = 1 to 100WebBrowser1.Navigate2 网址n        
strContent = WebBrowser1.Document.body.innerHTML读取、截取、插入数据库等处理next但是循环的速度快，下一个网页来不及读入根本就，不知道如何处理了

解决方案 »

  1.   

    do while  WebBrowser1.busy=true 
       doevents
    loop
      

  2.   

    您说的这循环是在哪个地方写
    WebBrowser1.Navigate2 网址n        
    写在这后面？
      

  3.   

    在WebBrowser1_DownloadComplete()事件中处理完后再WebBrowser1.Navigate下一个网页
      

  4.   

    上面的道理肯定是这样
    但是请看看我提供的那段程序
    是在一个循环里面做操作，
    怎样判断
    WebBrowser1_DownloadComplete()
    这个事件完了呢？
      

  5.   

    在复杂的循环里加上 DOEVENTS
    还有在运行时间比较长的过程中也加上DOEVENTS实在不行，你就考虑一下优化SQL语句。
      

  6.   

    你这样做不行的，网页下载需要时间，这个时间大部份取决于网站服务器响应的时间，如果想得到源码，应该写在网页下载完成的事件。写在下载完成的事件中
    第一行代码：下载完成就取源文件
    第二行代码：打开第二个网址
    end sub