VB.net Jak korzystać ze skanowania wielowątkowego?

ixinwen · Opublikowano 30.10.2019 17:20:14

  Jak pokazano na rysunku, po zaimportowaniu adresu URL warto użyć skanowania wielowątkowego. Nie znalazłem kodu, który można by zaimplementować online. Proszę o radę.

Prywatny sub Button2_Click(nadawca jako obiekt, e jako EventArgs) obsługuje przycisk2.kliknięcie
      ListBox2.Items.Clear()
      Scan_Flag = 1
      Scan_Index = 0
      Scan_Max = ListBox1.Items.Count
      ProgressBar1.Minimum = 0
      ProgressBar1.Maximum = Scan_Max
      ProgressBar1.Wartość = 0
      Dla x jako int32 = 1 do Val(ComboBox1.Text) ' combobox1.text to liczba wątków
         Dim go jako nowy wątek.wątek (AddressOf scan)
         Idź. Start()
      Następny
      Timer1.Start()

Koniec napisu

Sub scan()
      Wskaźnik ciemny, maksymalny As Int32
      max = ListBox1.Items.Count
      Dla i As Int32 = 0 do ListBox1.Items.Count - 1
         Jeśli Scan_Flag = 0, to wyjście dla
         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)
            Etykieta1.Tekst = "skanowanie" & URL

      Następny
      Etykieta1.Tekst = "skanowanie zakończone"
Koniec napisu

Jak mogę zrobić skanowanie wielowątkowe i synchroniczne? Jak powinno być poprawnie napisane zdanie?

[Komunikacja] VB.net Jak korzystać ze skanowania wielowątkowego?

Oglądane sekcje