第1个回答 2012-02-23
给你个参考吧,如果你会按键精灵基本功应该会修改
//假如C盘有个“测试.txt”文档,里面有账号:123 密码:321
G = Plugin.Sys.GetHDDSN()
//MessageBox "硬盘序列号G="&G
i=0
Text = Plugin.File.ReadFileEx("c:\测试.txt")
dim M,M1,M2
M = Split(Text, "|")
M1 = Split(M(i), "账号:")
M2 = Split(M(i+1), "密码:")
If G=8 Then
MessageBox M1(1)
MessageBox M2(1)
ElseIf G=G Then
i=2
M1 = Split(M(i), "账号:")
M2 = Split(M(i+1), "密码:")
MessageBox M1(1)
MessageBox M2(1)
End If