[按键精灵] 纯文本查看 复制代码
Function scbj(a, b, c, d,num)
If zm.FindPic(a, b, c, d, "图1.png", 0.9) Then
t1= 1
ElseIf zm.FindPic(a, b, c, d, "图2.png", 0.9) Then
t2= 2
ElseIf zm.FindPic(a, b, c, d, "图3.png", 1) Then
t3 = 3
ElseIf zm.FindPic(a, b, c, d, "图4.png", 1) Then
t4 = 4
ElseIf zm.FindPic(a, b, c, d, "图5.png", 0.9) Then
t5 = 5
ElseIf zm.FindPic(a, b, c, d, "图6.png", 1) Then
t6 = 6
ElseIf zm.FindPic(a, b, c, d, "图7.png", 0.9) Then
t7 = 7
End If
Delay spd
fs = t1+ t2+ t3 + t4 + t5 + t6 + t7
TracePrint pm,js,gs,zs,fzg,zg,dzg,num,gzl
End Function