按键精灵多线程怎么写

供稿:hz-xin.com     日期:2025-01-13
按键精灵多线程怎么写?

按键精灵是没多线程的,只有一个伪多线程。
推荐楼主使用TC简单开发软件,TC的多线程,才是程序里面真正的多线程。
开启多线程的优点和缺点
提高界面程序响应速度。通过使用线程,可以将需要大量时间完成的流程在后台启动单独的线程完成,提高前台界面的相应速度。
充分利用系统资源,提高效率。通过在一个程序内部同时执行多个流程,可以充分利用CPU等系统资源,从而最大限度的发挥硬件的性能。
当程序中的线程数量比较多时,系统将花费大量的时间进行线程的切换,这反而会降低程序的执行效率。但是,相对于优势来说,劣势还是很有限的,所以现在的项目开发中,多线程编程技术得到了广泛的应用。

线程ID=BeginThread(测试())
MessageBox "我是线程0"
RestartScript

Sub 测试()
MessageBox "我是线程1"
End Sub
功能简单,只是说明多线程的使用方法。自己研究一下。

我觉得你这个没有必要使用多线程,首先多线程在测试阶段,不推荐使用,其次你的要求完全可以使用一般的语句实现,下面是我给你的程序代码,前面的yanshi = 1000,是为了防止同时按两个或者三个键时,中间没有延时。
SetSimMode 2
s = 0
m = 0
yanshi = 1000
yanshi0 = 1000 - yanshi
Rem start
a = s mod 10
b = s mod 3
c = s mod 7
If a = 0 Then
KeyPress "A", 1
Delay yanshi
m = m + 1
End If
If b = 0 Then
KeyPress "B", 1
Delay yanshi
m = m + 1
End If
If c = 0 Then
KeyPress "C", 1
Delay yanshi
m = m + 1
End If
If m = 0 Then
Delay 1000
End If
m = 0
s = s + 1
Delay yanshi0
Goto start

多线程写法也很简单,而且容易看懂,修改参数比较简单
BeginThread A
Delay 10
BeginThread B
Delay 10
BeginThread C

Sub A()
While true
KeyPress "A", 1
For 10
Delay 1000
Next
Wend
End Sub

Sub B()
While true
KeyPress "B", 1
For 3
Delay 1000
Next
Wend
End Sub

Sub C()
While true
KeyPress "C", 1
For 7
Delay 1000
Next
Wend
End Sub

将上面的代码做成子程序,然后分别绑定窗口,开启线程即可

这个 暂时不会 不好意思 !

大神帮忙写下按键精灵多线程代码
Window.FindEx(Hwnd2 , 0, "edit",0)TracePrint Hwnd2 & " " & HwndEx2 PauseThread id2 For i = 65 To 100 PauseThread id1 Call Plugin.Window.Active(HwndEx2)KeyPress i, 1 Delay 500 ContinueThread id1 PauseThread id2 Next End Sub 看看我这个玩记事本的差不多一个道理 ...

按键精灵怎么弄多线程
BeginThread a : BeginThread b : BeginThread c BeginThread d : BeginThread e : BeginThread f \/\/声明线程数量,从a-f一共六个 Sub a \/\/ a线程运行程序 End Sub Sub b \/\/ b线程运行程序 End Sub Sub c \/\/ c线程运行程序 End Sub Sub d \/\/ d线程运行程序 End Sub Sub e \/\/ e线程...

按键精灵 多线程
BeginThread 线程1 BeginThread 线程2 sub 线程1()Hwnd = Plugin.Window.MousePoint()While 1 Plugin.Bkgnd.LeftClick Hwnd,485,167 Delay 20 Wend end sub sub 线程2()Hwnd = Plugin.Window.MousePoint()While 1 Plugin.Bkgnd.LeftClick Hwnd,485,167 Delay 20 Wend end sub ...

按键精灵子程序怎么启动多线程
\/\/下面2行是启动线程的,按需求放在需要的位置 ID1 = BeginThread(线程1)ID2 = BeginThread(线程2)\/\/下面两段放哪都可以 Sub 线程1 StopThread ID2 MsgBox “我是线程1,我刚才把线程2停掉了!”End Sub Sub 线程2 StopThread ID1 MsgBox “我是线程2,我刚才把线程1停掉了!”End Sub ...

按键精灵9求个多线程例子 谢谢
MessageBox "多线程命令还在测试当中,并不稳定,请谨慎使用!" & vbcrlf & vbcrlf & "目前演示例子:多线程、多开并后台同时输入文字。"\/\/下面这个例子会打开一个记事本,用3个线程3个记事本同时向其中模拟按键 \/\/所谓多线程并不是同时做一件相同的事情,而是不分前后顺序执行脚本。Dimenv Hwnd1 ...

按键精灵高手来,帮我改下多线程
多线程 命令很纠结 !!下面是我的多线程 源码给你参考 DimEnv QA Call 大漠注册()Do While 7 = 7 KEYP = GetLastKey()If keyP = 118 Then QA = dm.GetMousePointWindow()Call Plugin.Msg.Tips(QA)启动线程 = BeginThread(开始工作)End If loop Sub 开始工作 hwnd = QA Call Plugin.Reg...

按键精灵多线程
\/\/你的参照物是标签栏.bmp你就直接这样写吧,如果你懂环境变量就可以用环境变量写BeginThread FDelay 10BeginThread HDelay 10Sub F() \/\/\/找标题\/\/\/FindPic 0,0,1920,1080,"Attachment:\\标签栏.bmp",0.8,QX,QYIf QX > 0 And QY > 0 Then \/\/\/找标题\/\/\/定位置\/\/\/L1 = QX + 130...

按键精灵怎么实现多线程的其中一个线程一直循环,碰到某图就执行确认_百...
\/\/XXXX 主线程代码 seekImgSubID = BeginThread(seekImg)delay 100 \/\/启动线程需要时间 主线程要求识图立即响应的话 就得加个延时。\/\/然后XXXX 主线程代码继续往下走 \/\/要关闭 识图的线程的时候 StopThread seekImgSubID \/\/下面是识图线程 随便写哪都行 在一个脚本里就好 Sub seekImg()Do ...

按键精灵多线程怎么写
加血条取色,如果某个坐标点颜色是某颜色则执行打怪,如果不是则执行加血。写成一个程序

按键精灵 如何用多线程对同一文件进行读写【解决问题后追加100分】_百 ...
请暂时插入一列辅助列,比如B列,然后对应A1数据的话输入 =VALUE(TEXT(A1,"###-##-##"))-1 然后下拉,将结果的单元格格式设置为日期就可以得到日期格式的结果了,然后将结果复制为“数值”去掉公式就可以了。如果还是要保留原来的数据格式,输入:=YEAR(VALUE(TEXT(A1,"###-##-##"))-1)&...