VB.net Kuidas kasutada mitmelõimelist skaneerimist?

ixinwen · Postitatud 2019-10-30 17:20:14

  Nagu joonisel näidatud, pärast URL-i importimist soovite kasutada mitmelõimelist skaneerimist. Ma pole leidnud koodi, mida saaks veebis rakendada. Palun andke nõu.

Privaatne alamfoorum Button2_Click(saatja objektina, e kui EventArgs) käsitleb nuppu2.Kliki
      ListBox2.Items.Clear()
      Scan_Flag = 1
      Scan_Index = 0
      Scan_Max = ListBox1.Items.Count
      ProgressBar1.Minimum = 0
      ProgressBar1.Maximum = Scan_Max
      ProgressBar1.Väärtus = 0
      Kui x Int32 = 1 To Val(ComboBox1.Text) ' on combobox1.text lõimede arv
         Dim Go kui New Threading.Thread (Skaneerimise aadress)
         Mine. Start()
      Järgmine
      Timer1.Start()

Lõpp-subsub

Alamskaneering()
      Dim-indeks, maksimaalne kui Int32
      max = ListBox1.Items.Count
      Kui i on Int32 = 0 ListBox1.Items.Count - 1
         Kui Scan_Flag = 0, siis välju jaoks
         Dim url As String = 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

      Järgmine
      Label1.Text = "skaneeri üle"
Lõpp-subsub

Kuidas ma saan teha mitmelõimelist ja sünkroonset skaneerimist? Kuidas peaks lause õigesti kirjutatud?

[Kommunikatsioon] VB.net Kuidas kasutada mitmelõimelist skaneerimist?

Vaadatud sektsioonid