VB.net Kaip naudoti kelių gijų nuskaitymą?

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

  Kaip parodyta paveikslėlyje, importavę URL norite naudoti kelių gijų nuskaitymą. Neradau kodo, kurį būtų galima įdiegti internete. Prašau patarti.

Privatus Sub Button2_Click(siuntėjas kaip objektas, e kaip EventArgs) Handles 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
      x As Int32 = 1 To Val(ComboBox1.Text) ' combobox1.text yra gijų skaičius
         Dim go As New Threading.Thread(AddressOf scan)
         Pirmyn. Pradžia()
      Kitas
      Laikmatis1.Pradžia()

Pabaiga

Sub nuskaitymas ()
      Dim indeksas, max As Int32
      max = ListBox1.Items.Count
      Už i Kaip Int32 = 0 Į ListBox1.Items.Count - 1
         Jei Scan_Flag = 0, tada išeiti
         Dim url kaip eilutė = 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 = "nuskaitymas" & url

      Kitas
      Label1.Text = "nuskaityti"
Pabaiga

Kaip atlikti kelių gijų ir sinchroninį nuskaitymą? Kaip teisingai parašyti sakinį?

[Komunikatas] VB.net Kaip naudoti kelių gijų nuskaitymą?

Peržiūrėtos sekcijos