Happy Codings - Programming Code Examples
Html Css Web Design Sample Codes CPlusPlus Programming Sample Codes JavaScript Programming Sample Codes C Programming Sample Codes CSharp Programming Sample Codes Java Programming Sample Codes Php Programming Sample Codes Visual Basic Programming Sample Codes

Visual Basic Programming Code Examples

Visual Basic > Windows and Controls Code Examples

Turn the Screen Saver on or off

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
Turn the Screen Saver on or off To switch the screen saver on and off use the following code: Private Const SC_SCREENSAVE = &HF140& Private Const WM_SYSCOMMAND = &H112 Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 'Purpose : Changes the state of the screen saver 'Inputs : bScreenSaver If True, starts the Screen Saver ' else turns the Screen Saver off ' [lHwnd] VB: The form handle OR ' [sFormCaption] VBA: The caption of the form calling the ' routine, can be Me.Caption or Application.Caption Sub ScreenSaver(bScreenSaver As Boolean, Optional lHwnd As Long, Optional sFormCaption As String) Dim lState As Long If lHwnd = 0 Then lHwnd = FindWindowA(vbNullString, sFormCaption) End If If bScreenSaver Then lState = 1 Else lState = -1 End If Call SendMessage(lHwnd, WM_SYSCOMMAND, SC_SCREENSAVE, lState) End Sub