TEMPS PENDANT LEQUEL L'ORDINATEUR EST ALLUMÉ.

Signaler
Messages postés
39
Date d'inscription
dimanche 13 janvier 2002
Statut
Membre
Dernière intervention
26 avril 2006
-
Messages postés
39
Date d'inscription
dimanche 13 janvier 2002
Statut
Membre
Dernière intervention
26 avril 2006
-
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

Messages postés
39
Date d'inscription
dimanche 13 janvier 2002
Statut
Membre
Dernière intervention
26 avril 2006

moi jvé dev vite ca vu ke jconnésé po le GetTichCount du sdk !!
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
Messages postés
3006
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
31 décembre 2008

de plus en pleine copie de fichiers, il s'est arrêté net, comme ça !! et ne me dites pas que je sais pas me servir d'un pc j'en ai un depuis 8 ans (et j'en ai 16 mtnt)
Messages postés
3006
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
31 décembre 2008

XP ne plante pas tant que ça.
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
Messages postés
436
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
2
Moi ça fait : 3 jours, six heures, 14 minutes et 45 secondes que ça fonctionne au poil !!
Afficher les 6 commentaires