Soyez le premier à donner votre avis sur cette source.
Vue 30 769 fois - Téléchargée 899 fois
' 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
Grand merci à "Nix" pour ce site et surtout pour ce petit programme.
Je vais vite l'essayer.
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
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
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.