某盘帐号批量自动签到
简介:又一个小文弄着玩的东东,安卓平台某盘帐号批量自动签到。
尺寸: 720*1280
DPI:320
宿主:3.1.2.10711
系统:Android v5.11
某盘:v6.3.1
v0.1
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
//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 & "\n签到成功:" & 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 & "\n签到成功:" & 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