号码-密码大概可以用这种格式。
想法差不多
Dim 微信号与密码
微信号与密码 = File.Readline("/sdcard/MobileAnjian/haoma.txt", 1)
//保存临时信息
dir.Delete ("/sdcard/MobileAnjian/LSCC.txt")
File.Write "/sdcard/MobileAnjian/LSCC.txt", 微信号与密码
//分离微信号,密码
Dim 分离线,电话,密码,字符数
分离线 = UTF8.InStr(1, 微信号与密码, "-")
电话 = UTF8.Left(微信号与密码, 分离线-1)
字符数 = UTF8.Len(微信号与密码)
密码 = UTF8.Right(微信号与密码, 字符数 - 分离线)