VB.net Kā izmantot daudzpavedienu skenēšanu?

Ixinwen · Publicēts 2019-10-30 17:20:14

  Kā parādīts attēlā, pēc URL importēšanas vēlaties izmantot vairāku pavedienu skenēšanu. Es neesmu atradis kodu, ko varētu ieviest tiešsaistē. Lūdzu, pastāstiet.

Private Sub Button2_Click(sūtītājs kā objekts, e kā EventArgs) apstrādā Button2.Click
      ListBox2.Items.Clear()
      Scan_Flag = 1
      Scan_Index = 0
      Scan_Max = ListBox1.Items.Count
      ProgressBar1.Minimum = 0
      ProgressBar1.Maximum = Scan_Max
      ProgressBar1.Value = 0
      Par x As Int32 = 1 To Val(ComboBox1.Text) ' combobox1.text ir pavedienu skaits
         Dim go kā jauns Threading.Thread(AddressOf scan)
         iet. Sākums()
      Nākamais
      Taimeris1.Sākums()

Beigu apakšpunkts

Apakšskenēšana ()
      Dim indekss, max As Int32
      max = ListBox1.Items.Count
      Par i As Int32 = 0 Uz ListBox1.Items.Count - 1
         Ja Scan_Flag = 0, tad izejiet uz
         Dim url kā virkne = ListBox1.Items.Item(i) & "/index.php"
         indekss = Threading.Interlocked.Increment(Scan_JD)

         Dim temp As String = Scanurl(url)

            ListBox2.Items.Add(url & "--" & temp)
            Label1.Text = "skenēšana" & url

      Nākamais
      Label1.Text = "skenēt"
Beigu apakšpunkts

Kā veikt vairāku pavedienu un sinhronu skenēšanu? Kā pareizi jāraksta teikums?

[Paziņojums] VB.net Kā izmantot daudzpavedienu skenēšanu?

Skatītās sadaļas