• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.6.9
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.6
软件大小:29.2M
更新时间:12-06

按键手机助手
立即下载

软件版本:3.7.6
软件大小:262M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[分享脚本] 连连看源码分享 [复制链接]

1#
本帖最后由 106067746 于 2015-2-6 14:38 编辑


自己倒腾的连连看初级脚本。


//------脚本说明-------------------------------------------------------------
////------初始化---------------------------------------------------------------
dim 颜色,起点X,起点Y, w, h ,a0,a1
Hwnd = Plugin.Window.Find(0, "单机连连看 3.1 官方网址 www.lianliank.com")
TracePrint Hwnd
Call Plugin.Window.Active(Hwnd)
Call Plugin.Window.Restore(Hwnd)
Call Plugin.Window.Move(Hwnd, 0, 50)
sRect = Plugin.Window.GetClientRect(Hwnd)
TracePrint sRect
a = split(srect, "|")
a0=a(0):a1=a(1)
起点X = a(0) + 165 + 20
起点Y = a(1) + 115 + 25
w = 40 : h = 50
Call main()
ExitScript
//******主程序结束***********************************************************
Sub main
Do
For j = 0 To 6
For i = 0 To 11
// Call 成功()
X = 起点X + i * w
Y = 起点y + j * h
颜色 = 坐标颜色(x, y)
If 颜色 <> "000000000000000000" Then
结果 = 找相同(i, j, "横", 0)
//TracePrint x&","&y&" "&结果
if 结果 Then
Call 点击(x, y, split(结果, ",")(0), split(结果, ",")(1))
Else
结果 = 找相同(i, j, "竖", 0)
// TracePrint x&","&y&" "&结果
if 结果 Then
Call 点击(x, y, split(结果, ",")(0), split(结果, ",")(1))
End if
End If
End If
Next
Next
Loop
End Sub
Function 找相同(d1, d2, 方向, 次数)
Dim a, i, j
i=d1:j=d2
If 次数 > 2 Then
找相同 = False
Exit Function
End If
Select Case 方向
Case "竖"
For a = i - 1 To -1 Step - 1
Select Case 坐标颜色(起点X + a * w, 起点y + j * h)
Case 颜色
找相同 = 起点X + a * w & "," & 起点y + j * h
Exit Function
Case "000000000000000000"
找相同 = 找相同(a, j, "横", 次数 + 1)
If 找相同 <> 0 Then
Exit Function
End If
Case Else
Exit For
End Select
Next
For a = i + 1 To 12
Select Case 坐标颜色(起点X + a * w, 起点y + j * h)
Case 颜色
找相同 = 起点X + a * w & "," & 起点y + j * h
Exit Function
Case "000000000000000000"
找相同 = 找相同(a, j, "横", 次数 + 1)
If 找相同 <> 0 Then
Exit Function
End If
Case Else
Exit For
End Select
Next
Case "横"
For a = j - 1 To -1 Step - 1
Select Case 坐标颜色(起点X + i * w, 起点y + a * h)
Case 颜色
找相同 = 起点X + i * w & "," & 起点y + a * h
Exit Function
Case "000000000000000000"
找相同 = 找相同(i, a, "竖", 次数 + 1)
If 找相同 <> 0 Then
Exit Function
End If
Case Else
Exit For
End Select
Next
For a = j + 1 To 7
Select Case 坐标颜色(起点X + i * w, 起点y + a * h)
Case 颜色
找相同 = 起点X + i * w & "," & 起点y + a * h
Exit Function
Case "000000000000000000"
找相同 = 找相同(i, a, "竖", 次数 + 1)
If 找相同 <> 0 Then
Exit Function
End If
Case Else
Exit For
End Select
Next
End Select
找相同= False
End Function
Function 点击(s1, t1, s2, t2)
//TracePrint i&","&j&EVAL((s2-s1)/w)&","&EVAL((t2-t1)/h)
Call Plugin.Bkgnd.LeftClick(Hwnd, s1 - a0, t1 - a1)
Delay 10
Call Plugin.Bkgnd.LeftClick(Hwnd, s2 - a0, t2 - a1)
Delay 10
Call Plugin.Bkgnd.rightClick(Hwnd, s2 - a0, t2 - a1)
End Function
Function 坐标颜色(x1, y1)
Dim a1,a2,a3
a1 =GetPixelColor(x1, y1)
a2 = GetPixelColor(x1+2, y1+2)
a3 = GetPixelColor(x1-2, y1-2)
坐标颜色 = a1&a2&a3
End Function
Function 成功()
Hwndw = Plugin.Window.Find("#32770", "成功")
If hwndw > 0 Then
HwndEx = Plugin.Window.FindEx(Hwndw, 0, "Button", "确定")
Call Plugin.Bkgnd.moveto(Hwndex, 10,10)
Call Plugin.Bkgnd.LeftClick(Hwndex, 10, 10)
For 5
Delay 1000
Next
Else
Exit Function
End If
End Function

附件:您需要登录才可以下载或查看附件。没有帐号? 注册
2#


3#


4#

听任何人核桃仁好让他

5#

看下

6#

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

7#

我需要这个

8#

    非常感谢!    非常感谢!

9#

连看源码分享修改

谭飞
10#


11#

woyao

12#

22222222

13#

好好看看

14#

头欧诺咯累

15#

。。。。。。。。。。。。。。。。

16#

该用户帖子内容已被屏蔽

17#

该用户帖子内容已被屏蔽

18#

该用户帖子内容已被屏蔽

19#

+415321321321

20#

11111111111111111111111111111111

发新话题 回复该主题