Partager l'article ! Vbscript utile: Alors voila je vous propose un petit Vbscript que vous allez vous meme crée ^^ (ps : sa yest je suis de retour ^^) ensuite le pe ...
Ce n’est un secret pour personne, Maxishare est mort et cette fois-ci il ne s’en tira pas. Les événements se sont succédés : depuis la fermeture de Megaupload et la refonte de notre hébergeur, l’envie n’est plus là. C’est triste, mais le moment est venu de passer à autre chose. 5 ans de loyaux services, Maxishare a traversé différentes étapes : de la naissance à la consécration. Sa disparition était inéluctable ; l’heure est venue de vous dire adieux, chers visiteurs, même si vous n’êtes plus nombreux.
Sur ce pas, je vous invite de visiter les sites suivants :
Vous y trouverez votre bohneur !
Que chacun se souvienne du bon vieux temps, avant de s’en aller vers d’autres horizons !
Alors voila je vous propose un petit Vbscript que vous allez vous meme crée ^^ (ps : sa yest je suis de retour ^^) ensuite le petit script va servir a compte le temp de votre redemarage du pc !!
et on va jouer au jeu du record ^^ alors voila le script a faire
ouvrer un blocnote (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_USER\Software\RestartTime\"
KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Run\RestartTime"
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 voila le resultat tester 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
|
|
Cette image est redimensionnée. cliquez ici pour l'afficher à sa taille d'origine |
Signaler un problème (liens morts...)
Maxishare.fr ne pourra pas en aucun cas être tenu pour responsable
d'une utilisation illégale des fichiers disponibles sur ce site. À noter que ces derniers ne sont ni accueillis ou transmis physiquement sur ce
serveur.
P.S : Pour signaler un contenu protégé, cliquez-ici ou contactez directement l'hébergeur concerné.
Un merci nous motiverait davantage à continuer !!!
Si vous cherchez un fichier en particulier que vous n'avez rien trouvé sur Maxishare, remplissez notre formulaire Demander.
Et enfin, merci de faire circuler l'adresse du site et le conseiller à vos amis afin que tout le monde puisse en
profiter.
Copyright (c) Maxishare.fr Tous droits réservés.
Contact | Informations légales | Liste des articles | Moteur de recherche | Flux RSS