Question

按键精灵 多线程问题 怎么运行起来变慢了。请指教？

MoveTo 1565,690
Delay 200
LeftClick 1

Dim intX,intY

BeginThread hh01
BeginThread hh02
BeginThread hh03
BeginThread hh04

Sub hh01
FindPic 600,720,800,940,"Attachment:\01.bmp",1,intX,intY
Call 动作()
End Sub

Sub hh02
FindPic 600,720,800,940,"Attachment:\02.bmp",1,intX,intY
Call 动作()
End Sub

Sub hh03
FindPic 600,720,800,940,"Attachment:\03.bmp",1,intX,intY
Call 动作()
End Sub

Sub hh04
FindPic 600,720,800,940,"Attachment:\04.bmp",1,intX,intY
Call 动作()
End Sub

Sub 动作()
If 800 > intX > 600 And 790 > intY > 720 Then
MoveTo 1600, 740
LeftClick 10
Delay 2000
KeyPress "Enter", 1
Delay 1000
MoveTo 450, 260
LeftClick 1
Delay 1000
KeyPress "F5", 1
Delay 1000
ElseIf 800 > intX > 600 And 860 > intY > 790 Then
MoveTo 1600, 815
LeftClick 10
Delay 2000
KeyPress "Enter", 1
Delay 1000
MoveTo 450, 260
LeftClick 1
Delay 1000
KeyPress "F5", 1
Delay 1000
ElseIf 800 > intX > 600 And 940 > intY > 860 Then
MoveTo 1600, 885
LeftClick 10
Delay 2000
KeyPress "Enter", 1
Delay 1000
MoveTo 450, 260
LeftClick 1
Delay 1000
KeyPress "F5", 1
Delay 1000
End If
End Sub

Answer 1

你怎么不再多开点线程呢！！！

beginthread （find）
sub find（）
dm_ret = dm.FindPic(0, 0, 2000, 520, "1.bmp|2.bmp|3.bmp|4.bmp|5.bmp|6.bmp", "000000", 0.9, 0, intX, intY)
if intx>0 then
call 动作
end sub

Answer 2

每个线程都要占用CPU和内存，四个线程同时运行，感觉慢也很正常！