[按键精灵] 纯文本查看 复制代码
Function 返回到主界面
Dim A(),t,i
i = 0
A(0) = { "885511", "-20|-34|794E0E,-51|6|5CB1E4,-11|48|2B80B3,43|7|105386,6|7|FFFFB9,37|-21|1A6FA2,-5|9|856305"}
A(1) = { "D4BB51", "-24|-12|845200,8|-18|936413,23|-19|BF8E33,4|42|185074,45|-2|023966,-6|-50|2378AB,-48|-2|3A95C4,-19|20|8B5F16"}
A(2) = {"885511", "-20|-34|794E0E,-51|6|5CB1E4,-11|48|2B80B3,43|7|105386,6|7|FFFFB9,37|-21|1A6FA2,-5|9|856305"}
A(3) = {"FFE46B","-8|-7|7D4B00,0|-13|87560A,5|-20|FFFFA7,14|-10|FFFFF0,20|0|B89641,-12|10|FFDD88,-32|-4|2277AA,25|-28|76BADC,25|9|F0DB8E"}
A(4) = {"A87A34", "11|-7|F9F6ED,-4|21|865509,-19|2|815000,-21|-22|234863,20|-20|76BADC,20|28|8ED2F4,-26|26|16689A,-32|7|84510D"}
A(5) = {"A87A34", "11|-7|F9F6ED,-4|21|865509,-19|2|815000,-21|-22|234863,20|-20|76BADC,20|28|8ED2F4,-26|26|16689A,-32|7|84510D"}
A(6) = {"FFE975","0|-12|86530F,2|-19|FFF590,-9|-19|FFE47E,-9|4|F7DD77,-12|29|734300,19|-9|AE882F,-34|24|427597,43|-1|8FD3F5,-37|-15|3C3D3B"}
A(7) = {"F8E068","3|-10|8A5713,4|12|7F6213,-10|13|FFE987,-25|3|805300,4|-27|A47419,24|7|CDA351,-32|-2|499DCF,34|5|8FE4F5"}
A(8) = {"F5DF7C","7|2|F5D967,12|-13|F5F093,17|-1|B09C5B,19|17|F5F5DA,-2|26|714400,47|1|77B4D5,-29|1|2172A3,4|17|744302,8|-27|744707"}
A(9) = {"95E5FF","15|-1|5F9BDD,33|-6|9FF1FC,45|-11|70B4FE,37|-22|558AD3,29|8|C8D9EA,13|17|010193,34|20|B9B9D9,4|-30|000167,49|-32|1B3D99"}
Do
i = i + 1
t = zm.FindMultiColor(1, 1, 312, 173, A)
Delay 300
If t Then
Exit Do
Else
ShowMessage "关闭/返回", 5000, 150, 80
TracePrint "关闭/返回"
KeyPress "Back"
End If
If i > 20 Then
Exit Do
End If
Loop
End Function