Monday, May 28, 2012

Menjalankan Screen Saver Melalui Pemrograman

Di bawah ini merupakan fungsi untuk menjalankan screen saver melalui pemrograman.

Option Explicit 
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
 
Private Const WM_SYSCOMMAND = &H112& 
Private Const SC_SCREENSAVER = &HF140& 
 
Public Sub RunScreenSaver() 
    Call SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVER, 0&) 
End Sub

Contoh penggunaan menjalankan screen saver

Private Sub Command1_Click() 
    RunScreenSaver 
End Sub