How to turn the monitor on/off

With this code you can turn on or off the monitor ;)

Original Author: gunti

API Declarations

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
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MONITORPOWER = &HF170

Code

'Turn Monitor on: -> SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 0& 'Turn Monitor off: -> SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal -1&

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 116 times

Comments

No comments have been added for this post.

You must be logged in to make a comment.