VB.net Comment utiliser le balayage multithread ?

Ixinwen · Publié le 30-10-2019 à 17:20:14

  Comme montré sur la figure, après avoir importé l’URL, vous souhaitez utiliser le balayage multithread. Je n’ai pas trouvé de code qui puisse être implémenté en ligne. Merci de me conseiller.

Sous-titre privé Button2_Click(expéditeur en tant qu’objet, e en tant qu’EventArgs) gère le bouton 2.Click
      ListBox2.Items.Clear()
      Scan_Flag = 1
      Scan_Index = 0
      Scan_Max = ListBox1.Items.Count
      ProgressBar1.Minimum = 0
      ProgressBar1.Maximum = Scan_Max
      ProgressBar1.Value = 0
      Pour x As Int32 = 1 To Val(ComboBox1.Text) ' combobox1.text est le nombre de threads
         Dim go en tant que nouveau threading.thread(AddressOf scan)
         Vas-y. Start()
      Prochain
      Timer1.Start()

Fin du Remplaçant

Sous-scan()
      Indice dim, max As Int32
      max = ListBox1.Items.Count
      Pour i As int32 = 0 à ListBox1.Items.Count - 1
         Si Scan_Flag = 0, alors Exit pour
         URL dim As String = ListBox1.Items.Item(i) & « /index.php »
         index = Fil de file.Interlocked.Increment(Scan_JD)

         Dim temp As String = Scanurl(url)

            ListBox2.Items.Add(url & « -- » & temp)
            Label1.Text = « scaning » & URL

      Prochain
      Label1.Text = « scan over »
Fin du Remplaçant

Comment puis-je faire du balayage multithread et synchrone ? Comment la phrase doit-elle être correctement écrite ?

[Communication] VB.net Comment utiliser le balayage multithread ?

Sections vues