• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

mrodrigues

Monitor ON/OFF

6 mensagens neste tópico

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

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..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

para VB.NET

'Desligar

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

'Ligar

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 :D

EDIT: ok... nao funciona ja experimentei  :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora