按键精灵区域找图不成功，找不出原因呀？

Question

图已经导入附件，单独测试找图没问题。导入整个代码就不执行了。相似度调到0.7或0.9都不行。这是为什么呀？
Text = Plugin.File.ReadFileEx("C:\账号.txt")
dim M
M= Split(Text, "|")
i=0
For UBound(M)
MoveTo 785, 475
Delay 200
LeftDoubleClick 1
Delay 200
SayString M(i)
Delay 200
MoveTo 787, 507
LeftClick 1
Delay 200
k="dkldjf45rejj"
Delay 200
SayString k
MoveTo 825, 577
Delay 200
LeftClick 1
Delay 4000
FindPic 300,300,1024,768,"Attachment:\手.bmp",0.7,intX,intY
If intX > 0 And intY > 0 Then
End If
Delay 500
MoveTo intX, intY
Delay 500
LeftClick 1
MoveTo 772, 157
Delay 200
LeftClick 1
Delay 200
MoveTo 711, 209
Delay 3000
LeftClick 1
Delay 1000
i=i+1
Next
鼠标都是移动左上角，找不到图。

Answer 1

//既然单独找图没问题，就是动作不协调，改改就行
Text = Plugin.File.ReadFileEx("C:\账号.txt")
dim M
M= Split(Text, "|")
i=0
For UBound(M)
MoveTo 785, 475
Delay 200
LeftDoubleClick 1
Delay 200
SayString M(i)
Delay 200
MoveTo 787, 507
LeftClick 1
Delay 200
k="dkldjf45rejj"
Delay 200
SayString k
MoveTo 825, 577
Delay 200
LeftClick 1
Delay 4000
Rem q//找到为止
Delay 500
FindPic 300,300,1024,768,"Attachment:\手.bmp",0.7,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 500
LeftClick 1
Else
Goto q
End If
MoveTo 772, 157
Delay 200
LeftClick 1
Delay 200
MoveTo 711, 209
Delay 3000
LeftClick 1
Delay 1000
i=i+1
Next追问

执行了20行，就停止了？没有找图动作了
FindPic 500,500,1024,768,"Attachment:\手.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
End If
Delay 500
MoveTo intX, intY
Delay 500
LeftClick 1
这样单独抓图，一点问题都没有。

追答

这个问题估计要远程看看才行，QQ=百度号