If LCase(Right(WSH.FullName,12)) = "\wscript.exe" Then
    CreateObject("WScript.Shell").Run "cmd /c cscript.exe -nologo """ & WSH.ScriptFullName & """&pause&exit"
    WSH.Quit
End If

WSH.echo "代码可用,扫码头像,感谢赞助;有什么问题,可加QQ956535081及时沟通"
Set fso=CreateObject("Scripting.FileSystemObject")
file="1.ini"
result=""
Set f=fso.OpenTextFile(file,1)
Do While f.AtEndOfStream<>true
    line=f.ReadLine
    arr=split(line,"=")
    Select Case arr(0)
        Case "resolutionheight " result=result & arr(0) & "= 2" & vbCrLf
        Case "showwhims " result=result & arr(0) & "= 2"  & vbCrLf
        Case Else result=result & line & vbCrLf
    End Select
Loop
f.Close
Set f=fso.OpenTextFile(file,2)
f.Write result
f.Close
复制代码