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

DuroPt

[Resolvido] Turn Off

5 mensagens neste tópico

Boas tardes pessoal, a minha mais recente duvida é como desligar o pc atraves de uma aplicação em vb.net =D Por exemplo clicar no button1 e o pc desligar, ou reiniciar, ou suspender =) Obrigado desde já

Abraços,

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas,

Deixo -te aqui o código para desligar o pc !

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Desligar
        Dim v As Single
        Dim objWMIService, objComputer As Object
        objWMIService = GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")
        For Each objComputer In objWMIService.InstancesOf("Win32_OperatingSystem")
            v = objComputer.Win32Shutdown(8 + 4, 0)
            If v <> 0 Then
                MsgBox("Um Erro Ocurreu !")
            Else
            End If
        Next
    End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Para reinciar é o mesmo código, só tens que modificar :  v = objComputer.Win32Shutdown(8 + 4, 0)  , para :  v = objComputer.Win32Shutdown(2 + 4, 0)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ou entao para desligar:

shell("shutdown -t 0 -s -f")

reiniciar:

Shell("shutdown -t 0 -r -f")

Atraves disto para anular o encerramento:

shell("shutdown -a")

podes usar o -c "text" para juntar 1 coment todo giro ao countdown.

-t é o tempo em segundos q vai "esperar" até encerrar(-s) ou reiniciar(-r).

-f - força todas as aplicações a fechar para poder desligar/reiniciar o pc.

-a - Aborta o encerramento

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