Memeriksa Apakah Screen Saver Enable

Fungsi ini mungkin jarang sekali di letakkan di aplikasi-aplikasi tertentu, tapi apa salahnya jika kita mencoba .Berikut adalah cara untuk mengetahui Screen Saver di komputer anda aktif atau tidak .

Ok, sekarang masukkan code berikut di Declarations :

Option Explicit

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
Private Const SPI_GETSCREENSAVEACTIVE = 16

Private Function IsScreenSaverEnable() As Boolean
  Dim bReturn As Boolean
  Dim bActive As Boolean
  Call SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, vbNull, bReturn, 0)
    IsScreenSaverEnable = bReturn
End Function

Contoh penggunaan fungsi untuk memeriksa apakah screen saver enable

Private Sub Command1_Click()
    MsgBox IsScreenSaverEnable
End Sub

Semoga Bermanfaat .