关于api函数 URLDownloadToFile

Question

我在程序中的一个循环里面不断调用URLDownloadToFile的，开始的时候速度很快，下载页面几乎是1秒十个，然后渐渐的就慢了，慢慢变成1秒1个页面，到最后竟然是几秒一个页面！ 请问高手这个到底是怎么回事啊！

Answer 1

楼上请帮忙看看，如何释放法，我是用的下面一个函数Private Function getHtmlStr2$(strUrl$)
    Const tmpfile As String = "c:\tmpO0.tmp"
    URLDownloadToFile 0, strUrl, tmpfile, 0, 0
'    Do Until FileLen(tmpfile)
'        DoEvents
'    Loop
    Dim fn%, tmp$
    fn = FreeFile
    Open tmpfile For Binary Access Read As #fn
    tmp = Space(FileLen(tmpfile))
    Get #fn, , tmp
    Close #fn
    getHtmlStr2 = tmp
End Function