''show winver by baomaboy
''show_winver.vbs
Dim WshSHell
Set WshSHell = WScript.CreateObject("WScript.Shell")
intAnswer = MsgBox("【是】在桌面显示Windows版本信息。"&Chr(10)&Chr(10)&"【否】在桌面隐藏Windows版本信息。", vbQuestion + vbYesNoCancel, "QQ:25926183")
If intAnswer = vbYes Then
WshSHell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\PaintDesktopVersion", 1, "REG_DWORD"
end if
If intAnswer = vbNo Then
WshSHell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\PaintDesktopVersion", 0, "REG_DWORD"
end if
If intAnswer = vbCancel Then
WScript.Quit(0)
end if
yn = MsgBox("【是】现在注销察看效果。"&Chr(10)&Chr(10)&"【否】不注销以后再看吧。", vbQuestion + vbYesNoCancel, "QQ:25926183")
If yn = vbYes Then
WshSHell.Run ("ShutDown -L"), vbHide
end if
Set WshSHell = Nothing
WScript.Quit(0) |
|