Question

I have made a proxy checker that imports proxy from a text file by open file dialog.i have employed 20 background workers that check first 20 proxies from array now i want to choose another 20 items automatically. How could I do it and also I wanna know that there can be some situation when there can be odd number of proxies like 103 in that situation how to choose that remaining 3 proxies ?

Answer 1

Imports System.ComponentModelPublic ClassForm1'lists of workersand proxies   Dim workers AsList(Of BackgroundWorker) = NewList(Of BackgroundWorker)   Dim proxies AsList(Of String)    Private SubForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load        'fill list ofworkers        workers.Add(BackgroundWorker1)        workers.Add(BackgroundWorker2)         'here filllist of proxies         'first run:starting all background workers        For Each worker Inworkers            Ifproxies.Count > 0 Then               worker.RunWorkerAsync(proxies(0))                proxies.RemoveAt(0)            EndIf        Next   End Sub    'this sub would be called each time workercompletes current task   Sub queue()        Ifproxies.Count > 0 Then 'if there are items left in proxies list            ForEach worker Inworkers 'iterate workers                Ifworker.IsBusy = False Then'if free worker is found, give him the next task                   worker.RunWorkerAsync(proxies(0))                    proxies.RemoveAt(0)                    ExitSub 'end sub, the nex completed task wouldcall it again                EndIf            Next        Else 'if there are no proxies to process            ForEach worker Inworkers 'iterate workers                Ifworker.IsBusy = True Then'if busy worker is found, exit sub, it woul be calledby next completed task                    ExitSub                EndIf            Next            MsgBox("Allis done") 'the messagebox would be calledonly if all workers are free        End If   End Sub    'binding queue sub for work completed event   Private SubBackgroundWorker1_RunWorkerCompleted(ByValsender As Object,ByVal e AsSystem.ComponentModel.RunWorkerCompletedEventArgs)Handles BackgroundWorker1.RunWorkerCompleted        queue()   End Sub    Private SubBackgroundWorker2_RunWorkerCompleted(ByValsender As Object,ByVal e AsSystem.ComponentModel.RunWorkerCompletedEventArgs)Handles BackgroundWorker2.RunWorkerCompleted        queue()   End SubEnd Class