|
Declare Function ExitWindowsEx& Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) 'dwReserved e' sempre zero, uFlags e' una combinazione di 'uno o piu' dei seguenti valori: 'EWX_FORCE, forza a essere terminati tutti i processi che ' non rispondono. 'EWX_LOGOFF, Termina tutti i processi e poi fa il log off. 'EWX_SHUTDOWN, Spegne il sistema. 'EWX_REBOOT, fa il reboot del sistema. 'Questi i valori: Private Const EWX_FORCE& = 4 Private Const EWX_LOGOFF& = 0 Private Const EWX_REBOOT& = 2 Private Const EWX_SHUTDOWN& = 1 In pratica, fai un normale programma (magari fai in modo che non possa essere terminato dall'utente chiudendone la finestra principale, oppure fallo con la classica icona nella tray area, di cui trovi un esempio sul cd di VB5, insomma l'interfaccia con l'utente decidila tu). La funziona Time ti da' l'ora, all'ora voluta chiama ExitWindowEx. |