VB.net Ako používať viacvláknové skenovanie?

ixinwen · Zverejnené 30.10.2019 17:20:14

  Ako je znázornené na obrázku, po importe URL chcete použiť viacvláknové skenovanie. Nenašiel som kód, ktorý by sa dal online implementovať. Prosím, poraďte.

Súkromný sub Button2_Click(odosielateľ ako objekt, e ako eventArgs) spracováva tlačidlo 2.klik
      ListBox2.Items.Clear()
      Scan_Flag = 1
      Scan_Index = 0
      Scan_Max = ListBox1.Items.Count
      ProgressBar1.Minimum = 0
      ProgressBar1.Maximum = Scan_Max
      ProgressBar1.Value = 0
      Pre x Ako Int32 = 1 To Val(ComboBox1.Text) ' combobox1.text je počet vlákien
         Dim go Ako nové vlákno.Thread(AddressOf scan)
         Choď. Start()
      Ďalej
      Timer1.Start()

End Sub

Sub scan()
      Dim index, max As Int32
      max = ListBox1.Items.Count
      Pre i As Int32 = 0 To ListBox1.Items.Count - 1
         Ak Scan_Flag = 0, potom ukončíme pre
         Dim url Ako reťazec = ListBox1.Items.Item(i) & "/index.php"
         index = Threading.Interlocked.Increment(Scan_JD)

         Dim temp As String = Scanurl(url)

            ListBox2.Items.Add(url & "--" & temp)
            Label1.Text = "skenovanie" & URL

      Ďalej
      Label1.Text = "scan over"
End Sub

Ako môžem robiť viacvláknové a synchronné skenovanie? Ako by mala byť veta správne napísaná?

[Komunikácia] VB.net Ako používať viacvláknové skenovanie?

Zobrazené sekcie