XProfan

Français

maroro

je voudrais beim starten des Rechners cette sur une de einem anderen calculateur ausgelesene Zeit mettons.
cela ici: [...]

funktioniert pas.

ici qui Voir le texte source:

Kompilieren Marque Séparation

Déclarer Tim#,WoTag$[7],d!,wohin%
Déclarer rt$,revt$
Def Lese_Datum(1)  ! "Kernel32", "GetSystemTime"
Def Setze_Datum(1) ! "Kernel32", "SetSystemTime"
' SYSTEMTIME - Struktur. Verwendet wird Tim#
'    WORD Tim#,0   l'an
'    WORD Tim#,2  mois
'    WORD Tim#,4  Wochentag 0= dimanche, 1= lundi ... 6= samedi
'    WORD Tim#,6  journée
'    WORD Tim#,8  heure
'    WORD Tim#,10 minute
'    WORD Tim#,12 seconde
'    WORD Tim#,14 Millisekunde
' initialisieren Wochentagsarray
WoTag$[0] = "Sonntag"
WoTag$[1] = "Montag"
WoTag$[2] = "Dienstag"
WoTag$[3] = "Mittwoch"
WoTag$[4] = "Donnerstag"
WoTag$[5] = "Freitag"
WoTag$[6] = "Samstag"
Faible Tim#,16
cls
'Zeit auslesen
rt$ = Remotetime("PC")
revt$ = dt("DateTimeStr","c")

si Len($ Trim(rt$)) = 0

    Imprimer "Fehler"

d'autre

    si rt$ = revt$

        imprimer "OK"

    d'autre

        Imprimer "Zeit setzen"
        'Zeit mettons
        Imprimer "Remote:  "+rt$
        Imprimer "Lokal: "+revt$
        '   Imprimer substr$(substr$(rt$,3,"."),1," ")'l'an
        '   Imprimer substr$(rt$,2,".")'mois
        '   Imprimer substr$(rt$,1,".")'journée
        '   Imprimer substr$(substr$(rt$,2," "),1,":")'heure
        '   Imprimer substr$(rt$,2,":")'minute
        '   Imprimer substr$(rt$,3,":")'seconde
        d! = dt("setDateTime", substr$(substr$(rt$,3,"."),1," "), substr$(rt$,2,"."), substr$(rt$,1,"."), substr$(substr$(rt$,2," "),1,»), substr$(rt$,2,»), substr$(rt$,3,»), 0)
        wohin% = dt("getDoW", d!)'Wochentag eines Zeitpunktes
        cas wohin% = 7 : wohin% = 0
        Word Tim#,0 = substr$(substr$(rt$,3,"."),1," ")'l'an
        Word Tim#,2 = substr$(rt$,2,".")'mois
        Word Tim#,4 = str$(wohin%)
        Word Tim#,6 = substr$(rt$,1,".")'journée
        Word Tim#, 8 = substr$(substr$(rt$,2," "),1,»)'heure
        Word Tim#,10 = substr$(rt$,2,»)'minute
        Word Tim#,12 = substr$(rt$,3,»)'seconde
        '@Lese_Datum(Tim#)
        ' drucke journée
        Imprimer Wotag$[@Word(Tim#,4)],@Word(Tim#,6);".";@Word(Tim#,2);".";@Word(Tim#,0)
        ' drucke l'heure
        Imprimer @Word(Tim#,8);»;@Word(Tim#,10);»;@Word(Tim#,12)

        ifnot  Val(substr$(substr$(rt$,3,"."),1," ")) < 2018

            Imprimer "setze Zeit"
            @Setze_Datum(Tim#)

        endif

        Imprimer "Lokal: "+dt("DateTimeStr","c")

    endif

endif

' si date/Zeit gesetzt volonté soll: Werte dans Tim# entsprechend mettons et
' @Setze_Datum(Tim#)
' effectuer
waitinput
Dispose Tim#
Fin

Proc Remotetime

    parameters computername$
    Déclarer Zeit$,exc%
    ClearClip
    exc% = winExec(getEnv$("COMSPEC")+" /c net time \\\\"+computername$+ "  | clip ",0)

    tandis que @GetExitCode(exc%) > 0

        ' Sleep 1

    endwhile

    Zeit$ = GetClip$()
    Zeit$ = Mid $(Zeit$,26+Len(computername$),19)
    'Imprimer Zeit$
    return zeit$

endproc

wäre joli si ici quelqu'un une concept hat pourquoi cela pas funktioniert. alors und dir seulement rein um cela mettons qui Zeit alles autre funktioniert.

Viele Grüße Maroro

13.04.2018 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg
Teles

alors chez mir funktioniert, statt Get/SetSystemTime ist aussi Get/SetLocalTime approprié pour aktuelle Zeitzone

Kompilieren Marque Séparation

'Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
'Systemdatum et Systemzeit lesen et mettons
'Beispiel Lesen et mettons Systemdatum et Systemzeit. Pour Profan 6.6.
'Version 1.0  13.6.2004.      cela Programme peux libre benutzt volonté, pour
'Schäden peux aucun la responsabilité übernommen volonté.
'Autor: Gerhard Putschalka
'email: g.putschalka@web.de
'homepage: https://members.telering.at/g.putschalka/index.html
Déclarer Tim#,WoTag$[7]
Def Lese_Datum(1)!"Kernel32","GetSystemTime"
Def Setze_Datum(1)!"Kernel32","SetSystemTime"
'----------# Erweiterung
Déclarer Azz#
Def Lese_Datum_AktuelleZeitzone(1)!"Kernel32","GetLocalTime"
Def Setze_Datum_AktuelleZeitzone(1)!"Kernel32","SetLocalTime"
'Aktuelle Zeitzone - Struktur.
'WORD Azz#,0  'l'an
'WORD Azz#,2  'mois
'WORD Azz#,4  'Wochentag
'WORD Azz#,6  'journée
'WORD Azz#,8  'heure
'WORD Azz#,10 'minute
'WORD Azz#,12 'seconde
'WORD Azz#,14 'Millisekunde
Faible Azz#,16
Lese_Datum_AktuelleZeitzone(Azz#)
'----------# Erweiterung ENDE
'SYSTEMTIME - Struktur. Verwendet wird Tim#
'WORD Tim#,0  'l'an
'WORD Tim#,2  'mois
'WORD Tim#,4  'Wochentag 0= dimanche, 1= lundi ... 6= samedi
'WORD Tim#,6  'journée
'WORD Tim#,8  'heure
'WORD Tim#,10 'minute
'WORD Tim#,12 'seconde
'WORD Tim#,14 'Millisekunde
'initialisieren Wochentagsarray
WoTag$[0] = "Sonntag"
WoTag$[1] = "Montag"
WoTag$[2] = "Dienstag"
WoTag$[3] = "Mittwoch"
WoTag$[4] = "Donnerstag"
WoTag$[5] = "Freitag"
WoTag$[6] = "Samstag"
Faible Tim#,16
Lese_Datum(Tim#)
'drucke journée
Imprimer Wotag$[Word(Tim#,4)],Word(Tim#,6),Word(Tim#,2),Word(Tim#,0)
'Imprimer Wotag$[]
'drucke l'heure
Imprimer Word(Tim#,8),Word(Tim#,10),Word(Tim#,12)
'si date/Zeit gesetzt volonté soll: Werte dans Tim# entsprechend mettons et
'Setze_Datum(Tim#)
'effectuer
'----------# Erweiterung intégration
'drucke journée
Imprimer Wotag$[Word(Azz#,4)],Word(Azz#,6),Word(Azz#,2),Word(Azz#,0)
'drucke l'heure
Imprimer Word(Azz#,8),Word(Azz#,10),Word(Azz#,12)
'si date/Zeit gesetzt volonté soll: Werte dans Azz# entsprechend mettons et
Word azz#,0 = 2017'Beispiel l'an trop 2017 changement
Setze_Datum_AktuelleZeitzone(Azz#)
'effectuer
'----------# Erweiterung intégration ENDE
Waitinput
Dispose Tim#
Dispose Azz#
Fin

avec cela cela mettons funktoniert muss on cela Programme avec Admin-Rechten starten, ensuite klappt es

suis avec RemotePC überfordert, hab malheureusement keinen prêt sry :/

Grüße Georg

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

13.04.2018 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg
Teles

j'ai la fois eigenen PC comme Remote eingetragen et es hat geklappt - den Code quelque chose sortiert, comme test +5 Minuten qui eigenen Zeit eingetragen - aussi habe je Get/SetSystemTime trop Get/SetLocalTime geändert

Kompilieren Marque Séparation

Déclarer Tim#,WoTag$[7],d!,wohin%
Déclarer rt$,revt$
Def Lese_Datum(1)  ! "Kernel32", "GetLocalTime"
Def Setze_Datum(1) ! "Kernel32", "SetLocalTime"
' SYSTEMTIME - Struktur. Verwendet wird Tim#
'    WORD Tim#,0   l'an
'    WORD Tim#,2  mois
'    WORD Tim#,4  Wochentag 0= dimanche, 1= lundi ... 6= samedi
'    WORD Tim#,6  journée
'    WORD Tim#,8  heure
'    WORD Tim#,10 minute
'    WORD Tim#,12 seconde
'    WORD Tim#,14 Millisekunde
' initialisieren Wochentagsarray
WoTag$[0] = "Sonntag"
WoTag$[1] = "Montag"
WoTag$[2] = "Dienstag"
WoTag$[3] = "Mittwoch"
WoTag$[4] = "Donnerstag"
WoTag$[5] = "Freitag"
WoTag$[6] = "Samstag"
Faible Tim#,16
cls
Déclarer y$,m$,d$,h$,n$,s$
'Zeit auslesen
rt$ = Remotetime("PC")
revt$ = dt("DateTimeStr","c")

si Len($ Trim(rt$)) = 0

    Imprimer "Fehler"

d'autre

    si rt$ = revt$

        'imprimer "OK" 'zum Testen ausgeblendet
        'd'autre 'zum Testen ausgeblendet
        Imprimer "Zeit setzen"
        'Zeit mettons
        Imprimer "Remote:  "+rt$
        Imprimer "Lokal: "+revt$
        '   Imprimer substr$(substr$(rt$,3,"."),1," ")'l'an
        '   Imprimer substr$(rt$,2,".")'mois
        '   Imprimer substr$(rt$,1,".")'journée
        '   Imprimer substr$(substr$(rt$,2," "),1,":")'heure
        '   Imprimer substr$(rt$,2,":")'minute
        '   Imprimer substr$(rt$,3,":")'seconde
        y$ = substr$(substr$(rt$,3,"."),1," ")
        m$ = substr$(rt$,2,".")
        d$ = substr$(rt$,1,".")
        h$ = substr$(substr$(rt$,2," "),1,»)
        'n$ = substr$(rt$,2,":") 'original
        n$ = str$(Val(substr$(rt$,2,»))+5)'comme Test +5 Minuten
        s$ = substr$(rt$,3,»)
        d! = dt("setDateTime",y$,m$,d$,h$,n$,s$,0)
        wohin% = dt("getDoW", d!)'Wochentag eines Zeitpunktes
        cas wohin% = 7 : wohin% = 0
        Word Tim#,0 = y$
        Word Tim#,2 = m$
        Word Tim#,4 = str$(wohin%)
        Word Tim#,6 = d$
        Word Tim#, 8 = h$
        Word Tim#,10 = n$
        Word Tim#,12 = s$
        '@Lese_Datum(Tim#)
        ' drucke journée
        Imprimer Wotag$[@Word(Tim#,4)],@Word(Tim#,6);".";@Word(Tim#,2);".";@Word(Tim#,0)
        ' drucke l'heure
        Imprimer @Word(Tim#,8);»;@Word(Tim#,10);»;@Word(Tim#,12)

        ifnot  Val(substr$(substr$(rt$,3,"."),1," ")) < 2018

            Imprimer "setze Zeit"
            @Setze_Datum(Tim#)

        endif

        Imprimer "Lokal: "+dt("DateTimeStr","c")

    endif

endif

' si date/Zeit gesetzt volonté soll: Werte dans Tim# entsprechend mettons et
' @Setze_Datum(Tim#)
' effectuer
waitinput
Dispose Tim#
Fin

Proc Remotetime

    parameters computername$
    Déclarer Zeit$,exc%
    ClearClip
    exc% = winExec(getEnv$("COMSPEC")+" /c net time \\\\"+computername$+ "  | clip ",0)

    tandis que @GetExitCode(exc%) > 0

        ' Sleep 1

    endwhile

    Zeit$ = GetClip$()
    Zeit$ = Mid $(Zeit$,26+Len(computername$),19)
    'Imprimer Zeit$
    return zeit$

endproc