VB.net Hogyan használhatom a többszálas szkennelést?

ixinwen · Közzétéve: 2019-10-30 17:20:14

  Ahogy az ábrán látható, az URL importálása után többszálas szkennelést szeretnénk használni. Nem találtam olyan kódot, amit online lehetne megvalósítani. Kérem, tanácsot kérek.

Private Sub Button2_Click(sender As Object, e As 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.Érték = 0
      x esetén Int32 = 1 Val(ComboBox1.Text) ' esetén a combobox1.text a szálak száma
         Dim Go Új Threadingként. Thread (CímA szkennelés)
         Menj. Start()
      Következő
      Timer1.Start()

Vég Sub

Sub scan()
      Dim index, max As Int32
      max = ListBox1.Items.Count
      I-hez Int32 = 0 ListBox1.Items.Count - 1
         Ha Scan_Flag = 0, akkor Kilépj For
         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

      Következő
      Label1.Text = "átszkennelés"
Vég Sub

Hogyan tudok többszálas és szinkron szkennelést végezni? Hogyan kell helyesen megfogalmazni a mondatot?

[Kommunikáció] VB.net Hogyan használhatom a többszálas szkennelést?

Megtekintett szakaszok