VB.net Hur använder jag flertrådad skanning?

ixinwen · Publicerad den 2019-10-30 17:20:14

  Som visas i figuren, efter att ha importerat URL:en vill du använda multitrådad skanning. Jag har inte hittat någon kod som kan implementeras online. Vänligen ge råd.

Privat sub Button2_Click(avsändare som objekt, e som eventArgs) hanterar knapp2. Klicka
      ListBox2.Items.Clear()
      Scan_Flag = 1
      Scan_Index = 0
      Scan_Max = ListBox1.Items.Count
      ProgressBar1.Minimum = 0
      ProgressBar1.Maximum = Scan_Max
      ProgressBar1.Value = 0
      För x Eftersom Int32 = 1 Till Val(ComboBox1.Text) ' combobox1.text är antalet trådar
         Dim går som ny trådning.Tråd(AddressOf-scanning)
         Gå. Start()
      Nästa
      Timer1.Start()

Slut på sub

Sub-scan()
      Dimindex, max As Int32
      max = ListBox1.Items.Count
      För i Som Int32 = 0 Till ListBox1.Items.Count - 1
         Om Scan_Flag = 0 så avslutas för
         Dim url som sträng = ListBox1.Items.Item(i) & "/index.php"
         index = Threading.Interlocked.Increment(Scan_JD)

         Dim temp Eftersom sträng = Scanurl(url)

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

      Nästa
      Label1.Text = "skanna över"
Slut på sub

Hur kan jag göra multitrådad och synkron skanning? Hur ska meningen skrivas korrekt?

[Kommunikation] VB.net Hur använder jag flertrådad skanning?

Avsnitt som ses