按键助手多线程源码

最新推荐文章于 2024-04-09 14:53:36 发布

动力编程

最新推荐文章于 2024-04-09 14:53:36 发布

阅读量1k

点赞数

分类专栏：按键手机助手文章标签：经验分享开源

本文链接：https://blog.csdn.net/qq_24233669/article/details/126834826

版权

按键手机助手专栏收录该内容

1 篇文章 0 订阅

订阅专栏

分享给大家多线程的使用技巧,解决在写辅助时遇到游戏突然弹窗验证 bug 站街卡点等各种意外情况后期分享更多干货.

Dim 任务线程ID, 检测线程ID,i
 
任务线程ID = Thread.Start(任务线程)
Delay 2000
检测线程ID = Thread.Start(检测线程)
 
Thread.SetShareVar "检测开关", 0
 
Do
    Delay 2000
    TracePrint "我是主线程"
loop
 
 
Sub 任务线程()
    //把 主线 副本 打怪 放到任务线程中
    TracePrint "我是任务 线程 "
    Do
        打怪
        Delay 1000
    Loop
End Sub
 
 
Sub 检测线程()
    //把 弹窗 验证 角色死亡 各种突发情况放到此地
    Dim i=0
    TracePrint "我是检测 线程 "
    Do
        TracePrint "模拟 i=5后,出现异常情况 当前i: ",i
        i = i + 1
        If i = 5 Then
            角色死亡 
        End If
         
        验证 
         
        Delay 1000
    Loop
End Sub
'------------------任务线程 空间--------------------------//
Function 打怪()
    Do
        If 读取多线程数据("检测开关") = 1 Then
            线程暂停 "检测开关"
        End If
        TracePrint "打怪中。。。 "
         
        '写自己打怪代码
        Delay 1000
    Loop
End Function
 
 
 
'------------------任务线程 空间--------------------------//
 
 
 
 
'------------------检测线程 空间--------------------------//
 
Function 验证()
    '加入自己代码 
End Function
 
Function 角色死亡()
        '找图,色 多点 判断角色是否死亡
         
        TracePrint "检测 到角色死亡"
        //暂停任务线程,把 检测开关  赋值为 1
        Thread.SetShareVar "检测开关",1
        '处理死回回城等操作...
         
         死亡_复活
         
        '恢复 检测开关为0,启动任务线程
        Thread.SetShareVar "检测开关", 0
        Delay 1000
 
End Function
 
 
Sub 死亡_复活()
    Dim i = 0,ii
     
    For ii = 0 To 6
        Select Case i
            Case 0
                TracePrint "复活中."
            Case 1
                TracePrint "复活中.."
            Case 2
                TracePrint "复活中..."
        End Select
        i = i + 1 : Delay 1000
        If i > 2 Then
            i = 0
        End If
    Next
End Sub
 
'------------------检测线程 空间--------------------------//
 
 
'--------------------接代码------------------------//
Function 读取多线程数据(var)
    Dim ret
    ret = Thread.GetShareVar(var)
    读取多线程数据 = ret
End Function
 
//这个接口专用来恢复任务线程
Sub 线程暂停(var)   
    Do
        TracePrint "任务线程暂停中..."
        If 读取多线程数据(var) = 0 Then
            Exit Do
        End If
        Delay 1000
    Loop
End Sub`在这里插入代码片`