FORCER LE REBOOT SOUS WINDOWS NT OU WINDOWS 2000 (REDÉMARRAGE FORCÉ)

' Dans votre Form, mettez :
' Un txtbox nommé : TxtNbSec
' Un bouton nommé : BtnReboot

Option Explicit
Private Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal bRebootAfterShutdown As Long) As Long

Private Sub Apropos_Click()
    MsgBox ("Forcer le reboot d'une station NT/2000")
End Sub

Private Sub BtnReboot_Click()
    InitiateSystemShutdown "\\127.0.0.1", "Ce système va être rebooté suite à la demande de BSDCUBEReboot.", CLng(Me.TxtNbSec.Text), True, True
    ' Nom de la machine, Message qui va s'afficher, Délai (en seconde, j'ai déjà mis 28800 sec pour programmer l'arrêt et ça marche aussi), Forcer la fermeture des application ouvertes, Redemarrer (false = arrêt)
End Sub

Private Sub quitter_Click()
    End
End Sub

Private Sub TxtNbSec_KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        MsgBox ("Seulement de chiffres")
        KeyAscii = 0
    End If
End Sub

Télécharger le zip

• FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE)
• IMPRIMER LE CONTENU D'UN RICHTEXTBOX
• TESTEUR DE REGEX (REGULAR EXPRESSIONS)
• COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE
• NOMBRE DE JOURS DANS LE MOIS

• CONTRÔLER DES RESTRICTIONS ET LA CONFIG
• AJOUTER DES FICHIERS LOG DANS SON APPLICATION.
• RÉCUPÉRATION/ÉCRITURE DES NOMS DE FICHIERS CONTENUS DANS LE PRESSE-PAPIER
• WMI, GESTION D'UNE MACHINE (LOCALE OU DISTANTE)
• SHUTDOWN TT LES FONCTION DISPONIBLE UTLISER AVEC PLANIFICATION

• SHUTDOWN TT LES FONCTION DISPONIBLE UTLISER AVEC PLANIFICATION
• ETEINDRE OU REDÉMARRER SON PC AU BOUT D'UN CERTAIN TEMPS OU À UNE DATE ET HEURE PRÉCISE
• REDÉMARRER UNE MACHINE RÉSEAU VIA WMI VB.NET
• UTILITAIRE DE REDÉMARRAGE AUTONOME
• EXITWINDOWS