Monitor ON/OFF

[mrodrigues]

Não sei se alguém já colocou isso aqui. De qualquer modo, tem pouco de útil até ... 😄

Enfim, o código é este, e usa a API do Windows.

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

'Anyway... o X pode ser uma variavel de estado booleana, mas as pessoas com o tempo aprendem o correcto. Bem, isso funcionava..

[Guest]

na m faz nada.....

[Crack]

para VB.NET

'Desligar

SendMessage(Me.Handle, &H112, &HF170&, 2&)

'Ligar

SendMessage(Me.Handle, &H112, &HF170&, -1&)

[karva]

poe o codigo com o geshi, para se perceber melhor

[Guest]

não faz nada!

[Ivo Pereira]

alguem me pode dizer se isto funciona? é que nao tou para ir ao outro pc... tar a ligá-lo e nao sei que para ver se worka 😄

EDIT: ok... nao funciona ja experimentei  😛