• 首页
  • 教程
  • 资源
  • 脚本
  • 源码库
  • 新闻
  • 卖脚本
  • 用户中心
加入收藏  返回官网
你的位置:按键精灵资源站
同一个句柄只能启动一次多线程怎么写
发布: 2017-08-11 10:56:13 | 作者: | 来源: 按键精灵资源站
Dim 游戏(), 句柄()
ID = 0
Do
    Key = WaitKey()
    If key = 116 Then
        Redim Preserve 游戏(ID)
        Redim Preserve 句柄(ID)
        句柄(ID) = Plugin.Window.MousePoint()
  
        机战(ID) = BeginThread(启动脚本)
     
        ID = ID + 1
    ElseIf key = 117 Then
        句柄1 = Plugin.Window.MousePoint()
        TracePrint 句柄1
        For i = 0 To UBound(句柄)
            If 句柄(i) = 句柄1 Then
                StopThread 游戏(i)

                句柄(i) = 0
                Exit For
            End If
        Next
    End If
Loop