Efetuando Logoff

[Guest guilhermemfa]

Trabalho em rede e estou precisando saber como efetuar logoff através de uma aplicação em VB

[Pilantra]

facil, eu tenho uma dica aqui pra isso mas eu não sei se funciona pra XP/2000 porque eu nunca testei mas tenta ae!!

Public Const EWX_LOGOFF = 0

'Código para o form

Option Explicit

Private Sub Command1_Click()

Dim Variav

Select Case Text1

Case "0"

If MsgBox("Deseja fazer Logoff agora?", vbExclamation + vbSystemModal + vbYesNo) = vbYes Then

Variav = ExitWindowsEx(EWX_LOGOFF, 0)

End If

Case "1"

If MsgBox("Deseja desligar o Computador agora?", vbExclamation + vbSystemModal + vbYesNo) = vbYes Then

Variav = ExitWindowsEx(EWX_SHUTDOWN, 1)

End If

Case "2"

If MsgBox("Deseja reiniciar o Windows agora?", vbExclamation + vbSystemModal + vbYesNo) = vbYes Then

Variav = ExitWindowsEx(EWX_REBOOT, 2)

End If

Case Else

MsgBox Label1

Exit Sub

End Select

End Sub

Private Sub Form_Load()

Text1 = ""

Label1.Left = Me.Width * 0.1

Label1.Width = Me.Width * 0.8

Label1.Height = 400

Label1 = "Digite na caixa texto:  0 para logoff,  1 para desligar o Computador,  2 para reiniciar o Windows"

End Sub

qualquer coisa posta ae

T+

Pilantra

[Guest Guest]

E esta função - ExitWindowsEx

[Guest Guilherme Marcone]

E esta função - ExitWindowsEx

[Graymalkin]

Declare a função (em um módulo) e use o código do Pilantra:

Public Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Abraços,

Graymalkin