REINICIAR O WINDOWS

CAJU 08/03/2004 20:32:04
#14549 Resposta escolhida

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

declare uma variavel para contar quantas vezes foi feito o login

dim cnt as byte

cmdLogin_click

if txtsenha.text DIFERENTE senha then
cnt=cnt+1
txtsenha.text=""
if cnt=3 then ret& = ExitWindowsEx(1, 0)
end if
exti sub