知道inet用法请进

Question

我用inet下载文件当下载玩第一个后，再下载别的总出错 提示“实时错误35764”仍在执行上一请求 开始
private sub form_load()
     InetDown.Protocol = icHTTP
     InetDown.Execute "www.chinaren.com", "get"'此行提示错误
end sub
Private Sub InetDown_StateChanged(ByVal State As Integer)
    
    Dim binBuffer() As Byte
    Static lngBlock As Long
     Dim intFileNum As Integer    Select Case State        Case 12
            '打开文件供写入
            Open app.path & "\1.txt" For Binary Access Write As #1
         
            Do                DoEvents                binBuffer = InetDown.GetChunk(512, icByteArray)
                lngBlock = lngBlock + 1
                
                Put #1, , binBuffer()
                
            Loop Until (UBound(binBuffer) <= 0)
            
            Close #1
            InetDown.Cancel
            
            InetDown.Execute "www.163.com", "get"'此行提示错误
    End SelectEnd Sub

Answer 1

用Inet1.StillExecuting判断控件是否空闲

Answer 2

StillExecuting 属性
      返回一个值，指明此 Internet Transfer 控件是否处于忙状态。如果该控件正在做诸如从 Internet 网上检索文件之类的操作，将返回 True。当该控件处于忙的时候，不响应其它的请求。语法object.StillExecuting = booleanStillExecuting 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的对象。 
boolean 布尔表达式，指明该控件是否处于忙状态。 
数据类型Boolean设置值boolean 的设置值：常数 值 描述 
True -1 该控件忙。 
False 0 该控件空闲。 

Answer 3

真有意思  那程序还是那结构但现在好用了，开始的时候我也用过stillexcuting
if inetdown.sillexcuting=false then
 InetDown.Execute "www.163.com", "get"'
end if
但不行  还是那错误