使用按键精灵自动识别图片点击,如何把下面10个图片依次执行点击?
FindPic0,0,1024,768,"Attachment:\1层.bmp",0.9,intX,intYIfintX>0AndintY>0ThenMoveTo991,...
FindPic 0,0,1024,768,"Attachment:\1层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
End If
FindPic 0,0,1024,768,"Attachment:\2层.bmp",0.9,intX,intY
MoveTo 991, 526
LeftClick 1
If intX > 0 And intY > 0 Then
End If
FindPic 0,0,1024,768,"Attachment:\3层.bmp",0.9,intX,intY
MoveTo 991, 526
LeftClick 1
If intX > 0 And intY > 0 Then
End If
FindPic 0,0,1024,768,"Attachment:\4层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
End If
FindPic 0,0,1024,768,"Attachment:\5层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
End If
FindPic 0,0,1024,768,"Attachment:\6层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
End If
FindPic 0,0,1024,768,"Attachment:\7层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
End If
FindPic 0,0,1024,768,"Attachment:\8层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
End If
FindPic 0,0,1024,768,"Attachment:\9层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
End If
FindPic 0,0,1024,768,"Attachment:\10层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
Delay 1000
End If 展开
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
End If
FindPic 0,0,1024,768,"Attachment:\2层.bmp",0.9,intX,intY
MoveTo 991, 526
LeftClick 1
If intX > 0 And intY > 0 Then
End If
FindPic 0,0,1024,768,"Attachment:\3层.bmp",0.9,intX,intY
MoveTo 991, 526
LeftClick 1
If intX > 0 And intY > 0 Then
End If
FindPic 0,0,1024,768,"Attachment:\4层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
End If
FindPic 0,0,1024,768,"Attachment:\5层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
End If
FindPic 0,0,1024,768,"Attachment:\6层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
End If
FindPic 0,0,1024,768,"Attachment:\7层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
End If
FindPic 0,0,1024,768,"Attachment:\8层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
End If
FindPic 0,0,1024,768,"Attachment:\9层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
End If
FindPic 0,0,1024,768,"Attachment:\10层.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 991, 526
LeftClick 1
Delay 1000
End If 展开
2个回答
展开全部
Rem a
FindPic 0,0,1024,768,"Attachment:\1层.bmp",0.9,intX,intY
If intX >= 0 And intY >= 0 Then
MoveTo intX+5,intY+5
Delay 100
Leftclick 1
Delay 100
Else
Goto a
End If
Rem b
FindPic 0,0,1024,768,"Attachment:\2层.bmp",0.9,intX,intY
If intX >= 0 And intY >= 0 Then
MoveTo intX+5,intY+5
Delay 100
Leftclick 1
Delay 100
Else
Goto b
End If
以此类推3层,4层就像这么编辑下去Rem 及Goto很重要
FindPic 0,0,1024,768,"Attachment:\1层.bmp",0.9,intX,intY
If intX >= 0 And intY >= 0 Then
MoveTo intX+5,intY+5
Delay 100
Leftclick 1
Delay 100
Else
Goto a
End If
Rem b
FindPic 0,0,1024,768,"Attachment:\2层.bmp",0.9,intX,intY
If intX >= 0 And intY >= 0 Then
MoveTo intX+5,intY+5
Delay 100
Leftclick 1
Delay 100
Else
Goto b
End If
以此类推3层,4层就像这么编辑下去Rem 及Goto很重要
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |