[VB] Restart Time

[XC-Co0kI3S]

Alors voila je vous propose un petit Vbscript que vous allez vous meme crée. Ensuite le petit script va servir a compte le temps de votre redémarrage du PC.

Ouvrer un bloc-note (util avance : executer -> notepad)
et copier coller ceci :
Option Explicit
On Error Resume Next


Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff


MsgA = "Pour chronométrer le redémarrage, cliquer sur OK. Votre ordinateur va redémarré . Antho0606"
KeyA = "HKEY_CURRENT_USERSoftwareRestartTime"
KeyB = "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentV ersionRunRestartTime"
AppName = "Restart-Time"


Set Wsh = CreateObject("WScript.Shell")

PathFile = """" & WScript.ScriptFullName & """"
Result = wsh.RegRead(KeyA & "Times")


if Result = "" then
MsgResult = Msgbox (MsgA, vbOKCancel, AppName)
If MsgResult = vbcancel then WScript.Quit
Wsh.RegWrite KeyA & "Times", left(Time,8), "REG_SZ"
Wsh.RegWrite KeyB, PathFile, "REG_SZ"
Wsh.Run "cmd /c Shutdown -r -t 00", false, 0
else
Wsh.RegDelete KeyA & "Times"
Wsh.RegDelete KeyA
Wsh.RegDelete KeyB
TimeDiff = DateDiff("s",Result,left(Time,8))
MsgBox "PC redémarré en " & TimeDiff & " secondes", VbInformation, AppName
end if


wscript.Quit

Et enregistrer sous restart-time.vbs (ou "nom".vbs)

et voilà le résultat testé sur une machine.

Windows Vista 32 bit basic
3Go ram pc6400
Amd athlon X2 2.32 Ghz
Ati Radeon HD4650

programme ralentissant le redemarage :
WLM
Xfire
Dock X
Steam
CCC
Orange

Source : Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!

La personne fait énormément de faute d'orthographe ! J'ai du tout corrigé tout seul :arf:

Cordialement XC-Co0kI3S

 

[Evaelis]

Mets des balises code , mauvaise section , ça peut être utile :D