Temps pendant lequel l'ordinateur est allumé.

Soyez le premier à donner votre avis sur cette source.

Vue 3 977 fois - Téléchargée 271 fois

Description

Depuis quand n'avez vous pas rebootez ?

Source / Exemple :


Option Explicit
'--------------

Private mStartTime As Date
Private mOldSec As Long
Const dblAr As Double = 0.49999

Private Sub Form_Load()
    mOldSec = -1
    mStartTime = Now()
End Sub

Private Sub TimRefresh_Timer()
    Static lngSec As Long
    Dim Sec As String, Min As String, Hour As String, Jour As String
    
    lngSec = Abs(DateDiff("s", Now, mStartTime))
    
    If mOldSec < lngSec Then
    
        Sec = Format(lngSec Mod 60, "00")
        Min = Format(((lngSec / 60) - dblAr) Mod 60, "00")
        Hour = Format(((lngSec / 3600) - dblAr) Mod 24, "00")
        Jour = Format(((lngSec / 86400) - dblAr), "00")
        lblHeure = Jour & " jour(s), " & Hour & " Heure(s), " & _
        Min & " Minute(s) et " & Sec & " Seconde(s)"
        
        mOldSec = lngSec
        
    End If
End Sub

Conclusion :


Inspiré par Max12, (salut à toi)
Attention il faut copier le code du dessus
dans le source (zip), c'est pas le même
@+, VIC

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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 !!
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
1
Ché nous sa na jamais depasser 12 heures sans ke windows plante,et encore la c'est kan jai dla chance :D
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.