Open spath & fname For Binary Access Write As #1
　　Put #1, , b()
　　Close #1
　　End If
　　Call devjob '调用线程调度子程序
　　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

上一页234下一页