简介：又一个小文弄着玩的东东，安卓平台某盘帐号批量自动签到。
尺寸： 720*1280
DPI：320
宿主：3.1.2.10711
系统：Android v5.11
某盘：v6.3.1
v0.1
//2016-12-23
//全局变量
Dim timeuot=1000 //基本延时
Dim b1=abc //基本密码1
Dim suc=0 //签到成功
Dim sum=6 //帐号总数
Dim sev=0 //任务进度
Dim u1 ,p1 ,u2 ,p2 ,u3 ,p3 ,u4 ,p4 ,u5 ,p5 ,u6 ,p6 ,u7 ,p7 ,u8 ,p8 ,u9 ,p9 ,u10 ,p10 //u 帐号， p 密码
u1=1231
u2=1232
u3=1233
u4=1234
u5=1235
u6=1236
p1=b1
p2=b1
p3="ABC"
p4=b1
p5="ABC"
p6="newABC"
//启动115
RunApp "com.daysme.androidclient"
Delay 5000
enter(u1,p1)
enter(u2,p2)
enter(u3,p3)
enter(u4,p4)
enter(u5,p5)
enter(u6,p6)
KillApp "com.daysme.androidclient"
Do
ShowMessage "签到失败：" & sum - suc & "
签到成功：" & suc, 1000, 100, 0
Loop
Sub enter(name, pass)
/*
功能：
登录
参数说明：
name 帐号
pass 密码
*/
sev=sev+1
ShowMessage "任务" & sev & "，运行帐号： " & name, 1000, 100, 0
Delay 3000
call t(358,884,"其他方式登录",0)
call t(352,511,"帐号登录",1000)
call t(371,505,"帐号输入框",0)
Call i(name, "帐号", 2000)
call t(126,619,"密码输入框",0)
Call i(pass,"密码",500)
call t(355,765,"登录",2000)
call t(626,1233,"我",0)
call t(672,93,"签到",3000)
call t(417,427,"开始签到",1000)
If CmpColorEx("540|138|FFB500,590|430|F0F0F0,597|545|FFC500,523|619|FFFFFF",0.9) = 1 Then
suc=suc+1
ShowMessage name & " 签到成功", 1000, 100, 0
Delay 2000
Else
ShowMessage name & " 签到失败", 1000, 100, 0
Delay 2000
End If
call t(47,99,"关闭签到",0)
call t(57,763,"设置",0)
call t(350,1201,"退出登录",0)
call t(370,753,"确定退出登录",1000)
End Sub
Sub t(x, y, m, out)
/*
功能：
点击某处
参数说明：
x 坐标
y 坐标
m 消息
out 添加延时
*/
ShowMessage "即将点击： " & m, 1000, 100, 0
Delay timeuot
Tap x, y
Delay timeuot
Delay out
End Sub
Sub i(t, m, out)
/*
功能：
输入文本。
参数说明：
t 输入的文本
m 消息
out 添加延时
*/
ShowMessage "即将输入： " & m, 1000, 100, 0
Delay timeuot
InputText t
Delay timeuot
Delay out
End Sub
v0.2
某盘：v6.5.0
//2017-01-15
//全局变量
Dim timeuot=1000 //基本延时
Dim b1=1806184632 //基本密码1
Dim suc=0 //签到成功
Dim sum=8 //帐号总数
Dim sev=0 //任务进度
Dim u1 ,p1 ,u2 ,p2 ,u3 ,p3 ,u4 ,p4 ,u5 ,p5 ,u6 ,p6 ,u7 ,p7 ,u8 ,p8 ,u9 ,p9 ,u10 ,p10 //u 帐号， p 密码
u1=***
u2=***
u3=***
u4=***
u5=***
u6=***
u7=***
u8=***
p1=b1
p2=b1
p3="******"
p4=b1
p5="******"
p6="********"
p7="******"
p8="******"
//启动115
RunApp "com.daysme.androidclient"
Delay 5000
enter(u1,p1)
enter(u2,p2)
enter(u3,p3)
enter(u4,p4)
enter(u5,p5)
enter(u6,p6)
enter(u7,p7)
enter(u8,p8)
KillApp "com.daysme.androidclient"
Do
ShowMessage "签到失败：" & sum - suc & "
签到成功：" & suc, 1000, 100, 0
Loop
Sub enter(name, pass)
/*
功能：
登录
参数说明：
name 帐号
pass 密码
*/
sev=sev+1
ShowMessage "任务" & sev & "，运行帐号： " & name, 1000, 100, 0
Delay 3000
call t(358,884,"其他方式登录",0)
call t(352,511,"帐号登录",1000)
call t(371,505,"帐号输入框",0)
Call i(name, "帐号", 2000)
call t(126,619,"密码输入框",0)
Call i(pass,"密码",500)
call t(355,765,"登录",2000)
call t(626,1233,"我",0)
call t(44,98,"签到",3000)
call t(626,430,"开始签到",2000)
If CmpColorEx("580|305|FFB400,616|431|F0F0F0,616|537|FFC500",0.9) = 1 Then
suc=suc+1
ShowMessage name & " 签到成功", 1000, 100, 0
Delay 2000
Else
ShowMessage name & " 签到失败", 1000, 100, 0
Delay 2000
End If
call t(48,99,"关闭签到",0)
call t(57,763,"设置",0)
call t(350,1201,"退出登录",0)
call t(370,753,"确定退出登录",1000)
End Sub
Sub t(x, y, m, out)
/*
功能：
点击某处
参数说明：
x 坐标
y 坐标
m 消息
out 添加延时
*/
ShowMessage "即将点击： " & m, 1000, 100, 0
Delay timeuot
Tap x, y
Delay timeuot
Delay out
End Sub
Sub i(t, m, out)
/*
功能：
输入文本。
参数说明：
t 输入的文本
m 消息
out 添加延时
*/
ShowMessage "即将输入： " & m, 1000, 100, 0
Delay timeuot
InputText t
Delay timeuot
Delay out
End Sub