某盘帐号批量自动签到

简介：又一个小文弄着玩的东东，安卓平台某盘帐号批量自动签到。

尺寸： 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