VB.net マルチスレッドスキャンはどうやって使うのですか?

イクシンウェン · 2019年10月30日 17:20:14に投稿

  図に示されているように、URLをインポートした後はマルチスレッドスキャンを使いたいです。オンラインで実装できるコードはまだ見つかっていません。アドバイスをお願いします。

プライベートサブButton2_Click(sender as Object, e As EventArgs)はボタン2.クリックを処理します
      ListBox2.Items.Clear()
      Scan_Flag = 1
      Scan_Index = 0
      Scan_Max = リストボックス1.アイテム数
      ProgressBar1.Minimum = 0
      ProgressBar1.Maximum = Scan_Max
      ProgressBar1.Value = 0
      xをInt32 = 1の場合、Val(ComboBox1.Text) ' combobox1.text はスレッド数を表します
         Dim Go As New Threading.Thread(AddressOf scan)
         行け。開始()
      次に
      タイマー1.スタート()

字幕終了

サブスキャン()
      Dim Index、最大 As Int32
      max = ListBox1.Items.Count
      iとしてint32 = 0からListBox1.Items.Count - 1へ
         Scan_Flag = 0 の場合、に対して
         Dim URL As String = ListBox1.Items.Item(i) & "/index.php"
         index = スレッド。Interlocked.Increment(Scan_JD)

         Dim temp As String = Scanurl(url)

            ListBox2.Items.Add(URL & "--" & temp)
            Label1.Text = 「スキャン中」 & URL

      次に
      Label1.Text = 「スキャンオーバー」
字幕終了

マルチスレッドと同期スキャンはどうやって実現できますか? 文はどのように正しく書けばよいのでしょうか?

[通信] VB.net マルチスレッドスキャンはどうやって使うのですか?

閲覧したセクション