编个小东西玩玩，VB程序中如何禁用屏幕保护

Question

参阅陈宽达写的《Delphi深度历险》，虽然是Delphi的，但是原理一样

Answer 1

Task: Deactivate the Screen Saver Declarations:Private Const SPI_SETSCREENSAVEACTIVE = 17
Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPIF_SENDWININICHANGE = &H2Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long,  ByVal _
uParam As Long,  ByVal lpvParam As Long,  ByVal fuWinIni As _
Long) As LongCode:Public Function ToggleScreenSaverActive(Active As Boolean) _
   As Boolean'To Activate Screen Saver, set active to true
'to deactivate, set active to falseDim lActiveFlag As Long
Dim retval As LonglActiveFlag = IIf(Active, 1, 0)
retval = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, _
   lActiveFlag, 0, 0)
ToggleScreenSaverActive = retval > 0End Function