按键精灵9 自动输入后根据图片做出判断

Question

在原有代码上加上点条件：
word = Plugin.File.ReadFileEx("E:\111.txt")
//分割为行
Dim hang
hang = split(word, "|")
//循环打出每一行
For i = 0 To UBound(hang)
SayString hang(i)
Delay 500
KeyPress "Enter", 1
KeyPress "Num 0", 10
Delay 200
KeyPress "Enter", 1（此时弹出的对话框为1.bmp或2.bmp）
---------------------添加命令处--------------------------------
暂停
如果符合F：\1.bmp，将刚才循环输入的文本保存到F：\1.txt
如果符合F：\2.bmp，继续下面命令
----------------------------------------------------------------
Delay 200
KeyPress "Enter", 1
Delay 200
KeyPress "Tab", 1
Delay 200
Next
//暂停，任意键继续
WaitKey
PS:图片大小为800*600，底色相同，只是上面的文字不同，文字长度也不同。能做到吗？

Answer 1

word = Plugin.File.ReadFileEx("E:\111.txt")
//分割为行
Dim hang
hang = split(word, "|")
//循环打出每一行
For i = 0 To UBound(hang)
SayString hang(i)
Delay 500
KeyPress "Enter", 1
KeyPress "Num 0", 10
Delay 200
i=1
While i=1
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then


set fso=CreateObject("Scripting.FileSystemObject")
set myfile=fso.createtextfile("F:\1.txt")
myfile.writeline(hang(i))
Else
End If
FindPic 0,0,1024,768,"Attachment:\2.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i=0
End If
Wend
Delay 200
KeyPress "Enter", 1
Delay 200
KeyPress "Tab", 1
Delay 200
Next
//暂停，任意键继续
WaitKey

应该就是这个效果了 

追问

有点小毛病，当遇到条件1时，不能保存到F：\1txt。是不是识图精确度不够高啊？

还有就是"E:\111.txt"循环到第2条文本后就不能继续下一条了。

如果方便的话留个联系方式，搞定比有谢