按键精灵玩QQ连连看脚,QQ游戏连连看辅助

admin 2024-11-10 00:28:33

本文目录一览

1、qq游戏中连连看怎么玩的快？
2、按键精灵玩QQ连连看脚
3、玩QQ游戏里的连连看有什么秘诀？怎么样才能连得更快？

qq游戏中连连看怎么玩的快？

对于中间密集型的，先玩两边，再玩中间对于分散型的，鼠标管他的先点，再找另一个，如果在找的过程中发现两个可以的，放弃原来的那个，然后先解决了那两个，之后再循环。我都是这样玩的，最好是不间断的，越玩越HIGH，胜率还不错。

按键精灵玩QQ连连看脚

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
se(a, b) = GetPixelColor(a * 31 + k, b * 35 + l)
m = m + 1
End If
Next
Next
While m 0 and n m
n = m
For a = 0 To 18
For b = 0 To 10
If se(a, b) bj Then
d=b+1
For c = a To 18
While d = 10
If se(a, b) = se(c, d) Then
If a = c Then
y1 = b + 1
While se(a, y1) = bj
y1=y1+1
Wend
If y1 = d Then
Call 消除():b=d
Exit For
Else
y2=1
While se(a + y2, b) = bj and se(c + y2, d) = bj
y1 = b + 1
While se(a+y2, y1) = bj
y1=y1+1
Wend
If y1 = d Then
Call 消除():b=d
Exit For
End If
y2=y2+1
Wend
y2=1
While se(a - y2, b) = bj and se(c - y2, d) = bj
y1 = b + 1
While se(a-y2, y1) = bj
y1=y1+1
Wend
If y1 = d Then
Call 消除():b=d
Exit For
End If
y2=y2+1
Wend
End If
ElseIf b = d Then
x1 = a + 1
While se(x1, b) = bj
x1=x1+1
Wend
If x1 = c Then
Call 消除()
Exit For
Else
x2=1
While se(a, b + x2) = bj and se(c, d + x2) = bj
x1 = a + 1
While se(x1, b+x2) = bj
x1=x1+1
Wend
If x1 = c Then
Call 消除()
Exit For
End If
x2=x2+1
Wend
x2=1
While se(a, b - x2) = bj and se(c, d - x2) = bj
x1 = a + 1
While se(x1, b-x2) = bj
x1=x1+1
Wend
If x1 = c Then
Call 消除()
Exit For
End If
x2=x2+1
Wend
End If
Else
left2=c:down1=b:up1=b
While se(a,down1-1)=bj
down1=down1-1
Wend
While se(a, up1 + 1) = bj
up1=up1+1
Wend
While se(left2 - 1, d) = bj
left2=left2-1
Wend
If down1=d and up1=d and left2=a Then
Call 消除():b=up1
Exit For
End If
right1=a:down2=d:up2=d
While se(right1+1, b) = bj
right1=right1+1
Wend
While se(c, down2 - 1) = bj
down2=down2-1
Wend
While se(c, up2 + 1) = bj
up2=up2+1
Wend
If up2 = b and down2 = b and right1 = c Then
Call 消除():b=up1
Exit For
End If
left1=a:right2=c:bigy=d:smally=b
While se(left1 - 1, b) = bj
left1=left1-1
Wend
While se(right2 + 1, d) = bj
right2=right2+1
Wend
If b d Then
bigy=b
smally=d
End If
If left1 left2 Then
leftz=left2
Else
leftz=left1
End If
If right1 right2 Then
lefty=right1
Else
lefty=right2
End If
w=0
While wlefty-leftz+1
y1=smally
While se(leftz+w,y1+1)=bj
y1=y1+1
Wend
If y1 = bigy Then
Call 消除():b=up1
Exit For
End If
w=w+1
Wend
If down1 down2 Then
leftx=down2
Else
leftx=down1
End If
If up1 up2 Then
leftw=up1
Else
leftw=up2
End If
w=0
While wleftw-leftx+1
x1=a
While se(x1+1,leftx+w)=bj
x1=x1+1
Wend
If x1 = c Then
Call 消除():b=up1
Exit For
End If
w=w+1
Wend
d=up2
End If
End If
d=d+1
Wend
d=0
Next
End If
Next
Next
Wend
LeftUp 1
End If
End If
End If
End If
Sub 消除()
MoveTo a * 31 + k, b * 35 + l
LeftDown 1
Delay llk
MoveTo c * 31 + k, d * 35 + l
LeftDown 1
se(a, b) = bj
se(c, d) = bj
m = m - 2
End Sub

玩QQ游戏里的连连看有什么秘诀？怎么样才能连得更快？

初学者注意的几个问题：1、刚开始学习连连看，不要太注重速度，首先要认真的去连每一个你点到的图形，不要点了这个没连到，再去找别的。尽量保证你点到之后，找到你所要连的图形。2、连接图形时候的方向，一般人都是由左至右，如果中间距离较远，你鼠标已经在右面，再回去连左侧的图形，再连回来，那样很影响时间。3、挑选距离最近的先连，不要舍近求远，因为剩下的图形越少，你看到的能连的图象就越少。4、刚开始连的时候不要让屏幕离自己太近，一是对眼睛不好，再就是时间长了之后，发现眼睛有痉挛、流眼泪的现象。