架构师_程序员

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 59|回复: 0

[交流] VB.net 如何使用多线程扫描呢?

[复制链接]
跳转到指定楼层
楼主
发表于 2019-10-30 17:20:14
zu
  如图所示,导入 url 后,想采用多线程进行扫描。 网上一直没有找到可以落实的代码。请指教。


   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.Value = 0
        For x As Int32 = 1 To Val(ComboBox1.Text)                               ' combobox1.text 是线程数量
            Dim go As New Threading.Thread(AddressOf scan)
            go.Start()
        Next
        Timer1.Start()

    End Sub



   Sub scan()
        Dim index, max As Int32
        max = ListBox1.Items.Count
        For i As Int32 = 0 To ListBox1.Items.Count - 1
            If Scan_Flag = 0 Then Exit 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

        Next
        Label1.Text = "scan over"
    End Sub


请问 如何可以做到 多线程 , 同步扫描 ? 语句应该是怎么样写才正确呢?




上一篇:【中国麻将:世界最早的区块链项目】
下一篇:布尔教育 2018PHP 开发 学习 视频教程
帖子永久地址: 

架构师_程序员 - 论坛版权1、本主题所有言论和图片纯属会员个人意见,与本论坛立场无关
2、本站所有主题由该帖子作者发表,该帖子作者与架构师_程序员享有帖子相关版权
3、其他单位或个人使用、转载或引用本文时必须同时征得该帖子作者和架构师_程序员的同意
4、帖子作者须承担一切因本文发表而直接或间接导致的民事或刑事法律责任
5、本帖部分内容转载自其它媒体,但并不代表本站赞同其观点和对其真实性负责
6、如本帖侵犯到任何版权问题,请立即告知本站,本站将及时予与删除并致以最深的歉意
7、架构师_程序员管理员和版主有权不事先通知发贴者而删除本文

码农网,只发表在实践过程中,遇到的技术难题,不误导他人。
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

免责声明:
码农网所发布的一切软件、编程资料或者文章仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:help@itsvse.com

QQ|Archiver|手机版|小黑屋|架构师 ( 鲁ICP备14021824号-2 )|网站地图

GMT+8, 2019-11-16 19:32

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表
即时比分新浪