VB.net Jak mohu používat vícevláknové skenování?

ixinwen · Zveřejněno 30. 10. 2019 17:20:14

  Jak je ukázáno na obrázku, po importu URL chcete použít vícevláknové skenování. Nenašel jsem kód, který by šlo online implementovat. Prosím, poraďte mi.

Soukromý sub Button2_Click(odesílatel jako objekt, e jako eventArgs) ovládá tlačítko 2.klik
      ListBox2.Items.Clear()
      Scan_Flag = 1
      Scan_Index = 0
      Scan_Max = SeznamBox1.Položky.Počet
      ProgressBar1.Minimum = 0
      ProgressBar1.Maximum = Scan_Max
      ProgressBar1.Value = 0
      Pro x jako int32 = 1 To Val(ComboBox1.Text) ' combobox1.text je počet vláken
         Dim go As New Threading.Thread(AddressOf scan)
         Jdi. Start()
      Další
      Timer1.Start()

Konec sub

Sub scan()
      Dim index, max As Int32
      max = SeznamBox1.Položky.Počet
      Pro i As Int32 = 0 To ListBox1.Items.Count - 1
         Pokud Scan_Flag = 0, pak ukončíme pro
         Dim url As String = 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 = "skenování" & URL

      Další
      Label1.Text = "scan over"
Konec sub

Jak mohu provádět vícevláknové a synchronní skenování? Jak by měla být věta správně napsána?

[Komunikace] VB.net Jak mohu používat vícevláknové skenování?

Prohlížené sekce