Temps pendant lequel l'ordinateur est allumé.

Soyez le premier à donner votre avis sur cette source.

Vue 4 121 fois - Téléchargée 286 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
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
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
cs_Kirua Messages postés 3006 Date d'inscription dimanche 14 avril 2002 Statut Membre Dernière intervention 31 décembre 2008
24 avril 2003 à 18:26
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)
cs_Kirua Messages postés 3006 Date d'inscription dimanche 14 avril 2002 Statut Membre Dernière intervention 31 décembre 2008
24 avril 2003 à 18:25
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
VicoLaChips2 Messages postés 436 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 2 février 2010 2
24 avril 2003 à 18:22
Moi ça fait : 3 jours, six heures, 14 minutes et 45 secondes que ça fonctionne au poil !!
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 1
24 avril 2003 à 18:12
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.