笙凌涩舞 笙凌涩舞
关注数: 59 粉丝数: 263 发帖数: 1,209 关注贴吧数: 25
请大神指点 为什么不管刷到哪张图片都执行任务1? 请大神帮我改正一下 Dim 图片,任务 图片 = array("Attachment:\1包工头.bmp", "Attachment:\2跛脚大盗.bmp", "Attachment:\3店小二.bmp", "Attachment:\4葛朗台.bmp", "Attachment:\5官兵.bmp", "Attachment:\26迎客道人.bmp", "Attachment:\23小商贩.bmp")//有多少任务相应加上去注意格式是字符串 Do For i = 0 To 6//这里4表示5个任务,如果这里写9表示有10个任务,要与上面对应 Delay 200 FindPic 0,0,1024,768,图片(i),0.9,intX,intY If intX > 0 And intY > 0 Then 任务 = i Exit do End If Next Delay 400 Loop Select Case 任务 Case 0//这里0表示接的是任务1 MoveTo 242, 738 Delay 800 LeftClick 1 MoveTo 96, 538 Delay 2322 LeftClick 1 Case 1//这里1表示接的是任务2 MoveTo 419, 75 Delay 142 LeftClick 1 MoveTo 247, 734 Delay 812 LeftClick 1 MoveTo 96, 528 Delay 2432 LeftClick 1 Case 2//这里2表示接的是任务3 MoveTo 411, 92 MoveTo 423, 73 Delay 420 LeftDown 1 MoveTo 424, 72 Delay 100 LeftUp 1 Case 3//这里3表示接的是任务4 MoveTo 417, 126 MoveTo 422, 77 Delay 472 LeftClick 1 MoveTo 234, 742 Delay 620 LeftDown 1 MoveTo 234, 744 Delay 100 LeftUp 1 MoveTo 194, 591 Delay 1860 Case 4//这里4表示接的是任务5 MoveTo 354, 233 MoveTo 412, 76 Delay 670 LeftClick 1 MoveTo 249, 747 Delay 980 LeftClick 1 MoveTo 92, 530 Delay 2444 LeftClick 1 MoveTo 150, 196 Case Else //否则 End Select //到这里表示其中一个随机任务已经完成,接上后续代码
1 下一页