compteur temps passé sur ordinateur allumé

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: compteur temps passé sur ordinateur allumé

Message par Kwai chang caine »

En fin de compte, tu remplacerais waitwindowevent par delay (), tu aurais le même comportement.
Une boucle c'est comme une queue au mamouth...si mémé met noir de temps à la caisse pour payer avec de la monnaie, des coupons reduction, etc. ..
Et ben tout le monde attends derrière, t'as pas le choix, t'es coincé. ..jusqu'à qu'il se passe un nouvel événement (mémé ai fini, mémé fasse un malaise, ou better ...mémé meurt pour pouvoir la pousser et enfin pouvoir continuer sa vie :mrgreen:
Comprends tu ?? :D
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
boby
Messages : 261
Inscription : jeu. 07/juin/2007 22:54

Re: compteur temps passé sur ordinateur allumé

Message par boby »

J'ai vu beaucoup de logiciels payants sur le net, mais l'objectif n'est pas de pister sur quels sites elle va ou ce qu'elle y fait, mais simplement de savoir combien de temps son pc est resté allumé

Code : Tout sélectionner

Declare close()
Global temps
temps = ElapsedMilliseconds()
OpenWindow(0,0,0,0,0,"",#PB_Window_Invisible)
BindEvent(#PB_Event_CloseWindow,@close())
Debug GetEnvironmentVariable("APPDATA") + "\jdb\jdb.txt"
Repeat : WaitWindowEvent() : ForEver
Procedure close()
  OpenFile(0,GetEnvironmentVariable("APPDATA") + "\jdb.txt")
  FileSeek(0,Lof(0))
  WriteStringN(0,FormatDate("%dd/%mm/%yyyy", Date())+ Chr(9) + FormatDate("%hh:%ii:%ss", (ElapsedMilliseconds() - temps)/1000) )
  CloseFile(0)
  End
EndProcedure
Tu crée un exe de ça, tu le met dans les tâches planifié pour qu'il se lance au démarage de winzob, quand elle eteindra le PC windobe le fermera proprement par lui même, appelant la fonction close() qui remplira le jdb que tu retrouve en faisant touche wintruc + R et en tapant %appdata%
Si vraiment tout ce que tu veux savoir c'est le temps d'allumage du PC, je ne voie même pas pourquoi se prendre la tête, tout est déjà tracé dans le journal des évènement, mais si tu le veux en code, pas besoin de 500 lignes non plus.
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: compteur temps passé sur ordinateur allumé

Message par Kwai chang caine »

Oui ...ya l'observateur d'évènements de windows...
Mais alors c'est javel la croix et la banniere pour s'y retrouver, et le lire par le code (il doit y avoir des exemples sur les forums), tellement ya des millions d'événements qui sont notés. 8O
Je crois même avoir vu l'événement, quand l'utilisateur va pisser :mrgreen:
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Marc56
Messages : 2196
Inscription : sam. 08/févr./2014 15:19

Re: compteur temps passé sur ordinateur allumé

Message par Marc56 »

Code : Tout sélectionner

  OpenFile(0,GetEnvironmentVariable("APPDATA") + "\jdb.txt")
  FileSeek(0,Lof(0))
:idea: :arrow:

Code : Tout sélectionner

  OpenFile(0,GetEnvironmentVariable("APPDATA") + "\jdb.txt", #PB_File_Append)
:wink:
david
Messages : 208
Inscription : jeu. 03/févr./2005 21:10

Re: compteur temps passé sur ordinateur allumé

Message par david »

Kwai chang caine

merci pour l'histoire de la mémé, au moins là j'ai bien compris mdr
pour l'observateur d'évènements de windows, effectivement je préférais un truc simple et rapide
(en plus j'ai rajouté des trucs du style si l'ordi est alumé trop longtemps sur sa cession ou s'il est allumé trop longtemps en cumul il prévient et s'éteind tout seul...)
autant donc avoir PB qui permet en seul un programme de gérer tout ce qu'on veut


boby

merci pour le code, y a pas a dire, c'est du concentré!


Marc56

comme quoi on peut tjs faire plus court..
enfin après ça il ne dois plus rester grand chose a raccourcir...


Enfin, un grand merci a tout le monde
étant débutant mes trucs restent souvent au stade de bidouille plus qu'autre chose,
mais avec votre aide j'avance petit a petit, et j'arrive toujours a aboutir a quelque chose qui fonctionne même si on peut toujours améliorer...
Répondre