• Home
 · 
• Windows API Call/Explanation
 · 
• This code initiates the screen saver of the system.You can change the command constants to modify t

This code initiates the screen saver of the system.You can change the command constants to modify t

This code initiates the screen saver of the system.You can change the command constants to modify the code for other windows operations.This

API Declarations


'This code is free.
'Contact [email protected] for furthur details
'This code can be customized as per requirement.
'Change commands to execute different system calls.
'This code assumes that you have a screen saver option is enabled in the system.

'Api declaration
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
Const comWM_SYSCOMMAND = &H112&
Const cSC_SCREENSAVE = &HF140&



Rate This code initiates the screen saver of the system.You can change the command constants to modify t

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    'This can be your event to fire the screensaver.
    Dim lResult As Long
    lResult = SendMessage(Me.hWnd, comWM_SYSCOMMAND, cSC_SCREENSAVE, 0&)
End Sub