set fso=createobject("scripting.filesystemobject") set zsc=createobject("scripting.dictionary") set file=fso.opentextfile("2.txt",1,ture) do while file.atendofstream<>true line=line zsc.add line,file.readall msgbox "您设置的账号是: “" & line & ""& zsc(line) &"” 请牢记!","64","账号修改成功" loop set fso=createobject("scripting.filesystemobject") set zsc=createobject("scripting.dictionary") set file=fso.opentextfile("4.txt",1,ture) do while file.atendofstream<>true line=line zsc.add line,file.readall msgbox "您设置的密码是: “" & line & ""& zsc(line) &"” 请牢记!","64","密码修改成功" loop 复制代码
set fso=createobject("scripting.filesystemobject") set zsc=createobject("scripting.dictionary") set file=fso.opentextfile("2.txt",1,ture) do while file.atendofstream<>true line=line zsc.add line,file.readall msgbox "您设置的账号是: “" & line & ""& zsc(line) &"” 请牢记!","64","账号修改成功" loop set fso=createobject("scripting.filesystemobject") set zsc=createobject("scripting.dictionary") set file=fso.opentextfile("4.txt",1,ture) do while file.atendofstream<>true line=line zsc.add line,file.readall msgbox "您设置的密码是: “" & line & ""& zsc(line) &"” 请牢记!","64","密码修改成功" loop