VB.net Hvordan bruger jeg multitrådet scanning?

ixinwen · Opslået den 30-10-2019 17:20:14

  Som vist i figuren, efter du har importeret URL'en, skal du bruge multi-threading scanning. Jeg har ikke fundet en kode, der kan implementeres online. Venligst rådgiv.

Privat sub Button2_Click(afsender som objekt, e som eventArgs) håndterer knap2. Klik
      ListBox2.Items.Clear()
      Scan_Flag = 1
      Scan_Index = 0
      Scan_Max = ListBox1.Items.Count
      ProgressBar1.Minimum = 0
      ProgressBar1.Maximum = Scan_Max
      ProgressBar1.Value = 0
      For x Som Int32 = 1 Til Val(ComboBox1.Text) ' combobox1.text er antallet af tråde
         Dim går som ny tråding.tråd (AddressOf-scanning)
         Gå. Start()
      Næste
      Timer1.Start()

Slut på underteksten

Sub-scan()
      Dæmpet indeks, max As Int32
      max = ListBox1.Items.Count
      For i Som Int32 = 0 Til ListBox1.Items.Count - 1
         Hvis Scan_Flag = 0, så luk for
         Dæmpet url som streng = 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 = "scaning " & url

      Næste
      Label1.Text = "scan over"
Slut på underteksten

Hvordan kan jeg lave multi-trådet og synkron scanning? Hvordan skal sætningen skrives korrekt?

[Kommunikation] VB.net Hvordan bruger jeg multitrådet scanning?

Afsnit set