Question

按键精灵循环读取TXT内账号密码文档的问题

比如txt格式是
手机号1-密码1
手机号2-密码2
手机号3-密码3
在指定的窗口输入手机号，和密码，
并依次循环，保存结果到文本里，比如 手机号1-密码1 几点几分几秒执行成功 这样的文本
麻烦大神给写个

Answer 1

text=Plugin.File.ReadFileEx("C:\网通一区.txt")
Marry = split(text, "|")
For n0 = 0 To UBound(Marry)-1

Next
n0 = 0

Do

Rem 登录

Delay 800

//-------------------

hwnd = Plugin.Window.find(0, "开学的诱惑-剑灵官方网站-腾讯游戏")
TracePrint hwnd

If hwnd>0 Then
text1 = split(Marry(n0), ",")
帐号 = text1(0)
密码 = text1(1)
TracePrint 帐号

Delay 800
MoveTo 1174,159
Delay 800
LeftClick 1
Delay 800
MoveTo 750,705
Delay 800
LeftClick 1
Delay 800
MoveTo 669,510//输入=账号=坐标
Delay 800
LeftClick 1
Delay 800

For 12
KeyPressS 8, 1
Delay 50
Next

For n = 1 To len(帐号)
k=mid(帐号,n,1)
Delay 30
KeyPressS asc(ucase(k)),1
Next

MoveTo 647,568//输入=密码=坐标
Delay 500
LeftClick 1
Delay 500

For 12
KeyPressS 8, 1
Delay 50
Next

For n = 1 To len(密码)
k=mid(密码,n,1)
Delay 30
KeyPressS asc(ucase(k)),1

Next
Delay 500
MoveTo 619,616//确定
Delay 500
LeftClick 1

Else
Goto 登录
End If
text11=join(text1,",")&"---已登录"//这个注明
Call Lib.文件.替换指定行文本内容("C:\网通一区.txt",text11,n0+1)
n0 = n0 + 1
If n0 >= UBound(Marry) Then
MessageBox "帐号已经全部登录完毕"
EndScript
End If

Loop