Turn monitor on [Please Help]

[penagate]

Since random keypressings can do funny things, the best way is to use the pure API method

Declare Function SendMessage Lib "user32" Alias "SendMessageW" ( _
    ByVal hWnd As Long, _
    ByVal uMsg As Long, _
    ByVal wParam As Long, _
    ByRef lParam As Any _
) As Long
 
Const HWND_BROADCAST = &HFFFF
Const WM_SYSCOMMAND = &H112
Const SC_MONITORPOWER = &HF170
 
' Turn monitor on
SendMessage HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal -1&
 
' Turn monitor off
SendMessage HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 0&