读TXT文件,这样麻烦。
最好的办法是读 ini配置文件
过程:
1、定义文件路径:filetiegui = "c:\new\铁床.ini"
2、读取数字记录 num = Plugin.File.ReadINI("command", "num", filetiegui)
3、记录加1 num = num + 1
4、生成值 账号 valu = "valuser" & num
4、生成值 账号 valw = "valword" & num
5、读取配置文件中的帐号:textuser = Plugin.File.ReadINI("command", valu, filetiegui)
5、读取配置文件中的帐号:textword = Plugin.File.ReadINI("command", valw, filetiegui)
6、存储数字记录 Call Plugin.File.WriteINI("command", "num", num, filetiegui)
配置文件:
[command]
num=0
valuser1="账号1"
valword1="密码1"
valuser2="账号2"
valword2="密码2"
valuser3="账号3"
valword3="密码3"
。
。
。
。
。
VBS Dim fso,ts,text
VBS Const ForReading = 1
VBS Set fso = CreateObject("Scripting.FileSystemObject")
VBS Set ts = fso.OpenTextFile("e:\a.txt", ForReading)
Rem a1
VBS test=ts.ReadLine
if test=""
Goto a2
endif
MessageBox test '这里是弹出内容
VBS SkipLine
Delay 1000
Goto a1
Rem a2
VBS ts.Close