按键精灵找图基础写法

//Sub 找图点击(图片)
//    FindPic 0, 0, 3000, 3000, "c:\" & 图片 & ".bmp", 0.8, x, y
//    If x >= 0 Then 
//        MoveTo x, y
//        LeftClick 1
//        TracePrint 图片
//    End If
//    Delay 500
//End Sub
//Do
//    找图点击 "完成任务"
//    找图点击 "立即装备"
//Loop
//另一种写法
Sub 找图点击(图片, 图片数量)
    图标列表 = Split(图片, "|")
    For i = 0 To 3
        FindPic 0, 0, 3000, 3000, "c:\" & 图标列表(i) & ".bmp", 0.8, x, y
        If x >= 0 Then 
            MoveTo x, y
            LeftClick 1
            TracePrint 图片
        End If
    Next
    Delay 500
End Sub
Do
    Call 找图点击("完成任务|立即装备|学习技能|自动提取",4)
Loop