开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 1883|回复: 2
收起左侧

[android] 按键精灵手机版的大神帮忙看下保存账号密码怎么写

[复制链接]
结帖率:32% (8/25)
发表于 2018-7-7 18:05:41 | 显示全部楼层 |阅读模式   广东省揭阳市
20精币
获取手机号码验证码已经接入调试好了,现在就差保存手机号+密码。保存到共享文件里面。
每zc成功一个保存手机号+密码 下一个zc成功的加入到文本内容的下一行。有没有大神帮我看看怎么修改

If 找图(101,352,201,398, "手机zc") Then
        Tap 152,388
        Delay 1000
    End If
    If 找图(253,370,298,398, "手机号") Then
        Tap 203,124
        Delay 1000
    End If
    Call 获取手机号码()
    删除 15
    InputText 手机号
    Delay 1000
    If 找图(0,0,0,0, "密码") Then
        Tap 166,150
        Delay 1000
        删除 15
        InputText ReadUIConfig("hello密码")
        Delay 1000
    End if   
    If 找图(0,0,0,0, "下一步") Then
        Touch intX, intY, 150
        Delay 20000
    End If
    If 找图(0,0,0,0, "输入验证码") Then
        Tap 246,71
        Delay 1000
        Call 获取验证码 ()
        InputText 验证码
        Delay 10000
    End If
    If 找图(0,0,0,0, "下一步") Then
        Touch intX, intY, 150
        Delay 20000
    End If
    If 找图(0,0,0,0, "发送1") Then
        Touch intX, intY, 150
        Delay 1000
    End If
    If 找图(0,0,0,0, "个人资料") Then
        b保存账号 手机号, File.ReadLine(保存账号, CInt(File.Read(保存账号记数)) - 1) & "|" & zc密码
        Delay 1000
    End If
    TracePrint "zc完毕!"
End Sub
Sub b保存账号(文件路径, 保存内容)
    If Dir.Exist(文件路径) = 0 Then
        File.Write 文件路径, ""
    End If
    Call File.WriteLine(文件路径, CInt(File.LinesNumber(文件路径)) + 1, 保存内容)
End Sub
Sub f写入行(欲写入文件, 原文件, 计数器,k)
    File.WriteLine 欲写入文件, CInt(File.LinesNumber(欲写入文件) + 1), f读取行(原文件, 计数器, k)
End Sub
Function f读取行(文件名路径, 计数器路径, k)
    If k = 0 Then
        f读取行 = File.ReadLine(文件名路径, CInt(File.Read(计数器路径)))
    ElseIf k = "+" Then
        f读取行 = File.ReadLine(文件名路径, CInt(File.Read(计数器路径)) + 1)
    ElseIf k = "-" Then
        f读取行 = File.ReadLine(文件名路径, CInt(File.Read(计数器路径)) - 1)
    End If
End Function


回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。
友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
快捷通道:申请荣誉值无答案申请取消悬赏投诉有答案未采纳为最佳

结帖率:97% (59/61)

签到天数: 22 天

发表于 2018-7-7 18:07:04 | 显示全部楼层   河南省开封市
你是不是该去 按键精灵吧问??
回复

使用道具 举报

结帖率:32% (8/25)
 楼主| 发表于 2018-7-7 18:50:04 | 显示全部楼层   广东省广州市
大神无处不在,只要是问题会有大神帮忙的
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表