dim data
while data=""
data= inputbox("请输入新账号："&chr(10)&""&chr(10)&""&chr(10)&""&chr(10)&""&chr(10)&"　新账号，不能为空。确定继续，取消重新输入！","修改账号")
wend
set fs =createobject("scripting.filesystemobject")
set f =fs.opentextfile("./1/2.txt",2)
f.write (data)
f.close

dim mima
while mima=""
mima= inputbox("请输入新密码："&chr(10)&""&chr(10)&""&chr(10)&""&chr(10)&""&chr(10)&"　新密码，不能为空。确定继续，取消重新输入！","修改密码")
wend
set fs =createobject("scripting.filesystemobject")
set f =fs.opentextfile("./1/4.txt",2)
f.write (mima)
f.close

Wscript.sleep 600
set ws=createobject("wscript.shell")
ws.run "C:\Users\高世军\Desktop\修改密码\copy.bat"
Wscript.sleep 500
set ws=createobject("wscript.shell")
ws.run "C:\Users\高世军\Desktop\修改密码\hb.bat"
Wscript.sleep 500
set ws=createobject("wscript.shell")
ws.run "C:\Users\高世军\Desktop\修改密码\html.bat"
Wscript.sleep 600
set ws=createobject("wscript.shell")
ws.run "C:\Users\高世军\Desktop\修改密码\dd.vbs"







    复制代码