'b=123 Set fso=CreateObject("Scripting.Filesystemobject") Set f=fso.OpenTextFile(WSH.ScriptFullName,1) vbscodes=f.ReadAll f.Close arr=split(vbscodes,VbCrLf) Execute Mid(arr(0),2) a=inputbox("数值") msgbox b & " " & a b=a Set f=fso.CreateTextFile(WSH.ScriptFullName,2) arr(0)="'b=" & b f.Write join(arr,VbCrLf) f.Close WSH.Quit
