Desligar

[theodoro]

algem tem ai um codigo que desliga o computador

[Graymalkin]

algem tem ai um codigo que desliga o computador

Brother... sempre faça uma busca no fórum antes de postar Existem vários tópicos sobre isso.

Abraços,

Graymalkin

[ramon]

Ta ai o codigo coloque em um form isso e teste

Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
msg = MsgBox("Presione OK para Rebotar ou Cancela para sair.", vbCritical + vbOKCancel + 256, App.Title)
If msg = vbCancel Then End
ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub

[armagedon]

Shell "shutdown -s -t xx"

onde xx é o tempo q você quer q o PC deslige

[ramon]

Shell "shutdown -s -t xx"

onde xx é o tempo q você quer q o PC deslige

é bem menor e mais pratico.

a proposito já vi este codigo aqui no forum

[Graymalkin]

Shell "shutdown -s -t xx"

onde xx é o tempo q você quer q o PC deslige

é bem menor e mais pratico.

a proposito já vi este codigo aqui no forum

Só que não funciona em todas as versões do Windows (98 e ME, por exemplo). Entretanto aquela função do seu post também não funciona para todas as versões (XP e 2000, por exemplo). O ideal é utilizar duas funções (uma para NT e outra para 9x), e creio que as duas já apareceram aqui no fórum.

Abraços,

Graymalkin