[pascal] tabela ASCII

Private Declare Function SendMessage Lib _
"user32" Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long


Const SC_MONITORPOWER = &HF170&
Const MONITOR_ON = -1&
Const MONITOR_OFF = 2&
Const WM_SYSCOMMAND = &H112

Dim x As Integer

Private Sub Form_Load()
Me.Hide
DoEvents
tmr.Enabled = True
End Sub

'isto é um timer.. ok?
Private Sub tmr_Timer()

If x = 0 Then
x = x + 1
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF
Else
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_ON
x = 0
End If
End Sub


Em VB.Net como se Pode ligar e desligar o monitor.......