发布网友 发布时间: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,只是说明多线程的使用方法追问我就是看了不会才来问的啊,给个简单的多线程程序啊