Desligar windows completamente

[soloplayer 0]

Boa tarde amigos, gostaria de saber uma funcao que desliga totalmente meu win, peguei varias funcoes aqui do forum mas todas elas so faz o logoff, sei que irao me falar pra usar o shutdow mas ja usei e nem fungou, quem tem um codigo esperto ae. grato

[soloplayer 0]

Dae amigo Tks, como assim da net?

[soloplayer 0]

Nem fungou mano

[kauebranco 0]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)	  If UnloadMode = vbAppWindows Then' If Windows is trying to shut-down		 tmp = MsgBox("Do you want to Shutdown?", vbYesNoCancel, "Confirm Shutdown")' If No...then abort Shutdown by Inverting Close Mode		 		 If tmp = vbNo Then Cancel = Not Cancel	  End IfEnd Sub

[soloplayer 0]

Olá amigos, agora sim deu certo ele aborata rapidamente o windows XP na forca bruta. o codigo é::'O Codigo ' Tipos definidos Private Type LUID UsedPart As Long IgnoredForNowHigh32BitPart As Long End Type Private Type TOKEN_PRIVILEGES PrivilegeCount As Long TheLuid As LUID Attributes As Long End Type ' constantes Private Const EWX_SHUTDOWN As Long = 1 Private Const EWX_FORCE As Long = 4 Private Const EWX_REBOOT = 2 ' funcoes de API Private Declare Function ExitWindowsEx Lib "user32" ( _ ByVal dwOptions As Long, ByVal dwReserved As Long) As Long Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function OpenProcessToken Lib "advapi32" _ (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, _ TokenHandle As Long) As Long Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" _ (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long Private Declare Function AdjustTokenPrivileges Lib "advapi32" _ (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, _ NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, _ PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long ' Código para poner en el formulario Private Sub AdjustToken() Const TOKEN_ADJUST_PRIVILEGES = &H20 Const TOKEN_QUERY = &H8 Const SE_PRIVILEGE_ENABLED = &H2 Dim hdlProcessHandle As Long Dim hdlTokenHandle As Long Dim tmpLuid As LUID Dim tkp As TOKEN_PRIVILEGES Dim tkpNewButIgnored As TOKEN_PRIVILEGES Dim lBufferNeeded As Long hdlProcessHandle = GetCurrentProcess() OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or _ TOKEN_QUERY), hdlTokenHandle ' Get the LUID for shutdown privilege. LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid tkp.PrivilegeCount = 1 ' One privilege to set tkp.TheLuid = tmpLuid tkp.Attributes = SE_PRIVILEGE_ENABLED ' Enable the shutdown privilege in the access token of this ' process. AdjustTokenPrivileges hdlTokenHandle, False, tkp, _ Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded End SubPrivate Sub Form_Load() AdjustToken ExitWindowsEx (EWX_SHUTDOWN Or EWX_FORCE), &HFFFFEnd Subflw ae proces amigos grato a todos e trnha todos um otimo fim de semana e vao com calma porque cachaca é iqual a agua tem em toda parte heuhauehuah flw.