VB.net Como uso a varredura multithread?

Ixinwen · Postado em 30-10-2019 17:20:14

  Como mostrado na figura, após importar a URL, você deve usar a varredura multithread. Não encontrei um código que possa ser implementado online. Por favor, me aconselhem.

Sub privado Button2_Click(remetente como objeto, e como EventArgs) lida com o botão2.Click
      ListaCaixa2.Itens.Limpar()
      Scan_Flag = 1
      Scan_Index = 0
      Scan_Max = ListaCaixa1.Itens.Contagem
      ProgressBar1.Mínimo = 0
      ProgressBar1.Maximum = Scan_Max
      ProgressBar1.Valor = 0
      Para x As Int32 = 1 To Val(ComboBox1.Text) ' combobox1.text é o número de threads
         Dim go como nova threading. thread(AddressOf scan)
         Vai. Start()
      Próximo
      Timer1.Start()

Fim de Substituição

Sub scan()
      Índice Dim, máximo As Int32
      max = ListaCaixa1.Itens.Contagem
      Para i As Int32 = 0 Para ListBox1.Items.Count - 1
         Se Scan_Flag = 0, então saia para
         Dim url As String = ListBox1.Items.Item(i) & "/index.php"
         índice = Threading.Interlocked.Increment(Scan_JD)

         Dim temp As String = Scanurl(url)

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

      Próximo
      Label1.Text = "escanear por cima"
Fim de Substituição

Como posso fazer varredura multithread e síncrona? Como a frase deve ser escrita corretamente?

[Comunicação] VB.net Como uso a varredura multithread?

Seções visualizadas