التحقق من تنشيط حافظة الشاشة

Private Const SPI_GETSCREENSAVEACTIVE = 16
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Dim blnReturn As Boolean
Dim blnActive As Boolean

Private Sub Command1_Click()
' Determine whether screen saver is enabled.
Call SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, vbNull, blnReturn, 0)
MsgBox blnReturn
End Sub