请问安卓按键精灵多线程怎么用呢?

发布网友 发布时间:2022-04-23 01:09

我来回答

3个回答

热心网友 时间:2023-10-09 19:40

Thread.SetShareVar"子线程",False//设置子线程变量为flase


Thread.SetShareVar"子线程1",False//设置子线程1变量为flase


dim a1=Thread.Start(子线程,2,3)


dim a2=Thread.Start (子线程1,3,6)

For i = 1 to 15

Delay 1000


TracePrint "我是【主程序】AAAAAAAAAAAAAAAA="&i 


If Thread.GetShareVar("子线程") = true Then  //判断子线程是否为true

End If


If Thread.GetShareVar("子线程1") = true Then  //判断子线程1是否为true


End If


next


TracePrint "【主程序】运行完毕"

参考资料:

按键精灵多个坐标点随机点击

Dim Num(4), x(4), y(4)
x(1) = 1 : y(1) = 1
x(2) = 10 : y(2) = 10
x(3) = 33 : y(3) = 33
x(4) = 654 : y(4) = 75
While True
For i = 1 To 4
Num(i) = 0
Next

n = 1
While n < 5
Randomize
a = Int(4 * Rnd + 1)
For i = 1 To n
If Num(i) = a Then
Exit For
End If

If i >= n Then
Num(n) = a
n = n + 1
Exit For
End If
Next
Wend

//MessageBox Num(1) & "|" & Num(2) & "|" & Num(3) & "|" & Num(4)
For i = 1 To 4
m = Num(i)
Call Plugin.Bkgnd.LeftdoubleClick(Hwnd, x(m), y(m))
Delay 100
Next
Wend

如果你只想点击四个坐标一次,你就把While True……Wend去掉。

参考资料来源:百度百科-按键精灵

热心网友 时间:2023-10-09 19:41

Thread.SetShareVar"子线程",False//设置子线程变量为flase
Thread.SetShareVar"子线程1",False//设置子线程1变量为flase
dim a1=Thread.Start(子线程,2,3)
dim a2=Thread.Start (子线程1,3,6)
For i = 1 to 15
Delay 1000
TracePrint "我是【主程序】AAAAAAAAAAAAAAAA="&i
If Thread.GetShareVar("子线程") = true Then //判断子线程是否为true
//EndScript
//Thread.Stop(a2)//退出当前线程并停止其他线程
End If
If Thread.GetShareVar("子线程1") = true Then //判断子线程1是否为true
//EndScript
//Thread.Start (子线程,2,7)//退出当前线程并启动其他线程
End If
next
TracePrint "【主程序】运行完毕"

Sub 子线程(序号, 循环时间)//此线程可以做你想做的事情
For i = 1 to 循环时间
Delay 1000
TracePrint "我是子线程BBBBBBBBBBBBB="&i
Next
TracePrint "子线程BBBBBBBBBBBBB第三秒退出"
Thread.SetShareVar"子线程",true//此处把子线程变量改为true,主程序就能知道此线程变量已经发生变化而执行动作
End Sub
Sub 子线程1(序号,循环时间)//此线程可以做你想做的事情
For i = 1 to 循环时间
Delay 1000
TracePrint "我是子线程CCCCCCCCCCCCCC="&i
Next
TracePrint "子线程CCCCCCCCCCCCCC第六秒退出"
Thread.SetShareVar"子线程1",true//此处把子线程1变量改为true,主程序就能知道此线程变量已经发生变化而执行动作
End sub
//这个我感觉已经写的很明白了,不知道你能看懂不

热心网友 时间:2023-10-09 19:41

RestartScript

Sub 测试()
MessageBox ;
End Sub
功能简单;我是线程0。自己研究一下线程ID=BeginThread(测试())
MessageBox ;我是线程1,只是说明多线程的使用方法追问我就是看了不会才来问的啊,给个简单的多线程程序啊

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com