XProfan

Español

maroro

Yo möchte beim starten des Rechners esta en una de una otro Rechner ausgelesene Tiempo conjunto.
Das hier: [...]

funktioniert no.

hier el Ver código fuente:

Declarar Tim#,WoTag$[7],d!,wo%
Declarar rt$,revt$
Def Lese_Datum(1)  ! "Kernel32", "GetSystemTime"
Def Setze_Datum(1) ! "Kernel32", "SetSystemTime"
' SYSTEMTIME - Struktur. Verwendet se Tim#
'    WORD Tim#,0   Jahr
'    WORD Tim#,2  Monat
'    WORD Tim#,4  Wochentag 0= Sonntag, 1= Montag ... 6= Samstag
'    WORD Tim#,6  Tag
'    WORD Tim#,8  Stunde
'    WORD Tim#,10 Minute
'    WORD Tim#,12 Sekunde
'    WORD Tim#,14 Millisekunde
' inicializar Wochentagsarray
WoTag$[0] = "Sonntag"
WoTag$[1] = "Montag"
WoTag$[2] = "Dienstag"
WoTag$[3] = "Mittwoch"
WoTag$[4] = "Donnerstag"
WoTag$[5] = "Freitag"
WoTag$[6] = "Samstag"
Dim Tim#,16
cls
'Tiempo auslesen
rt$ = Remotetime("PC")
revt$ = dt("DateTimeStr","c")

if Len(trim$(rt$)) = 0

    Imprimir "Fehler"

más

    if rt$ = revt$

        imprimir "OK"

    más

        Imprimir "Zeit setzen"
        'Tiempo conjunto
        Imprimir "Remote:  "+rt$
        Imprimir "Lokal: "+revt$
        '   Imprimir substr$(substr$(rt$,3,"."),1," ")'jahr
        '   Imprimir substr$(rt$,2,".")'Monat
        '   Imprimir substr$(rt$,1,".")'Tag
        '   Imprimir substr$(substr$(rt$,2," "),1,":")'Stunde
        '   Imprimir substr$(rt$,2,":")'Minute
        '   Imprimir substr$(rt$,3,":")'Sekunde
        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)
        wo% = dt("getDoW", d!)'Wochentag uno Zeitpunktes
        caso wo% = 7 : wo% = 0
        Word Tim#,0 = substr$(substr$(rt$,3,"."),1," ")'Jahr
        Word Tim#,2 = substr$(rt$,2,".")'Monat
        Word Tim#,4 = str$(wo%)
        Word Tim#,6 = substr$(rt$,1,".")'Tag
        Word Tim#, 8 = substr$(substr$(rt$,2," "),1,":")'Stunde
        Word Tim#,10 = substr$(rt$,2,":")'Minute
        Word Tim#,12 = substr$(rt$,3,":")'Sekunde
        '@Lese_Datum(Tim#)
        ' drucke Tag
        Imprimir Wotag$[@Word(Tim#,4)],@Word(Tim#,6);".";@Word(Tim#,2);".";@Word(Tim#,0)
        ' drucke Uhrzeit
        Imprimir @Word(Tim#,8);":";@Word(Tim#,10);":";@Word(Tim#,12)

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

            Imprimir "setze Zeit"
            @Setze_Datum(Tim#)

        endif

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

    endif

endif

' Falls Datum/Tiempo gesetzt voluntad se: Werte en Tim# entsprechend conjunto y
' @Setze_Datum(Tim#)
' ausführen
waitinput
Disponer Tim#
End

Proc Remotetime

    parámetros computername$
    Declarar Tiempo$,exc%
    ClearClip
    exc% = winExec(getEnv$("COMSPEC")+" /c net time \\\\"+computername$+ "  | clip ",0)

    mientras que @GetExitCode(exc%) > 0

        ' Sleep 1

    endwhile

    Tiempo$ = GetClip$()
    Tiempo$ = Mid$(Tiempo$,26+Len(computername$),19)
    'Imprimir Tiempo$
    volver zeit$

ENDPROC

wäre schön si hier alguien una Concepto ha por qué el no funktioniert. Also lo va sólo rein en el conjunto el Tiempo alles otro funktioniert.

Viele Grüße Maroro

13.04.2018 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Teles

Also en me funktioniert, en lugar de Get/SetSystemTime es auch Get/SetLocalTime geeignet para aktuelle Zeitzone

Kompilieren Marca Separación

'Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
'Systemdatum y Systemzeit lesen y conjunto
'Ejemplo Lesen y conjunto Systemdatum y Systemzeit. Für Profano 6.6.
'Versión 1.0  13.6.2004.      Das Programa kann frei benutzt voluntad, para
'Schäden kann no Haftung übernommen voluntad.
'Autor: Gerhard Putschalka
'email: g.putschalka@web.de
'homepage: https://members.telering.at/g.putschalka/index.html
Declarar Tim#,WoTag$[7]
Def Lese_Datum(1)!"Kernel32","GetSystemTime"
Def Setze_Datum(1)!"Kernel32","SetSystemTime"
'----------# Erweiterung
Declarar Azz#
Def Lese_Datum_AktuelleZeitzone(1)!"Kernel32","GetLocalTime"
Def Setze_Datum_AktuelleZeitzone(1)!"Kernel32","SetLocalTime"
'Aktuelle Zeitzone - Struktur.
'WORD Azz#,0  'Jahr
'WORD Azz#,2  'Monat
'WORD Azz#,4  'Wochentag
'WORD Azz#,6  'Tag
'WORD Azz#,8  'Stunde
'WORD Azz#,10 'Minute
'WORD Azz#,12 'Sekunde
'WORD Azz#,14 'Millisekunde
Dim Azz#,16
Lese_Datum_AktuelleZeitzone(Azz#)
'----------# Erweiterung ENDE
'SYSTEMTIME - Struktur. Verwendet se Tim#
'WORD Tim#,0  'Jahr
'WORD Tim#,2  'Monat
'WORD Tim#,4  'Wochentag 0= Sonntag, 1= Montag ... 6= Samstag
'WORD Tim#,6  'Tag
'WORD Tim#,8  'Stunde
'WORD Tim#,10 'Minute
'WORD Tim#,12 'Sekunde
'WORD Tim#,14 'Millisekunde
'inicializar Wochentagsarray
WoTag$[0] = "Sonntag"
WoTag$[1] = "Montag"
WoTag$[2] = "Dienstag"
WoTag$[3] = "Mittwoch"
WoTag$[4] = "Donnerstag"
WoTag$[5] = "Freitag"
WoTag$[6] = "Samstag"
Dim Tim#,16
Lese_Datum(Tim#)
'drucke Tag
Imprimir Wotag$[Word(Tim#,4)],Word(Tim#,6),Word(Tim#,2),Word(Tim#,0)
'Imprimir Wotag$[]
'drucke Uhrzeit
Imprimir Word(Tim#,8),Word(Tim#,10),Word(Tim#,12)
'Falls Datum/Tiempo gesetzt voluntad se: Werte en Tim# entsprechend conjunto y
'Setze_Datum(Tim#)
'ausführen
'----------# Erweiterung Integration
'drucke Tag
Imprimir Wotag$[Word(Azz#,4)],Word(Azz#,6),Word(Azz#,2),Word(Azz#,0)
'drucke Uhrzeit
Imprimir Word(Azz#,8),Word(Azz#,10),Word(Azz#,12)
'Falls Datum/Tiempo gesetzt voluntad se: Werte en Azz# entsprechend conjunto y
Word azz#,0 = 2017'Ejemplo Jahr a 2017 ändern
Setze_Datum_AktuelleZeitzone(Azz#)
'ausführen
'----------# Erweiterung Integration ENDE
Waitinput
Disponer Tim#
Disponer Azz#
End

Damit el Setzen funktoniert muss al Programa con Admin-Rechten starten, entonces klappt lo

Bin con RemotePC überfordert, tener desafortunadamente no parat sry :/

Grüße Georg

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

13.04.2018 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Teles

Yo habe veces eigenen PC como Remote eingetragen y lo ha geklappt - el código algo sortiert, como test +5 Minuten el eigenen Tiempo eingetragen - außerdem Yo Get/SetSystemTime a Get/SetLocalTime geändert

Kompilieren Marca Separación

Declarar Tim#,WoTag$[7],d!,wo%
Declarar rt$,revt$
Def Lese_Datum(1)  ! "Kernel32", "GetLocalTime"
Def Setze_Datum(1) ! "Kernel32", "SetLocalTime"
' SYSTEMTIME - Struktur. Verwendet se Tim#
'    WORD Tim#,0   Jahr
'    WORD Tim#,2  Monat
'    WORD Tim#,4  Wochentag 0= Sonntag, 1= Montag ... 6= Samstag
'    WORD Tim#,6  Tag
'    WORD Tim#,8  Stunde
'    WORD Tim#,10 Minute
'    WORD Tim#,12 Sekunde
'    WORD Tim#,14 Millisekunde
' inicializar Wochentagsarray
WoTag$[0] = "Sonntag"
WoTag$[1] = "Montag"
WoTag$[2] = "Dienstag"
WoTag$[3] = "Mittwoch"
WoTag$[4] = "Donnerstag"
WoTag$[5] = "Freitag"
WoTag$[6] = "Samstag"
Dim Tim#,16
cls
Declarar y$,m$,d$,h$,n$,s$
'Tiempo auslesen
rt$ = Remotetime("PC")
revt$ = dt("DateTimeStr","c")

if Len(trim$(rt$)) = 0

    Imprimir "Fehler"

más

    if rt$ = revt$

        'imprimir "OK" 'para Testen ausgeblendet
        'más 'para Testen ausgeblendet
        Imprimir "Zeit setzen"
        'Tiempo conjunto
        Imprimir "Remote:  "+rt$
        Imprimir "Lokal: "+revt$
        '   Imprimir substr$(substr$(rt$,3,"."),1," ")'jahr
        '   Imprimir substr$(rt$,2,".")'Monat
        '   Imprimir substr$(rt$,1,".")'Tag
        '   Imprimir substr$(substr$(rt$,2," "),1,":")'Stunde
        '   Imprimir substr$(rt$,2,":")'Minute
        '   Imprimir substr$(rt$,3,":")'Sekunde
        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)'como Test +5 Minuten
        s$ = substr$(rt$,3,":")
        d! = dt("setDateTime",y$,m$,d$,h$,n$,s$,0)
        wo% = dt("getDoW", d!)'Wochentag uno Zeitpunktes
        caso wo% = 7 : wo% = 0
        Word Tim#,0 = y$
        Word Tim#,2 = m$
        Word Tim#,4 = str$(wo%)
        Word Tim#,6 = d$
        Word Tim#, 8 = h$
        Word Tim#,10 = n$
        Word Tim#,12 = s$
        '@Lese_Datum(Tim#)
        ' drucke Tag
        Imprimir Wotag$[@Word(Tim#,4)],@Word(Tim#,6);".";@Word(Tim#,2);".";@Word(Tim#,0)
        ' drucke Uhrzeit
        Imprimir @Word(Tim#,8);":";@Word(Tim#,10);":";@Word(Tim#,12)

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

            Imprimir "setze Zeit"
            @Setze_Datum(Tim#)

        endif

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

    endif

endif

' Falls Datum/Tiempo gesetzt voluntad se: Werte en Tim# entsprechend conjunto y
' @Setze_Datum(Tim#)
' ausführen
waitinput
Disponer Tim#
End

Proc Remotetime

    parámetros computername$
    Declarar Tiempo$,exc%
    ClearClip
    exc% = winExec(getEnv$("COMSPEC")+" /c net time \\\\"+computername$+ "  | clip ",0)

    mientras que @GetExitCode(exc%) > 0

        ' Sleep 1

    endwhile

    Tiempo$ = GetClip$()
    Tiempo$ = Mid$(Tiempo$,26+Len(computername$),19)
    'Imprimir Tiempo$
    volver zeit$

ENDPROC