VB.net Kako naj uporabim večnitno skeniranje?

ixinwen · Objavljeno 30. 10. 2019 ob 17:20:14

  Kot je prikazano na sliki, po uvozu URL-ja želite uporabiti večnitno skeniranje. Nisem našel kode, ki bi jo bilo mogoče implementirati na spletu. Prosim za nasvet.

Private Sub Button2_Click(pošiljatelj kot objekt, e kot EventArgs) upravlja gumb 2.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
      Za x kot Int32 = 1 To Val(ComboBox1.Text) ' je combobox1.text število niti
         Zatemnitev, ko je nova nit. Nit. (Naslov skeniranja)
         Pojdi. Start()
      Naslednji
      Timer1.Start()

Konec podnapisa

Sub scan()
      Dim indeks, max As Int32
      max = ListBox1.Items.Count
      For i As Int32 = 0 To ListBox1.Items.Count - 1
         Če je Scan_Flag = 0, potem izstopi za
         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 = "skeniranje" & URL

      Naslednji
      Label1.Text = "skeniranje končano"
Konec podnapisa

Kako lahko izvajam večnitno in sinhrono skeniranje? Kako naj bo stavek pravilno napisan?

[Komunikacija] VB.net Kako naj uporabim večnitno skeniranje?

Ogledi odsekov