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

...
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

上一篇： 适合Visual Basic初学者的10个小技巧
下一篇： 用Visual Basic设计手机短信收发程序

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!