Controle parental durée d'utilisation d'un PC [Résolu]

Ollivier · Message par **Ollivier** » lun. 24/sept./2007 21:23

Thanks! Hélas, je suis sur un projet depuis plusieurs semaines. Je le court-circuite de temps en temps par autre chose. En ce moment, sans programmation, je me tire une

Dobro a écrit :ben tu connais pas ma copine alors

Mhmh... C'est juste qu'il y a un nirvana possible dans la réflexion

Kwai chang caine · Message par **Kwai chang caine** » mar. 25/sept./2007 8:37

Bah ........... elle son carré tes bulles

Bon sang ollivier c'est de la folie, c'est splendide.
T'es un genie.

Mais jusqu'a ou t'arretera tu ????

Ar-S · Message par **Ar-S** » mar. 25/sept./2007 13:16

Mon cher KCC,
Dofus est donc un mmorpg, pour en avoir tester, je peux te dire que ce genre de jeu est effectivement très très captivant ! Alors je te souhaite bon courage !

Voilà ce que j'essayerai de faire sur la théorie si je devais calmer ton gosse.

Imaginons que tu lui imposes : jeu uniquement de 17h à 18h30

Code : Tout sélectionner

DateHeure=chope l'heure sur internet (sur une page à toi) comme ça pas de bidouille possible.

If dateheure<heuredebut OR dateheure>heureFin
     if nomdel'exe_qui_lance_le_jeu.exe tourne en process
          Alors ferme les ports internet.
     endif
endif

Je pense qu'une petit soft comme celui ci tournant en tache de fond pourrait etre efficace.

Kwai chang caine

Merci ar-s de ton conseil
C'est une bonne idée d'aller chercher l'heure sur le "terre net"

Remarque y'a peut etre carrement un site qui retourne l'heure, ça doit bien exister puisque tout existe sur le net

Backup · Message par **Backup** » mar. 25/sept./2007 14:57

Kwai chang caine a écrit :Merci ar-s de ton conseil
C'est une bonne idée d'aller chercher l'heure sur le "terre net"

Remarque y'a peut etre carrement un site qui retourne l'heure, ça doit bien exister puisque tout existe sur le net

http://www.horlogeparlante.com/

sinon ce code va chercher l'heure sur internet !!

Code : Tout sélectionner

;/ Get Time from NTP Server / Set Local Time / Get Time Zone information
; Droopy 15/01/06 + Fweil for TimeZone functions
; PureBasic 4.10

ProcedureDLL.s GetTimeZoneName() ; Return the name of the Time Zone
    ;/ Author : Fweil
    
    GetTimeZoneInformation_(TimeZoneInfo.TIME_ZONE_INFORMATION)
    While TimeZoneInfo\StandardName[i] <>0 And i <= 32
        sStandardName.s + Chr(TimeZoneInfo\StandardName[i])
        i + 1
    Wend
    ProcedureReturn sStandardName
EndProcedure

ProcedureDLL GetTimeZone() ; Hour to add to the UTC hour
    ;/ Author : Fweil
    GetTimeZoneInformation_(TimeZoneInfo.TIME_ZONE_INFORMATION)
    retour=-TimeZoneInfo\Bias/60
    ProcedureReturn retour
EndProcedure

ProcedureDLL SetDate(date) ; Set the System Date : Return 1 if success
    Heure.SYSTEMTIME
    Heure.SYSTEMTIME\wYear=Year(date)
    Heure.SYSTEMTIME\wMonth=Month(date)
    Heure.SYSTEMTIME\wDay=Day(date)
    Heure.SYSTEMTIME\wDayOfWeek=DayOfWeek(date)
    Heure.SYSTEMTIME\wHour=Hour(date)
    Heure.SYSTEMTIME\wMinute=Minute(date)
    Heure.SYSTEMTIME\wSecond=Second(date)
    
    If SetSystemTime_(Heure)
        ProcedureReturn 1
    Else
        ProcedureReturn 0
    EndIf
EndProcedure

ProcedureDLL GetNTPTime(NTPServer.s,TimeOut) ; Ask a NTP Server and return the Date as PureBasic format / 0 if it could not be joined
    ; Server = time.ien.it / time.nist.gov / ntp1.fau.de
    
    InitNetwork()
    CnxionId= OpenNetworkConnection(NTPServer,37)
    
    If CnxionId
        
        ;/ Wait until the Server Send Datas
        While NetworkClientEvent(CnxionId)=0
            Delay(1)
            t+1
            If t>TimeOut
                ProcedureReturn 0
            EndIf
        Wend
        
        ;/ Wait until the Server Send Datas
        While NetworkClientEvent(CnxionId)=0
            Delay(1)
        Wend
        
        ;/ Get four Bytes
        Buffer.s=Space(4)
        ReceiveNetworkData(CnxionId,@Buffer,4)
        CloseNetworkConnection(CnxionId)
        
        ;/ Calcule the Date as PureBasic Format ( UTC )
        NTPTime=Asc(Left(Buffer,1))*16777216 + Asc(Mid(Buffer,2,1))*65536 + Asc(Mid(Buffer,3,1))*256 + Asc(Right(Buffer,1)) - 2840140800
        NTPTime=AddDate(NTPTime,#PB_Date_Year,20) ; Add 20 years
        
        ProcedureReturn NTPTime
    Else
        ProcedureReturn 0
    EndIf
EndProcedure

ProcedureDLL GetNTPTime2(NTPServer.s) ; Default TimeOut = 120ms
    ProcedureReturn GetNTPTime(NTPServer.s,120)
EndProcedure

;/ Test
NTPTime=GetNTPTime2("time.ien.it")

If NTPTime
    ;/ Set the Computer Time as NTP Time
    SetDate(NTPTime)
    
    ;/ Show information about Hour
    temp.s="UTC Time : "+FormatDate(" %dd/%mm/%yy %hh:%ii:%ss",NTPTime)+#CR$
    temp+"Zone : "+GetTimeZoneName()+#CR$
    temp+"Shift : "+Str(GetTimeZone())+" hour(s)"+#CR$
    temp+"Local Time as US format : "+FormatDate(" %mm/%dd/%yy %hh:%ii:%ss",NTPTime+GetTimeZone()*60*60)+#CR$
    temp+"Local Time as French format : "+FormatDate(" %dd/%mm/%yy %hh:%ii:%ss",NTPTime+GetTimeZone()*60*60)+#CR$
    MessageRequester("UTC et NTP",temp)
EndIf

Ar-S · Message par **Ar-S** » mar. 25/sept./2007 15:32

Il doit y avoir une tite coquille dans le code car il ne prend pas en compte l'heure d'été

il affiche une heure de moins chez moi.

Backup · Message par **Backup** » mar. 25/sept./2007 16:02

Ar-S a écrit :Il doit y avoir une tite coquille dans le code car il ne prend pas en compte l'heure d'été il affiche une heure de moins chez moi.

l'heure d'ete est une specificité "europeene" et encore, a londre ils reste a l'heure Solaire !!

parceque notre heure d'hiver a ete imposée par l'allemagne lors de la derniere guerre mondiale !!

Londre n'ayant jamais ete envahie par les allemands, ils ne connaissent pas l'heure d'hiver !!

il suffit de toute façon ajouter ou retirer 1 a l'heure !!

Ollivier · Message par **Ollivier** » mar. 25/sept./2007 16:12

C'est pas en 1973 plutôt ???

Kwai chang caine

@DOBRO

Cette fois je crois qu'on le tiens, le petit "nenfant" qui n'est pas discipliné

Je ne peux pas tester ton code car je suis au boulot, et le proxy de @#[~#{ veut pas de ta jolie adresse big ben

De retour chez moi, j'essaierais ce WE.
Cette adresse ne change jamais ?

Quoi qu'il en soit mille merci de ton aide.
Je l'avais prévenu :
"Les copains du forum qui sont "noir des tronches", y vont me donner un coup de main, et tu l'aura dans le baba"

que je lui ai dit.

Non mais dis donc c'est pas les marmots qui vont commander, j'ai déjà passé la moitié de ma vie à obéir à mon pere, je vais pas passer l'autre moitié à plier devant les "DJEUNS"
C'est des malins les DJEUN'S ils ont le pc dans le sang, mais on va leur montrer qu'on est encore pas pourri

Ollivier · Message par **Ollivier** » mar. 25/sept./2007 16:43

Je sens bien un nouveau venu s'intéresser aux commandes de PureBasic sur ce forum...

Kwai chang caine

Que les dieux t'entendent ..................

Backup · Message par **Backup** » mar. 25/sept./2007 18:41

Ollivier a écrit :C'est pas en 1973 plutôt ???

Giscard a instauré l'heure d'ETE apres le choc pétrolier !!

je parle de l'heure D'hiver qui est en avance d'1 heure sur le soleil !!

l'heure d'hiver (zoulou+1) a ete imposé par l'Allemagne hitlérienne !!
(et oui ! )

l'heure D'ete (zoulou+2) => Giscard, apres choc petrolier (et la bataille du sucre (Groupe "Ange" ))

Ollivier · Message par **Ollivier** » mar. 25/sept./2007 18:45

C'est ce qui s'appelle se faire remettre à l'heure...

julien · Message par **julien** » mar. 25/sept./2007 21:52

sous Xp, pourquoi ne pas utiliser la commande Net user pour restreindre les horaires d'utilisation ?

Kwai chang caine · Message par **Kwai chang caine** » mer. 26/sept./2007 7:26

Bonjour JULIEN.

Net user, moi pas connaitre

Je regarderais.
Il est fort ce crosoft, comme le professeur rolin, il a toujours quelque chose à dire

Merci de ta combine