//功能模块
Function 寻找(数组特征)
Dim arr(),arr1()
arr = 数组特征
arr1 = Split(arr(0), ",")
FindMultiColor arr1(0), arr1(1), arr1(2), arr1(3), arr(1), arr(2), 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
寻找 = True
Else
寻找 = False
End If
End Function
Sub 点击()
Tap intX, intY
End Sub
Function 倒计时(x)
For x - 1
x = x - 1
ShowMessage "第"&i&"次喊话,"&"距离下一次还有" & CStr(x) & "秒", 0,0,1300
Delay 1000
Next
End Function
Function 循环查找(特征)
Do
If 寻找(特征) = True Then
Exit Do
End If
Delay 50
Loop
End Function
//获取中国式的时间格式，返回时间字符串
Function 系统时间()
Dim 时()
时 = Split(Now(), " ")
系统时间 = Date() &" "& 时(3)
End Function
//赋值数组
Dim 聊天 = Array("126,1852,226,1901","171717-101010","0|-7|171717-101010,-7|-7|000000-101010,-7|0|000000-101010,-6|-1|181818-101010")
Dim 输入信息 = Array("175,1701,400,1758","0C0C0C-101010","0|7|0F0F0F-101010,189|7|0F0F0F-101010,189|0|0C0C0C-101010,190|0|555555-101010")
Dim 小喇叭 = Array("13,1153,1057,1700","949294-101010","14|7|08C2EF-101010,2|28|0B0B18-101010,26|28|161621-101010,22|35|0D0C16-101010,6|35|0D0C16-101010")
Dim 安全锁 = Array("146,723,400,826","000000-101010","-10|0|000000-101010,-10|-9|000000-101010,0|-9|000000-101010,-2|-8|262626-101010")
Dim 世界 = Array("178,423,258,550","FFFFFF-101010","15|0|FFFFFF-101010,15|8|FFFFFF-101010,0|8|FFFFFF-101010,1|7|EAEAEA-101010")
Dim 发送 = Array("102,1499,228,1582","D2D2D2-101010","10|4|000000-101010,0|18|000000-101010,-14|26|000000-101010,16|26|000000-101010")
Dim 药品 = Array("420,1593,579,1729","8E5F0E-101010","-14|2|504014-101010,-22|16|6A4106-101010,-27|26|E6DCA2-101010,-38|32|6B4717-101010,-4|22|D1BC72-101010,-29|18|D1B861-101010")
Dim 频道 = Array("910,1708,1061,1760","D3E7E3-101010","13|0|D3E7E3-101010,13|13|D5EAE5-101010,0|13|D5EAE5-101010,1|11|B5BCAF-101010")
Dim 道具 = Array("411,1757,589,1912", "BA9633-101010", "-6|9|AB924A-101010,16|9|A26504-101010,31|12|E3D288-101010,46|9|DECC75-101010")
Dim 使用 = Array("131,1089,327,1165", "DEF6F6-101010", "13|0|DAF2F2-101010,13|10|DBF4F4-101010,0|10|DEF7F7-101010,1|8|C2D4D3-101010")
Dim 发送2 = Array("110,1566,217,1683","D0D0D0-101010","-29|-1|000000-101010,-15|-1|000000-101010,-23|14|000000-101010,-37|21|000000-101010")
Dim 世界2 = Array("157,499,262,661","FFFFFF-101010","16|0|FBFBFB-101010,16|9|EAEAEA-101010,0|8|FFFFFF-101010,2|7|BEBEBE-101010")
//定义一些变量
Dim intX,intY//找色返回值
Dim 喊话内容
Dim i = 1//喊话次数
Dim 时间
//获取UI界面配置
If ReadUIConfig("下拉框1") = 0 Then
喊话内容 = ReadUIConfig("文本1")
ElseIf ReadUIConfig("下拉框1") = 1 Then
喊话内容 = ReadUIConfig("文本2")
ElseIf ReadUIConfig("下拉框1") = 2 Then
喊话内容 = ReadUIConfig("文本3")
End If
Dim 密码 = ReadUIConfig("密码")
If ReadUIConfig("加入时间") Then
时间 = 系统时间()
End If
//Dim 输入法 = MatchIME()
//If 输入法 < 0 Then
// ShowMessage "没有获取到输入法类型"
//Else
// ShowMessage 输入法
//End If
//Delay 1000
//主线循环
//先吃小喇叭
If ReadUIConfig("先吃个喇叭") = True Then
call 循环查找 (道具)
call 点击()
Delay 100
call 循环查找 (小喇叭)
call 点击()
Delay 100
call 循环查找 (使用)
call 点击()
Delay 100
End If
//是否有安全锁
Do
Delay 100
If 寻找(小喇叭) = False Then
If 寻找(安全锁) Then
If ReadUIConfig("安全锁密码") Then
Delay 100
KeyPress ""
Delay 50
InputText 密码
Delay 50
Call 点击()
Delay 50
Exit Do
Else
Delay 500
End If
Else
If ReadUIConfig("先吃个喇叭") = True Then
KeyPress "back"
Delay 50
call 循环查找 (使用)
call 点击()
Delay 100
End If
End If
Else
KeyPress "back"
Delay 100
Exit Do
End If
Loop
Rem 标记
Delay 100
Do
If 寻找(聊天) And 寻找(道具) Then
call 寻找(聊天)
call 点击()
Delay 100
Exit Do
ElseIf 寻找(输入信息) And 寻找(频道) Then
call 寻找(输入信息)
Call 点击()
Delay 300
Exit Do
Else
KeyPress "back"
Delay 500
End If
Loop
Do
If 寻找(世界) or 寻找(世界2) Then
Exit Do
ElseIf ShanHai.Timer(1, 1) Then
KeyPress "back"
Delay 100
Goto 标记
End If
Delay 300
Loop
//输入区域
KeyPress ""
Delay 50
If ReadUIConfig("喊话内容缩进") Then
If ReadUIConfig("下拉框2") = 0 Then
KeyPress "enter"
Delay 50
ElseIf ReadUIConfig("下拉框2") = 1 Then
KeyPress "enter"
Delay 50
KeyPress "enter"
Delay 50
ElseIf ReadUIConfig("下拉框2") = 2 Then
KeyPress "enter"
Delay 50
KeyPress "enter"
Delay 50
KeyPress "enter"
Delay 50
End If
End If
Delay 50
If ReadUIConfig("喊话次数") Then
InputText "第" & i & "次喊话:"
Delay 100
End If
If ReadUIConfig("开启屏蔽字功能") Then
If IsNull(时间)= False Then
InputText "/f()" & 喊话内容 & " " & 时间
Delay 100
Else
InputText "/f()" & 喊话内容
Delay 100
End If
Else
If IsNull(时间) = False Then
InputText 喊话内容 & " " & 时间
Delay 100
Else
InputText 喊话内容
Delay 100
End If
End If
If ReadUIConfig("喊话内容缩进") Then
If ReadUIConfig("下拉框2") = 0 Then
KeyPress "enter"
Delay 50
ElseIf ReadUIConfig("下拉框2") = 1 Then
KeyPress "enter"
Delay 50
KeyPress "enter"
Delay 50
ElseIf ReadUIConfig("下拉框2") = 2 Then
KeyPress "enter"
Delay 50
KeyPress "enter"
Delay 50
KeyPress "enter"
Delay 50
End If
End If
//判断界面
Do
If 寻找(世界) or 寻找(世界2) Then
call 点击()
Delay 50
Exit Do
End If
Delay 100
Loop
Delay 50
Do
If 寻找(发送) or 寻找(发送2) Then
call 点击()
Delay 50
Exit Do
Else
Delay 500
End If
Loop
倒计时 (60)
i = i + 1//喊话次数加1
时间 = 系统时间()//更新时间
//是否要吃喇叭
If (i Mod 10) = 1 Then
Do
//判断界面
If 寻找(输入信息) Then
KeyPress "back"
Delay 50
Do
If 寻找(道具) Then
Call 点击()
Delay 100
Exit Do
Else
KeyPress "back"
Delay 50
End If
Loop
Do
If 寻找(小喇叭) Then
Delay 100
call 点击()
Delay 100
If 寻找(使用) Then
Delay 100
call 点击()
Delay 100
KeyPress "back"
Delay 50
Exit Do
End If
Else
Call 寻找(道具)
Call 点击()
Delay 50
End If
Loop
Exit Do
//判段界面
ElseIf 寻找(聊天) And 寻找(道具) Then
call 循环查找(道具)
call 点击()
Delay 100
Do
If 寻找(小喇叭) Then
call 点击()
Delay 100
If 寻找(使用) Then
call 点击()
Delay 100
KeyPress "back"
Delay 50
Exit Do
End If
Else
Call 寻找(道具)
Call 点击()
Delay 50
End If
Loop
Exit Do
//界面不符合，返回
Else
KeyPress "back"
Delay 500
End If
Loop
End If
Goto 标记