按键精灵找到图执行找色,找不到图就循环找图,这段找图代码运行不了,不知道哪里出错了,求帮忙
Rem标记FindPic12,35,1024,600,"Attachment:\11.bmp",0.9,intX,intYIfintX=-1ThenGoto标记EndIf...
Rem 标记
FindPic 12,35,1024,600,"Attachment:\11.bmp",0.9,intX,intY
If intX = - 1 Then
Goto 标记
End If
dim q(10)
q(0)="FFFDD2"
q(1)="FFFDED"
q(2)="FFFDD5"
q(3)="FFFCEE"
q(4)="FEF5E1"
q(5)="FFFFB3"
q(6)="FEE8BA"
q(7)="FFFFE5"
q(8)="FFFF77"
q(9)="FFFDD1"
Do
For i=0 to 9
//区域范围你自己改
FindColor 12,35,1024,600,q(i),intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1
call a()
Exit For
End If
Next
Loop
Sub a()
End Sub 展开
FindPic 12,35,1024,600,"Attachment:\11.bmp",0.9,intX,intY
If intX = - 1 Then
Goto 标记
End If
dim q(10)
q(0)="FFFDD2"
q(1)="FFFDED"
q(2)="FFFDD5"
q(3)="FFFCEE"
q(4)="FEF5E1"
q(5)="FFFFB3"
q(6)="FEE8BA"
q(7)="FFFFE5"
q(8)="FFFF77"
q(9)="FFFDD1"
Do
For i=0 to 9
//区域范围你自己改
FindColor 12,35,1024,600,q(i),intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1
call a()
Exit For
End If
Next
Loop
Sub a()
End Sub 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询