TEMPS PENDANT LEQUEL L'ORDINATEUR EST ALLUMÉ.
cs_seboss
Messages postés
39
Date d'inscription
dimanche 13 janvier 2002
Statut
Membre
Dernière intervention
26 avril 2006
-
22 avril 2003 à 03:32
cs_seboss Messages postés 39 Date d'inscription dimanche 13 janvier 2002 Statut Membre Dernière intervention 26 avril 2006 - 24 avril 2003 à 18:53
cs_seboss Messages postés 39 Date d'inscription dimanche 13 janvier 2002 Statut Membre Dernière intervention 26 avril 2006 - 24 avril 2003 à 18:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1827-temps-pendant-lequel-l-ordinateur-est-allume
https://codes-sources.commentcamarche.net/source/1827-temps-pendant-lequel-l-ordinateur-est-allume
24 avril 2003 à 18:53
dans le registre a chack demarrage jdemmarer ce VBS :
' UPTIME BY SEBEUH
' Partie : Moteur
' version : 1.01b
'Declaration et initialisation des variables
Dim mNow
mNow = Now()
'Enregistrement dans le registre
set objReg = CreateObject("WScript.Shell")
objReg.RegWrite "HKEY_CURRENT_USERSoftwareuptime_start_pc", mNow, "REG_SZ"
et puis qd jvé voir qd tps ca f, jlancer le VBS :
' UPTIME BY SEBEUH
' Partie : Visuel
' version : 1.01b
'Declaration des variables
Dim start_date, now_date, cSec, cMin, cHour, cJour, clngSec
' Recuperation des dates
Set objReg = CreateObject("WScript.Shell")
start_date = objReg.RegRead("HKEY_CURRENT_USERSoftwareuptime_start_pc")
now_date = Now()
' Calcul
clngSec = Abs(DateDiff("s", now_date, start_date))
cSec = int(clngSec Mod 60)
cMin = int(((clngSec / 60) - 0.49) Mod 60)
cHour = int(((clngSec / 3600) - 0.49) Mod 24)
cJour = int(((clngSec / 86400) - 0.49))
'Genaration du msg
msgUptime = cJour & " jour(s), " & cHour & " Heure(s), " & cMin & " Minute(s) et " & cSec & " Seconde(s)"
'Affichage
Msgbox "Votre ordinateur a été démarré le " & start_date & "." & vbCrLf & msgUptime , vbInformation, "Uptime v1.01 by SeBeuH"
voila c tt con g vite fait ca chez un pote ki a rien sur c pc a part des jeux, dc ca rest du vbs !!! fodré refair ca en VB ou .NET avec le gettickcount !!
a+
seb
24 avril 2003 à 18:26
24 avril 2003 à 18:25
j'ai installé linux mandrake 9.1 la nuit passée (et oui ^^), et Konqueror a planté 5 ou 6 fois en une heure O_o
24 avril 2003 à 18:22
24 avril 2003 à 18:12
22 avril 2003 à 12:38
ça renvoit le nombre de secondes depuis le démarrage de windows