begin process at 2012 02 17 08:40:42
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Système

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

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


 Information sur la source

Note :
7,5 / 10 - par 6 personnes
7,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Système Classé sous :reboot, redémarrer, win2000, winnt, shutdown Niveau :Initié Date de création :26/01/2002 Date de mise à jour :27/01/2002 00:36:51 Vu / téléchargé :28 339 / 799
Auteur : Nix

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (15)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Voici un petit exemple qui peut s'avérer très utile pour forcer le redémarrage d'une station NT ou 2000.  

Source

  • ' 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 
' 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 ;-)  

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE...
IMPRIMER LE CONTENU D'UN RICHTEXTBOX
Source avec Zip Source avec une capture TESTEUR DE REGEX (REGULAR EXPRESSIONS)
COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE
NOMBRE DE JOURS DANS LE MOIS
Toutes les sources de Nix

 Sources de la même categorie

Source avec Zip Source avec une capture AUTORISER/REFUSER L'EXECUTION DE PROCESSUS par pierreh51
Source avec Zip Source .NET (Dotnet) CLONE/FORK DES FLUX DE LA CONSOLE : PERMETTRE LA REDIRECTION... par ShareVB
Source avec Zip Source .NET (Dotnet) DÉFRAGMENTER UN FICHIER par ShareVB
Source avec Zip Source .NET (Dotnet) ECRAN DE VEILLE : DÉTECTER LE LANCEMENT/DÉCLENCHER/EMPÊCHER par ShareVB
Source avec Zip Source avec une capture DESACTIVER / ACTIVER LES MISES EN VEILLES PC par Arsena
Toutes les sources de la catégorie Système

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture SHUTDOWN TT LES FONCTION DISPONIBLE UTLISER AVEC PLANIFICATI... par jeremdoudou
Source avec Zip Source avec une capture ETEINDRE OU REDÉMARRER SON PC AU BOUT D'UN CERTAIN TEMPS OU ... par darkeenu
Source .NET (Dotnet) REDÉMARRER UNE MACHINE RÉSEAU VIA WMI VB.NET par fcampagne
Source avec Zip Source avec une capture UTILITAIRE DE REDÉMARRAGE AUTONOME par marcdebureaux
Source avec Zip EXITWINDOWS par pitrack

Commentaires et avis

Commentaire de Pekinio le 26/01/2002 23:56:07

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 !

Commentaire de Nix le 27/01/2002 00:45:33 administrateur CS

Mais elle est bien ma capture non ?

A++

Nix

Commentaire de acidtoxik le 12/05/2002 17:21:16

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 !!!

Commentaire de bonbecman le 15/06/2002 16:15:20

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 !

Commentaire de madVinz le 07/07/2002 02:29:12

c'est vrai que qd on voit l'endroit ou on surf, on peux pas vraiment dire que Nix soit "une vrai merde"

Commentaire de gg00xiv le 15/08/2002 03:43:36

c pas cool d'insulter, si ya plus simple, tu peux le dire plus gentillement, enfin pas en agressivité

Commentaire de Cerbere le 01/12/2002 18:40:38

Whaooww, c'est super l'ambiance ici ....
Enfin bon bref, merci quand même.

Commentaire de djullz le 26/01/2003 02:07:24

c koi c commentaires de merde, ça serait bien de nous dire plutôt si le source marche ou marche pas !!!

Commentaire de Bensashi le 11/10/2003 17:49:23

Eh bien ce petit programme n'est pas mal pour le reboot par contre pour l'arret total n'y aurait il pas un moyen de couper l'alimentation ? parce que le message disant qu'on peut fermer windows c'est pas top !

pour acidtoxik : ta ligne de comande ne passe pas sur les W2k, mais sur les XP elle devrait etre bonne.

Commentaire de Helkanen le 21/12/2003 19:17:23

Salut Nix
merci pour cette source
mais j'ai été obligé de "l'améliorer" en le convertissant en c++
je sais pas si le problème peut se poser aussi en VB, mais c'était impossible d'initialiser l'arret (renvoi de la valeur 0=false) parce que le processus n'avait pas les autorisations nécessaires (sous XP)
j'ai donc ajouté une fonction permettant au processus d'acquérir ces autorisations (trouvé dans une autre source)
et maintenant ça marche...

Commentaire de Helkanen le 21/12/2003 21:05:34

de plus, je dois ajouter qu'on peut tout à fait annuler cette fonction simplement en utilisant l'autre API :

BOOL AbortSystemShutdown(
  LPTSTR lpMachineName
);

on fait donc :
AbortSystemShutdown("")

et c'est bon

Pour ce que j'ai dit au-dessus, les privilèges sont accordés grâce à la fonction AdjustTokenPrivileges() (API)... allez voir d'autres sources pour plus d'infos

Helkanen

Commentaire de tahiti_bob le 16/11/2004 21:35:16

Bonjour,

Pour lancer le redémarrage forcé, il faut executer la commande "shutdown -t 60 -s".

Mais on peut a tout moment interrompre le compte à rebours avec la commande "shutdown -a".
( c'est comme ca qu'il fallait empecher le virus Sasser de redémarrer leposte).

@++
Tahiti_bob

Commentaire de Nix le 23/02/2006 03:27:34 administrateur CS

Pour l'idiot du village (sans le nommer acidtoxik) la commande dos "shutdown" n'est que dans Win XP et Win 2003 ! Et le titre de ma source stipule bien Win NT et Win 2000 !

Commentaire de CORBnet le 09/03/2007 22:28:07

lol faut pas le vexer il s'est juste enflammé  quelques secondes parce qu'il s'est cru +fort que Nix c pa grav :p

Commentaire de linuxtonton le 06/05/2007 08:43:22

Bonjour à toutes et à tous,
Grand merci à "Nix" pour ce site et surtout pour ce petit programme.
Je vais vite l'essayer.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Arrêter/Redémarrer/Déconnecter Win2000 [ par Olivier ] Est-ce que quelqu'un sait l'API à utiliser our arrêter ou redémarrer ou déconnecter Windows 2000 ? Un truc qui reboot un pc sous windows98 [ par Djé ] Bonjour,Je cherche un truc (API, fonction, programme...) qui reboot un pc souswindows 98 et que l'on peut executer automatiquement dans un programmeV redémarrer en mode Ms-Dos [ par rodrigos ] Existe-t-il une fonction pour redémarrer en mode ms-dos depuis une aplication vb? .: Nurmitezz Bugzz :: [ par Setaou ] Sous win2000, j'ai remarqué que l'affichage 3D Iso ne marchait pas (en tout cas le remplissage des polygones). Sous 98 le problème n'apparait pas.Pour GetCommandLine sous Win2000 [ par Godbout ] Salut a tous,Voila j'ai un gros pb avec la commande GetCommandLine sous win2k.Sous 98 elle marche parfaitement mais sous 2k elle me fait planter le pr Pourquoi ca marche en winMe et pas en Nt4.0 [ par Véro ] J'ai fait un programme qui fonctionne tres bien ou prèsque. Je me suis créer des TextBox et j'ai besoin qu'il écrive a la vertical. Pour résoudre mo Problème d'impression avec Win2000 [ par cede26 ] Dans le cadre de mon projet, j'ai réalisé quelques rapports imprimés à l'aide de l'objet Printer et de la commande Printform. Lorsque j'imprime ceux-c COMPATIBILITE: NT , win2000 *urGeNt* [ par magicyoda ] voila, j'ai creer mon application sous VB6pro et sous windows XP, ellemarche perfect !mais lorsque je l'a lance :-sous windows NT : C:\****** nest pas installer VB6 sur win2000 [ par bermudes ] Bonjourc'est peut etre une question toute bete pour vous , mais voila je cherche a installer VB6 sur windows 2000 mais je sais pas ou le trouver et co


Nos sponsors


Sondage...

Comparez les prix


Archos 7 home tablet - 2 Go
Entre 149€ et 159€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,530 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)