Const SPI_SETSCREENSAVEACTIVE = 17 Const SPI_SETSCREENSAVETIMEOUT = 15 Const SPIF_SENDWININICHANGE = &H2 Const SPIF_UPDATEINIFILE = &H1Private Declare Function SystemParametersInfo Lib "user32" Alias _ "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _ ByVal lpvParam As Long, ByVal fuWinIni As Long) As LongPrivate Sub SetScreenSaveTimeout(ByVal BySecond As Long) Call SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, BySecond, 0, _ SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE) End Sub'启用 Private Sub EnableScreenSave() Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, 0, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE) End Sub'禁止 Private Sub DisableScreenSave() Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, 0, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE) End Sub
Const SPI_SETSCREENSAVEACTIVE = 17
Const SPI_SETSCREENSAVETIMEOUT = 15
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByVal lpvParam As Long, ByVal fuWinIni As Long) As LongPrivate Sub SetScreenSaveTimeout(ByVal BySecond As Long)
Call SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, BySecond, 0, _
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub'启用
Private Sub EnableScreenSave()
Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, 0, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub'禁止
Private Sub DisableScreenSave()
Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, 0, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub