VB.net Bagaimana cara menggunakan pemindaian multi-utas?

ixinwen · Dipaparkan pada 2019-10-30 17:20:14

  Seperti yang ditunjukkan pada gambar, setelah mengimpor URL, Anda ingin menggunakan pemindaian multi-threading. Saya belum menemukan kode yang dapat diterapkan secara online. Tolong sarankan.

Sub Pribadi Button2_Click(pengirim Sebagai Objek, e Sebagai EventArgs) Menangani Tombol2.Klik
      ListBox2.Items.Clear()
      Scan_Flag = 1
      Scan_Index = 0
      Scan_Max = ListBox1.Items.Count
      ProgressBar1.Minimum = 0
      ProgressBar1.Maksimum = Scan_Max
      ProgressBar1.Nilai = 0
      Untuk x Sebagai Int32 = 1 To Val(ComboBox1.Text) ' combobox1.text adalah jumlah utas
         Dim go As New Threading.Thread(AddressOf scan)
         pergi. Mulai()
      Selanjutnya
      Timer1.Mulai()

Akhir Sub

Sub pindai()
      Indeks redup, maks Sebagai Int32
      max = ListBox1.Items.Count
      Untuk i Sebagai Int32 = 0 Untuk ListBox1.Items.Count - 1
         Jika Scan_Flag = 0 maka keluar untuk
         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 = "memindai" & url

      Selanjutnya
      Label1.Text = "pindai"
Akhir Sub

Bagaimana cara melakukan pemindaian multi-utas dan sinkron? Bagaimana kalimat harus ditulis dengan benar?

[Komunikasi] VB.net Bagaimana cara menggunakan pemindaian multi-utas?

Bagian yang dilihat