Question

按键精灵每次运行读记事本不同的帐号

按行读取
Text = Plugin.File.ReadFileEx("C:\Users\Administrator\Desktop\新浪微博.txt")
账密数组 = split(Text, "|")
For i = 0 To (UBound(账密数组) + 1) / 1+1 Step 1
账号 = 账密数组(i)
SayString 账号
Next
这个只能一下子读完 我要的是运行一次他换个帐号输入
Dim i,p
Text = Plugin.File.ReadFileEx("C:\Users\Administrator\Desktop\新浪微博.txt")
MyArray=Split(Text,"|")
p=UBound(MyArray)
i=0
SayString MyArray(i)
i = i + 1

这样每次还只能输出同样的

Answer 1

你可以换个方法，比如当你读取了第一组账号的时候自动在账号后面写上，已读取。每当读取账号的时候只要后面有已读取3个字就忽略，进行下一组读取。这样就可以循环读取完所有的账号了

追问

具体代码有吗？ 谢谢了

追答

删除了.没有。需要重新写