用VB编写异步多线程下载程序

　End Select
　
End Sub
　
Private Sub Inet2_StateChanged(ByVal State As Integer)
...
end sub
　
... 　
　　线程调度子程序,g和是k公用变量，k为最后一个链接的数组索引加一，g初值为零，每次加一，直到处理完最后一个链接。

Private Sub devjob()
　
If Not g 1 < k Then GoTo reportline
If Inet1.StillExecuting = False Then
　g = g 1
　Inet1.Execute links(g), "GET"
End If
If Not g 1 < k Then GoTo reportline
If Inet2.StillExecuting = False Then
　g = g 1
　Inet2.Execute links(g), "GET"
End If
　
...
　
reportline:
If Inet1.StillExecuting = False And Inet2.StillExecuting = False And ... Then
　MsgBox ("下载结束。")
End If
End Sub