1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
| //Dim 定义变量 array是多点的数据，具体怎么得到看说明
Dim game = array(472,436,535,499,"000000","0|0|000000,0|0|000000,0|0|000000,0|0|000000")
Dim signIn = array(84,1148,291,1202,"FFFFFF","10|1|FFFFFF,32|1|FFFFFF,44|5|FFFFFF,4|11|FFFFFF")
//调用函数 找多点 找game那个点，即QQ图标
Call 找多点(game, 1)
//延迟3秒 等待3秒
Delay 3000
// 找登陆按钮 点击
Call 找多点(signIn, 1)
Delay 3000
//找QQ账号输入框 单击
Dim qqNo = array(38,274,125,308,"D8D2D1","11|0|DBD6D6,26|-3|E0DAE3,33|8|DBD6D5,7|17|D7D2CF,29|17|D7D2CF")
Call 找多点(qqNo, 1)
//输入账号
InputText "123456789"
Delay 1000
Dim qqMm = array(38,298,103,332,"ECE9EF","5|0|ECE9EF,11|0|ECE9EF,33|-1|ECE9F0,42|11|ECE9F0,12|4|ECE9EF")
//找QQ密码输入框 单击
Call 找多点(qqMm, 1)
//输入密码，以读取文件的方式
InputText File.ReadLine("/sdcard/MobileAnjian/qqcount.txt", 1)
Delay 1000
//点击登录按钮
Dim login = array(309,388,415,434,"EFB522","19|-1|EFB522,35|4|F3CD6F,8|19|FFFFFF")
Call 找多点(login, 1)
//这是一个函数，找多点。模式=1是会单击找到的位置
Function 找多点(数组, 模式)
TracePrint "dianjile"
找多点 = False
Dim arr,intX,intY
arr = 数组
FindMultiColor arr(0), arr(1), arr(2), arr(3), arr(4), arr(5), 0, 0.9, intX, intY
TracePrint intX&intY
If intX > -1 Then
找多点 = True
If 模式 = 1 Then
Tap intX, intY
TracePrint "dianjile"
End If
End If
End Function
|
