思路 ：讀取和寫入腳本配置的命令 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

帶記憶功能的讀取賬號結構思路和實例