• Home
 · 
• Miscellaneous
 · 
• Start a screen saver from your code

Start a screen saver from your code

This code, you may insert in your program, allows to start a screensaver.
Many other usefull solutions you'll find on my site: https://www.netcity.ru/~timur555/
Glad to see you !!!

API Declarations
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_SCREENSAVE = &HF140&

Rate Start a screen saver from your code

• 1
• 2
• 3
• 4
• 5

(39(39 Vote))

'Place this two lines of code any where in your program
'...
'enjoy!
 Dim tmp As Long
 tmp = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)