留名看看…………看啥看你在我楼下，看瞎了也只能看我的小尾巴。

学习ing

Do
For i = 1 To 9
FindPic 15, 30, 640, 510, "attachment:" & cstr(i) & ".bmp", 0.9, intx, inty
If intx > 0 and inty > 0 Then
If 打猎(intx, inty) = - 1 Then
ExitScript
End If
End If
Next
Loop
Function 打猎(x, y)
MoveTo x + 2, y + 2
LeftClick 1
Delay 10
MoveTo 100, 100
打猎 = 1
End Function
大概是这样吧！这不太合适新手看的。
讲解起来篇幅会变长不少

i=0
Do
　 i = i mod 9
　 FindPic 15, 30, 640, 510, "attachment:" & cstr(i) & ".bmp", 0.9, intx, inty
　 If intx > 0 and inty > 0 Then
　 MoveTo x + 2, y + 2
　 LeftClick 1
　　　Delay 10
　　MoveTo 100, 100
　　End If
　　i = i + 1
Loop
文件从０开始命名。上一个从１开始命名

新手提个问题
为毛我的熊和鹿打的到 其他的不是鼠标不移过去 就是不射箭??
难道我截的图那么不好认.....

的确适合新手看,不知道这个脚本是不是讲解本人做的,他根本没绑定句柄,截图怎么可能是黑色的呢