关闭屏幕保护功能，改变屏保等待时间

如何关闭ScreenSave功能, 改变Timeout时间

　　 此外希望只有本次使用 Windows 时改变(下次开机时还原原状)， 则最後参数改为　SPIF_SENDWININICHANGE (没有SPIF_UPDATEINIFILE)

Const SPI_SETSCREENSAVEACTIVE = 17
Const SPI_SETSCREENSAVETIMEOUT = 15
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1

Private Declare Function SystemParametersInfo Lib "user32" Alias _
　　 "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
　　 ByVal lpvParam As Long, ByVal fuWinIni As Long) As Long

Private Sub SetScreenSaveTimeout(ByVal BySecond As Long)
　 Call SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, BySecond, 0, _
　　　　　 SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)
End Sub

Private Sub EnableScreenSave()
　 Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, 0, _
　　　　　 SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)
End Sub
Private Sub DisableScreenSave()
　 Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, 0, _
　　　　　 SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)
End Sub

上一篇： 获取桌面窗口图象
下一篇： 为VB窗口增添平铺贴图背景

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有