VB.net Как да използвам многонишково сканиране?

ixinwen · Публикувано на 2019-10-30 17:20:14

  Както е показано на фигурата, след импортиране на URL адреса трябва да използвате мулти-нишково сканиране. Не съм намерил код, който да може да се реализира онлайн. Моля, посъветвайте.

Private Sub Button2_Click(изпращач като обект, e като eventArgs) обработва бутона2.Click
      ListBox2.Items.Clear()
      Scan_Flag = 1
      Scan_Index = 0
      Scan_Max = ListBox1.Items.Count
      ProgressBar1.Минимум = 0
      ProgressBar1.Максимум = Scan_Max
      ProgressBar1.Стойност = 0
      За x As Int32 = 1 To Val(ComboBox1.Text) ' combobox1.text е броят на нишките
         Dim go като нов threading.thread (адрес на сканиране)
         Върви. Start()
      Следващият
      Timer1.Start()

Край на субтититра

Подсканиране()
      Dim index, max As Int32
      max = ListBox1.Items.Count
      За i As Int32 = 0 към ListBox1.Items.Count - 1
         Ако Scan_Flag = 0, тогава излез за
         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 = "сканиране" и url

      Следващият
      Label1.Text = "сканиране"
Край на субтититра

Как мога да направя многопоточно и синхронно сканиране? Как трябва да се пише изречението правилно?

[Комуникация] VB.net Как да използвам многонишково сканиране?

Разгледани секции