按键精灵读取TXT文本内容

求大神帮帮忙,万分感谢!读取文档里每一行的账号密码并输出,|为分隔符。输出账号后按TAB键,再输出密码后再按Enter键,结束。第一次运行到此断脚本时读取第一行信息并输出... 求大神帮帮忙,万分感谢!

读取文档里每一行的账号密码并输出,| 为分隔符。输出账号后按TAB键,再输出密码后再按Enter键,结束。
第一次运行到此断脚本时读取第一行信息并输出,第二次运行到此断脚本时,自动过虑掉第一行的信息,直接读取第二行的信息并输出,以此类推。。。。
第N次运行到此断脚本时,当所有信息都已被使用过一遍,就自动弹出窗口提示所有账号均已使用。
准确的说是过滤掉已经被读取的信息,再执行下一条未被读取的信息
展开
 我来答
恽铌子sc
推荐于2017-11-27 · TA获得超过653个赞
知道小有建树答主
回答量:679
采纳率:0%
帮助的人:388万
展开全部
由于换行符与账号密码分隔符一样,都是"|",所以这里我把":"当做账号密码分隔符。
代码:
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,"提示"
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式