Graphisme Evasion Index du Forum
Graphisme Evasion
La communauté graphiques française
 
Graphisme Evasion Index du ForumFAQRechercherMembresGroupesProfilS’enregistrerConnexion
Votez pour ce site au Weborama

TOUS DROITS RESERVES Graphisme-Evasion © 2008, 2009 Graphisme-Evasion
Ajouter ce site dans vos favoris
Xooit.com :: Top Forums

Ce site est listé dans la catégorie Microsoft Windows : Aide Windows de l'annuaire Referencement et Dictionnaire

Classement de sites Webtoweb, concours gratuit
Calculer le temps de redémarage de votre pc

 
Répondre au sujet    Graphisme Evasion Index du Forum -> Espace informatique -> Astuces
Sujet précédent :: Sujet suivant  
Auteur Message
Nodoka-San
Fondateur
Fondateur

Hors ligne

Inscrit le: 26 Juin 2008
Messages: 189
Localisation: chez toi !
Masculin Verseau (20jan-19fev) 龍 Dragon
Points Graphiste: 0
1: 1,03
Points: 194

MessagePosté le: Lun 14 Juil - 17:49 (2008)    Sujet du message: Calculer le temps de redémarage de votre pc Répondre en citant

Pour connaître le temps de démarrage de votre PC :

copier le script VBScript (Visual Basic Scripting Edition) et coller le dans bloc-note ou dans un document texte


 
Code:
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, veuillez fermer toutes les applications en cours et cliquer sur OK."
KeyA = "HKEY_CURRENT_USER\Software\RestartTime\"
KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\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 



puis enregistrer sous



il faut que nom de fichier termine .vbs
exemple : omar.vbs


double clicks sur le fichier



ok


_________________


ありがとIzyくん ! ★
「♪ 私は "ゆい" すき です~』
Du chaos naît une étoile.

Cliquer Sur le lien ci-dessous pour voter pour le forum !!
http://nodoka-san.boosterforum.com/
Revenir en haut
Auteur Message
Publicité






MessagePosté le: Lun 14 Juil - 17:49 (2008)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Répondre au sujet    Graphisme Evasion Index du Forum -> Espace informatique -> Astuces Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  

Top 10 | Top 50 Album Photo| Index | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2008, 2009 phpBB Group
Traduction par : phpBB-fr.com
Thème Pluminator imaginé et réalisé par Maëlstrom

TOUS DROITS RESERVES Graphisme-Evasion © 2008, 2009 Graphisme-Evasion
Annuaire Chiffonnette - Incontournable