按键精灵读取TXT文本内容
求大神帮帮忙,万分感谢!读取文档里每一行的账号密码并输出,|为分隔符。输出账号后按TAB键,再输出密码后再按Enter键,结束。第一次运行到此断脚本时读取第一行信息并输出...
求大神帮帮忙,万分感谢!
读取文档里每一行的账号密码并输出,| 为分隔符。输出账号后按TAB键,再输出密码后再按Enter键,结束。
第一次运行到此断脚本时读取第一行信息并输出,第二次运行到此断脚本时,自动过虑掉第一行的信息,直接读取第二行的信息并输出,以此类推。。。。
第N次运行到此断脚本时,当所有信息都已被使用过一遍,就自动弹出窗口提示所有账号均已使用。
准确的说是过滤掉已经被读取的信息,再执行下一条未被读取的信息 展开
读取文档里每一行的账号密码并输出,| 为分隔符。输出账号后按TAB键,再输出密码后再按Enter键,结束。
第一次运行到此断脚本时读取第一行信息并输出,第二次运行到此断脚本时,自动过虑掉第一行的信息,直接读取第二行的信息并输出,以此类推。。。。
第N次运行到此断脚本时,当所有信息都已被使用过一遍,就自动弹出窗口提示所有账号均已使用。
准确的说是过滤掉已经被读取的信息,再执行下一条未被读取的信息 展开
展开全部
由于换行符与账号密码分隔符一样,都是"|",所以这里我把":"当做账号密码分隔符。
代码:
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,"提示"
代码:
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,"提示"
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询