按键精灵安卓版项目实战：多线程

免责声明

本视频内容纯属个人爱好，目的仅限于学习交流之用，对使用视频内的信息随之而来的风险与本人无关。本人不作任何承诺。也不为视频所提供的信息错误、残缺、延时或因依靠此类信息或文件所采取的任何行动负责。访问者可将本视频提供的内容或服务用于个人学习、研究或欣赏，以及其他非商业性或非盈利性用途，但同时应遵守著作权法及其他相关法律的规定，不得侵犯本人及相关权利人的合法权利。

相关视频链接：

https://www.bilibili.com/video/BV1Cp4y1Y795

源代码：

//主线程,写一写控制流程控制脚本流程走向
Thread.SetShareVar "主程序",False
Thread.SetShareVar "线程1",False
Thread.SetShareVar "线程2", False
Thread.SetShareVar "线程3", False
Rem 标记
Dim a= Thread.Start(游戏监测)
dim b = Thread.Start(游戏操作)
Dim c = Thread.Start(定时清理)

While true

    If Thread.GetShareVar("主程序") = true and Thread.GetShareVar("线程1") = true Then 
        //执行游戏监测到的内容
        Thread.Stop(a)
        Thread.Stop(b)
        Call 拾取金币()		
        Thread.SetShareVar "主程序",False
        Thread.SetShareVar "线程1", False
        Exit While
    ElseIf Thread.GetShareVar("主程序") = true and Thread.GetShareVar("线程2") = true Then
        Thread.Stop(a)
        Thread.Stop (b)
        Thread.Stop (c)
        Call 清理背包()
        Thread.SetShareVar "主程序",False
        Thread.SetShareVar "线程2", False
        Exit While
    End If
    Delay 2000
    
    
Wend
Goto 标记