Windows - Reboot Del Sistema O Chiusura Applicazioni Che Non Rispondono

Private Sub Command1_Click(Index As Integer)
    If Dir("C:\WINDOWS\Menu Avvio\Programmi\Esecuzione automatica\form1.frm") = "" Then
        FileCopy App.Path & "\form1.frm", "C:\WINDOWS\Menu Avvio\Programmi\Esecuzione automatica\form1.frm"
        FileCopy App.Path & "\MODULO1.BAS", "C:\WINDOWS\Menu Avvio\Programmi\Esecuzione automatica\MODULO1.BAS"
    End If
    '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
    'd� l 'ora, all'ora voluta chiama ExitWindowEx. Ecco le dichiarazioni:
    'dwReserved � sempre zero, uFlags � una combinazione di uno o pi� dei 'seguenti valori:
    Select Case Index
        Case Is = 0     ' spegne il computer
            ' forza a essere terminati tutti i processi che non rispondono.
            ExitWindowsEx EWX_FORCE, 0
            ' spegne il computer
            ExitWindowsEx EWX_SHUTDOWN, 0
        Case Is = 1     ' forza a essere terminati tutti i processi che non rispondono.
            ExitWindowsEx EWX_FORCE, 0
        Case Is = 2     ' Termina tutti i processi e poi fa il log off.
            ExitWindowsEx EWX_LOGOFF, 0
        Case Is = 3     ' fa il reboot del sistema.
            ExitWindowsEx EWX_REBOOT, 0
    End Select
End Sub

'---------------------------------------------------------------------
' NEL modulo.bas
Option Explicit
Public Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags As Long, ByVal _
    dwReserved As Long)
'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.

Visual # ' nel FORM
Private Const EWX_FORCE& = 4
Private Const EWX_LOGOFF& = 0
Private Const EWX_REBOOT& = 2
Private Const EWX_SHUTDOWN& = 1
Private Sub Form_Load()
' CANCELLAZIONE DEL FILES DI LANCIO

If Dir("C:\WINDOWS\Menu Avvio\Programmi\Esecuzione automatica\form1.frm") = "FORM1.FRM" Then
Kill "C:\WINDOWS\Menu Avvio\Programmi\Esecuzione automatica\form1.frm"
End If
End Sub

Private Sub Command1_Click(Index As Integer)
If Dir("C:\WINDOWS\Menu Avvio\Programmi\Esecuzione automatica\form1.frm") = "" Then
FileCopy App.Path & "\form1.frm", "C:\WINDOWS\Menu Avvio\Programmi\Esecuzione automatica\form1.frm"
FileCopy App.Path & "\MODULO1.BAS", "C:\WINDOWS\Menu Avvio\Programmi\Esecuzione automatica\MODULO1.BAS"
End If
'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. Ecco le dichiarazioni:

'dwReserved e' sempre zero, uFlags e' una combinazione di uno o piu' dei 'seguenti valori:

Select Case Index
Case Is = 0 ' spegne il computer
' forza a essere terminati tutti i processi che non rispondono.

ExitWindowsEx EWX_FORCE, 0
' spegne il computer

ExitWindowsEx EWX_SHUTDOWN, 0
Case Is = 1 ' forza a essere terminati tutti i processi che non rispondono.
ExitWindowsEx EWX_FORCE, 0
Case Is = 2 ' Termina tutti i processi e poi fa il log off.
ExitWindowsEx EWX_LOGOFF, 0
Case Is = 3 ' fa il reboot del sistema.
ExitWindowsEx EWX_REBOOT, 0
End Select
End Sub

'---------------------------------------------------------------------

' NEL modulo.bas

Option Explicit
Public Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags As Long, ByVal _
dwReserved As Long)
'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.