带记忆功能的读取账号结构思路和实例

思路 :读取和写入脚本配置的命令 readconfig writeconfig 两个命令可以方便的实现脚本的记忆功能 注意writeconfig 第三个参数必须为true  脚本开始 我们读取下脚本配置的记忆 看看有没有上次运行到哪行账号的记录 有则读取 脚本读取账号循环就从这个记忆位置开始 依次读取 然后就是整个读取账号循环结束了 不要忘记把脚本配置的记忆重置 方便下次又从第一行开始

直接看实例 没什么值得多说的 例子有些繁琐 还是我的老毛病 想的太多

//1.读取账号文件内容
Dim 本行内容,当前行数,起始行数,账号文件内容数组,脚本记录的行数,脚本记录的行内容,当前账号,当前密码,arr,brr,结果
Dim 账号文件路径=GetSdcardDir()&"/Pictures/1.txt"
TracePrint 账号文件路径

//2.对账号文件做基础的判断和处理 文件是否存在 内容是否对 是否去掉了可能的Bom头和乱码 去掉空行等等 这里粗略的写一写
结果 = Dir.Exist(账号文件路径)
If 结果 = 0 Then
    For 3
        ShowMessage "["&账号文件路径&"] 不存在 请检查"
        Delay 2000
    Next
    EndScript
End If
//3.获取账号文件内容转化为数组
账号文件内容数组 = file.ReadLines(账号文件路径)

//4.读取脚本本身的配置 看看是否记录了上次的行数和对应的行内容 判断里面的内容是否正常 不正常就从第一行开始 正常就按照脚本配置的内容进行
起始行数=0
脚本记录的行数 = ReadConfig("脚本记录的行数")
脚本记录的行内容 = ReadConfig("脚本记录的行内容")

If Trim(脚本记录的行数) = "" or Trim(脚本记录的行内容) = "" Then
    //如果脚本记录的上次的行数和行内容为空 那么这个记录就不合法 就从第一行开始了
    起始行数 = 0
    showmessage "起始记录是第["&cstr(起始行数+1)&"]条"
    Delay 500
ElseIf not IsNumeric(Trim(脚本记录的行数)) or CInt(Trim(脚本记录的行数)) < 0 Then
    //脚本记录de阿上次的行数是不是数值 不是则不合法
    起始行数 = 0
    showmessage "起始记录是第["&cstr(起始行数+1)&"]条"
    Delay 500
ElseIf InStr(1, Trim(账号文件内容数组(CInt(脚本记录的行数))), 脚本记录的行内容) < 1 Then
    //脚本记录的行数和行内容 在现在读取的账号文件的对应行上的内容 是否和脚本记录的行内容一致 不一致证明这个账号文件有变动 就从第一行开始
    起始行数 = 0
    showmessage "文件内容变动 起始记录是第{"&(起始行数+1)&"}条 "
    Delay 500
Else
    起始行数 = CInt(Trim(脚本记录的行数))
    showmessage "起始记录是第["& cstr(脚本记录的行数+1)  &"]条"
    Delay 1000
End If
Delay 1000

//5.开始读取账号 读取前 把当前行数和行内容写入到脚本配置做记录
For i = 起始行数 To UBOUND(账号文件内容数组) //注意i不是从0开始的 就是说不一定是从第一行开始的
    Rem 主循环开头

    ////把当前行数和行内容写入到脚本配置里面 作为记录
    当前行数 = i
    本行内容 = trim(账号文件内容数组(i))

    WriteConfig "脚本记录的行数", CStr(当前行数), true
    WriteConfig "脚本记录的行内容", 本行内容, true //第三个参数必须为true

    ////分析出账号和密码 准备给脚本操作提供准备
    arr = Split(本行内容, "----")
    当前账号 = Trim(arr(0))
    当前密码 = Trim(arr(1))

    If 当前账号 = "" or 当前密码 = "" Then //简单判断下账号密码合法性 不合法就直接跳到下个账号进行操作
        goto 主循环结尾
    End If

    ////一些必要的脚本操作 这里暂时用个循环代替
    For 10
        ShowMessage "第[" & CStr(当前行数 + 1) & "]行-账号[" & 当前账号 & "]-密码[" & 当前密码 & "] 进行登录签到."
        Delay 10
        ShowMessage "第[" & CStr(当前行数 + 1) & "]行-账号[" & 当前账号 & "]-密码[" & 当前密码 & "] 进行登录签到.."
        Delay 10
        ShowMessage "第[" & CStr(当前行数 + 1) & "]行-账号[" & 当前账号 & "]-密码[" & 当前密码 & "] 进行登录签到..."

        Delay 1000
    Next

    Rem 主循环结尾
    Delay 10
Next

//6 整个读取账号循环完毕不要忘记重置下脚本配置让脚本下次从第一行开始
ShowMessage "账号到底 重置记忆"
WriteConfig "脚本记录的行数", "", true
WriteConfig "脚本记录的行内容", "", true //第三个参数必须为true
Delay 2000

原文地址:https://www.cnblogs.com/zjl8455482/p/10390456.html

时间: 2024-10-06 20:07:18

带记忆功能的读取账号结构思路和实例的相关文章

Excel 2003-单元格输入中带记忆功能

最近有个同事问我,如何在Excel单元格输入中带记忆功能?其实很简单: 工具ó选项ó编辑ó将"记忆式键入"项选中ó确定: //附图[效果图]:

浏览器自带记忆功能,使input颜色和字体丢失

input:-internal-autofill-selected { /*内置阴影填充 背景颜色*/ box-shadow: inset 0 0 0 1000px #253167! important; /*只有谷歌兼容 字体颜色*/ -webkit-text-fill-color: #fff !important; } 上述可以解决,, 可以禁用 input的记忆功能<input type="text"  autocomplete="off">, 原

[手机按键备忘]常见的脚本结构思路的补充(强化了错误代码的处理部分个人向)

思路代码(还是以前的旧代码 并且只是思路代码 无法直接使用) //例子:遍历读取账号文件内容 并且具备记忆功能 自动从上次的位置开始 不是粗暴的执行一个删除一个账号的处理 而是把记忆写到脚本配置里面 //1.读取账号文件内容 //2.对账号文件做基础的判断和处理 文件是否存在 内容是否对 是否去掉了可能的Bom头和乱码 去掉空行等等 这里粗略的写一写 //3.获取账号文件内容转化为数组 账号文件内容数组 = file.ReadLines(账号文件路径) //4.读取脚本本身的配置 看看是否记录了

ASP.NET Core 实现带认证功能的Web代理服务器

引言 最近在公司开发了一个项目,项目部署架构图如下: 思路 如图中文本所述,公司大数据集群不允许直接访问外网,需要一个网关服务器代理请求,本处服务器A就是边缘代理服务器的作用. 通常技术人员最快捷的思路是在服务器A上部署IIS+Application Request Routing Module组件,或者配置由Nginx代理请求完成此次边缘代理服务器的功能. 但是由于本处代理服务器A 还需要完成额外的功能: 服务器A需要定时访问外网云服务器将数据请求并保存到本地 代理服务器A集中管理云服务器B的

【JS 设计模式 】用组合模式来实现树形导航--代码结构思路分析(一)

树导航效果图: 组合模式的描述: 将对象组合成树形结构以表示"部分-整体"的层次结构,组合模式使得用户对单个对象和组合对象的使用具有一致性. 我们把部分用Leaf表示, 把整体用Composite表示.组合模式是有一定规律的,在实现树导航的情况下,Composite需要包含一个以上Leaf,也可以包含一个以上Leaf和一个以Composite,为什么说要包含一个以上的,如果Composite不包含任何子child的话那么它就是Leaf,Leaf表示是最后一层结节. 树形导航代码片段:

Unity网络多玩家游戏开发教程第1章Unity自带网络功能

Unity网络多玩家游戏开发教程第1章Unity自带网络功能 Unity拥有大量的第三方插件,专门提供了对网络功能的支持.但是,大部分开发者第一次接触到的还是Unity自带的网络功能,也就是大家经常说到的Unity Networking API.这些API是借助于组件NetworkView发挥作用的,而它可以简化开发者大量的网络功能编码任务.本文选自<Unity网络多玩家游戏开发教程(大学霸内部资料)> NetworkView组件 在Unity中,NetworkView组件用于处理游戏在网络上

一款可支持物流查询带营销功能的小程序商城 附源码

零基础快速部署一款可支持物流查询带营销功能的小程序商城只要有基础的计算机能力都可以开发自己的小程序商城,让技术门槛降低,服务更多用户,创造无限价值!只需三步,就可开发自己的小程序商城,带拼团砍价秒杀分销优惠券等强大功能一.注册小程序账号,认证小程序.开通微信支付商户付款功能https://mp.weixin.qq.com二.下载安装小程序商城源码,部署服务器http://github.crmeb.net/u/crmeb三.后台配置 小程序基本参数,小程序域名,支付配置,下载小程序开发工具,提交源

【Android-EditText】自定义带删除功能的EditText

我们经常在一些应用中见到输入框带有删除功能,今天我们就来实现这个功能(文字组织能力不强,大家随便看看).主要是记录一下自己的学习经历,如果对大家有帮助,我会更开心的. 先上图: 实现要点: 1.当输入框为空时,删除按钮隐藏: 2.当输入框不为空时,显示删除按钮. 核心代码: package com.example.view; import com.example.ui.R; import android.content.Context; import android.graphics.Rect;

iOS 自带定位功能

第一步:导入头文件 #import <CoreLocation/CoreLocation.h> #import <CoreLocation/CLLocationManagerDelegate.h> 第二步:设置代理 CLLocationManagerDelegate 第三步:创建一个属性 @property(nonatomic, strong) CLLocationManager *locationManager; 第四步:初始化     //定位服务管理对象初始化     _lo