按键精灵怎样做连连看脚本

来源:百度知道 编辑:UC知道 时间:2024/05/12 05:40:31
说下思路,最好能做个出来我参考下,谢谢

。。。这个有点难度呀,你要设置很多条件的。。然后就是找图。还要判断是否2个图能连上。。

Dim se(19, 11)
UserVar llk=0 "消除时间"
e = Plugin.Window.Find(0, "QQ游戏 - 连连看角色版")
f = Plugin.window.Foreground()
g = Plugin.Sys.GetScRX()
h = Plugin.Sys.GetScRY()
If e > 0 Then
If f = e Then
i = Plugin.Window.GetWindowRect(e)
j = Split(i, "|")
k = Int(j(0))
l = Int(j(1))
bj="无"
If k >= 0 and l >= 0 and k + 799 <= g and y + 599 <= h Then
rect=GetPixelColor(664+k,96+l)
IfColor k + 64, l + 80, rect, 1 Then
k = k + 28
l = l + 195
m = 0
n = 1
For a = 0 To 18
For b = 0 To 10
se(a, b) = bj
IfColor a * 31 - 12 + k, b * 35 - 13 + l, rect, 0 Then