While true FindPic 0,0,1920,1080,"Attachment:\血量211.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then KeyPress "8", 1 Delay 1000 End If FindPic 0,0,1920,1080,"Attachment:\血量20以下.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then KeyPress "9", 1 End If Wend 我用图片测试能行,可是在游戏里不能使用,要怎么解决?
Rem 开始 FindColor 952,174,1028,249,"9148E4",intX,intY If intX > 953 And intY > 175 Then Goto 返回 End If Dim q(5) q(1)="10CEFF" q(2)="6FE5D6" q(3)="70FDF7" q(4)="979797" q(5)="004C78" Do t=now For i=1 to 5 FindColor 0,0,1024,768,q(i),intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY+5 Delay 200 LeftClick 1 Delay 700 Goto 开始 Else If DateDiff("s",t,now)>4 Then Goto 飞 End If Exit For End If Next Loop // Rem 飞 Delay 200 KeyPress "F5", 1 Delay 200 Goto 开始 // Rem 返回 Delay 400 KeyPress "F9", 1 帮看看这段代码有什么问题,可以执行,但是调试时候老是提示 dim Q5 那段类型不匹配。 然后执行找色只能找到第一个色!