按键精灵想实现找到不同的图片执行不同任务的功能。请各位大神指教。。。
按键精灵想实现找到不同的图片执行不同任务的功能。参照别人的范本,自己写了一个脚本,可是不起作用,请各位大神指教。。。DimAA=Array("Attachment:\1....
按键精灵想实现找到不同的图片执行不同任务的功能。参照别人的范本,自己写了一个脚本,可是不起作用,请各位大神指教。。。
Dim A
A = Array("Attachment:\1.bmp", "Attachment:\2.bmp", "Attachment:\3.bmp","Attachment:\4.bmp")
For i = 0 To UBound(A)
FindPic 0, 0, 1440,900, A(i), 0.9, intX, intY
If intX > 0 And intY > 0 And i = 0 Then
Call 任务1()
ElseIf intX > 0 And intY > 0 And i = 1 Then
Call 任务2()
ElseIf intX > 0 And intY > 0 And i = 2 Then
Call 任务3()
ElseIf intX > 0 And intY > 0 And i = 3 Then
Call 任务4()
End If
Next
Sub 任务1()
。。。
End Sub
Sub 任务2()
。。。
End Sub
Sub 任务3()
。。。
End Sub
Sub 任务4()
。。。
End Sub 展开
Dim A
A = Array("Attachment:\1.bmp", "Attachment:\2.bmp", "Attachment:\3.bmp","Attachment:\4.bmp")
For i = 0 To UBound(A)
FindPic 0, 0, 1440,900, A(i), 0.9, intX, intY
If intX > 0 And intY > 0 And i = 0 Then
Call 任务1()
ElseIf intX > 0 And intY > 0 And i = 1 Then
Call 任务2()
ElseIf intX > 0 And intY > 0 And i = 2 Then
Call 任务3()
ElseIf intX > 0 And intY > 0 And i = 3 Then
Call 任务4()
End If
Next
Sub 任务1()
。。。
End Sub
Sub 任务2()
。。。
End Sub
Sub 任务3()
。。。
End Sub
Sub 任务4()
。。。
End Sub 展开
若以下回答无法解决问题,邀请你更新回答
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询