VB.net Hvordan bruker jeg flertrådet skanning?

ixinwen · Publisert 30.10.2019 17:20:14

  Som vist i figuren, etter å ha importert URL-en, bør du bruke multitråding-skanning. Jeg har ikke funnet noen kode som kan implementeres på nettet. Vennligst gi råd.

Privat sub Button2_Click(avsender som objekt, e som eventArgs) håndterer knapp2. Klikk
      ListBox2.Items.Clear()
      Scan_Flag = 1
      Scan_Index = 0
      Scan_Max = ListBox1.Elementer.Telling
      ProgressBar1.Minimum = 0
      ProgressBar1.Maximum = Scan_Max
      ProgressBar1.Verdi = 0
      For x Som Int32 = 1 Til Val(ComboBox1.Text) ' combobox1.text er antallet tråder
         Dim går som ny tråding.tråd (AddressOf-skanning)
         Gå. Start()
      Neste
      Timer1.Start()

Slutt på underteksten

Sub-skanning()
      Dim indeks, maks As Int32
      maks = ListeBoks1.Elementer.Antall
      For i Som Int32 = 0 Til ListeBoks1.Elementer.Antall - 1
         Hvis Scan_Flag = 0, så avslutt for
         Dimm 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

      Neste
      Label1.Text = "skann over"
Slutt på underteksten

Hvordan kan jeg gjøre multitrådet og synkron skanning? Hvordan bør setningen skrives riktig?

[Kommunikasjon] VB.net Hvordan bruker jeg flertrådet skanning?

Seksjoner sett