/
mouse.Q
99 lines (90 loc) · 2.17 KB
/
mouse.Q
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
//按键精灵 脚本代码
//上一次(判断是否是第一次,第一次时shangyici = 0,不然就是别的数)
shangyici = 0
//创建ReadAllTextFile函数
Function ReadAllTextFile
//Const ForReading = 1, ForWriting = 2
//定义fso与f
Dim fso, f
//赋值给fso与f,fso好像没用
Set fso = CreateObject("Scripting.FileSystemObject")
//f是文件xianzhuang.txt的句柄差不多的东细,1为读取模式
Set f = fso.OpenTextFile("D:\Study\python_study\waigua\xianzhuang.txt", 1)
//f.ReadAll是全读
ReadAllTextFile = f.ReadAll
End Function
//此函数的返回值为 字符串
//用y字符分离,并返回数组
zuobiaoqun = Split(ReadAllTextFile, "y")
//UBound提供此数组的下标总数
xiabiao = UBound(zuobiaoqun, 1)
temp = Split(zuobiaoqun(0), "x")
MoveTo temp(0), temp(1)
//双击并点击不动
LeftDoubleClick 2
LeftDown 1
Delay 100
//循环,从1~下标-1,并移动
For i=1 To xiabiao-1
TracePrint zuobiaoqun(i)
temp = Split(zuobiaoqun(i), "x")
MoveTo temp(0), temp(1)
Delay 100
Next
shangyici = ReadAllTextFile
Delay 2000
MoveTo 298,787
LeftDoubleClick 2
MoveTo 298,787
LeftDoubleClick 2
MoveTo 0, 0
GetColor = GetPixelColor(426, 524)
If GetColor = "00DDAB" Then
Delay 1000
MoveTo 426, 524
Delay 200
LeftDoubleClick 2
Delay 1000
MoveTo 132, 254
LeftDoubleClick 2
Delay 2000
End If
//当循环条件成立的时候,反复执行循环体
If shangyici <> "0" Then
While True
If ReadAllTextFile <> shangyici Then
ReadAllTextFile
zuobiaoqun = Split(ReadAllTextFile, "y")
xiabiao = UBound(zuobiaoqun, 1)
temp = Split(zuobiaoqun(0), "x")
MoveTo temp(0), temp(1)
LeftDoubleClick 2
LeftDown 1
Delay 100
For i=1 To xiabiao-1
TracePrint zuobiaoqun(i)
temp = Split(zuobiaoqun(i), "x")
MoveTo temp(0), temp(1)
Delay 100
Next
shangyici = ReadAllTextFile
Delay 2000
MoveTo 298,787
LeftDoubleClick 2
MoveTo 298,787
LeftDoubleClick 2
MoveTo 0, 0
GetColor = GetPixelColor(426, 524)
If GetColor = "00DDAB" Then
Delay 4000
MoveTo 426, 524
Delay 200
LeftDoubleClick 2
Delay 1000
MoveTo 132, 254
LeftDoubleClick 2
Delay 2000
End If
End If
Wend
End If