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

Tim§id€

Desligar o monitor?

Recommended Posts

Tim§id€

Boas---

alguem sabe ai um codigo em VB para quando dou um Click num butao o monitor desliga!?

OBRIGADO:::: :cheesygrin:


...º(>_<)º...

Share this post


Link to post
Share on other sites
jpaulino

acho que isto não funciona... digo eu... e não tou a ver como é que um software vai desligar o monitor...

E como é que o screensaver desliga ? :D

Share this post


Link to post
Share on other sites
Pwyll

E como é que o screensaver desliga ? :D

Será magia ? :)

P.S. Não levem a mal.... mas não resisti...

Share this post


Link to post
Share on other sites
jpaulino

Será magia ? :D

P.S. Não levem a mal.... mas não resisti...

LOL, não faz mal.

Mas já alguém testou ? (eu não consigo testar agora)

Share this post


Link to post
Share on other sites
jpaulino

Ok, testei outro código que tinha e funciona ... já era velhinho!

    Const SC_MONITORPOWER As Integer = &HF170
    Const MONITOR_ON As Integer = (-1)
    Const MONITOR_OFF As Integer = 2
    Const WM_SYSCOMMAND As Integer = &H112

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF)
    End Sub

Share this post


Link to post
Share on other sites
Joca

Acho que é mais simples assim no evento de um botão:

 Process.Start("shutdown", "-s -f -t 0")

Se quiserem saber o significado das "letras" é só ir à caixa de "Executar" que se encontra no vosso menu iniciar do windows e, digitar "cmd", clicar ENTER, e depois no ecrã "DOS", digitar "shutdown" e clicar em ENTER.

Share this post


Link to post
Share on other sites
anolsi

Acho que é mais simples assim no evento de um botão:

 Process.Start("shutdown", "-s -f -t 0")

Se quiserem saber o significado das "letras" é só ir à caixa de "Executar" que se encontra no vosso menu iniciar do windows e, digitar "cmd", clicar ENTER, e depois no ecrã "DOS", digitar "shutdown" e clicar em ENTER.

Isso é para desligar o computador e não o monitor como é pedido.


"Nós somos o que fazemos repetidamente, a excelência não é um feito, e sim, um hábito."
Não respondo a questões por PM que possam ser colocadas no fórum!

Share this post


Link to post
Share on other sites
jpaulino

Isso é para desligar o computador e não o monitor como é pedido.

Sim, e mesmo que desse iria aparecer uma janela de DOS (o que não era agradável)

Share this post


Link to post
Share on other sites
Joca

Sim, e mesmo que desse iria aparecer uma janela de DOS (o que não era agradável)

Têm razão. Desta vez li à pressa.

Share this post


Link to post
Share on other sites
Tim§id€

Têm razão. Desta vez li à pressa.

Boas..Obrigado pela Ajuda... :P


...º(>_<)º...

Share this post


Link to post
Share on other sites
Gooden

Isto nos portáteis como funciona..? Desliga-se e nunca mais se liga? :P

Claro QUE nao LOOOOOOOOOOL mexes o rato e liga :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.