Forcer le reboot sous windows nt ou windows 2000 (redémarrage forcé)

Soyez le premier à donner votre avis sur cette source.

Vue 30 618 fois - Téléchargée 877 fois


Télécharger le projet
Commenter

Description

Voici un petit exemple qui peut s'avérer très utile pour forcer le redémarrage d'une station NT ou 2000.

Source / Exemple : 


' 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

Conclusion :


ATTENTION : ne cliquez pas sur le bouton directement car il n'y a aucun moyen d'arrêter le redémarrage du poste. Donc si vous testez, fermez tous vos progs avant ;-)
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
cs_Pekinio
Messages postés
161
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
10 mars 2002
 -
nix, la qualité de tes capturent d'écran vont de pis en pis... ;-p quand a ton site, je n te l'dirais jamais assez, bien vu !
Signaler
Nix
Messages postés
838
Date d'inscription
samedi 15 mai 1999
Statut
Modérateur
Dernière intervention
18 juillet 2009
 -
Mais elle est bien ma capture non ?

A++

Nix
Signaler
acidtoxik
Messages postés
28
Date d'inscription
dimanche 12 mai 2002
Statut
Membre
Dernière intervention
2 janvier 2008
 -
t une vrai merde !!! ton prog moi je te le developpe en qques lignes :

command1_click()
shell "shutdown -t xx -s" 'xx est en seconde donc tu peu remplacer par text1.text
end sub

voila dis-moi si c pas plus facile !!!
Signaler
bonbecman
Messages postés
11
Date d'inscription
vendredi 31 mai 2002
Statut
Membre
Dernière intervention
27 novembre 2004
 -
acidtoxik ta pris se pseudo parce que tu fais fuir tout le monde avec sale tronche de con ? Ici, PERSONNE et je dis bien PERSONNE n'a le droit de dire koi que se soi sur NIX, compris car ici la merde c'est pas lui cé toi !
Signaler
cs_madVinz
Messages postés
48
Date d'inscription
lundi 22 octobre 2001
Statut
Membre
Dernière intervention
6 août 2002
 -
c'est vrai que qd on voit l'endroit ou on surf, on peux pas vraiment dire que Nix soit "une vrai merde"
Afficher les 15 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Nix)