按键精灵怎么逐行自动读取文本中的文字，并实现自动输入？

Question

如：C盘中 1.txt 文件中有：
1
2
3
第一循环读取 1 并输入1
第二循环读取 2 并输入2
..........
按一下就读取粘贴一次,再按一下循环下一条,求能直接能用的。

Answer 1

由于换行符与账号密码分隔符一样，都是"|"，所以这里我把":"当做账号密码分隔符。
代码：
Dim Path, Text, i, zm
Path="C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" '填入文件路径
Text = Plugin.File.ReadFileEx(Path) '读取文本内容
Text = Split(Text, "|") '将读取到的内容一行行地分割为数组
TracePrint UBound(Text)
For i = 0 To UBound(Text) - 1
zm = Split(Text(i), ":") '分割每行内容
SayString zm(0)
KeyPress 9, 1
SayString zm(1)
KeyPress 13, 1
Next
MsgBox "所有账号均已使用",64,"提示"