Seite 1 von 1
pc mit deutscher internetzeit abgleichen
Verfasst: 02.11.2008 13:58
von bingo
da meine pc-uhr langsam alters-schwach wird , gleiche ich diese bei jedem xp-start mit der deutschen internetzeit ab ...
Code: Alles auswählen
#INTERNET_FLAG_DONT_CACHE = $4000000
tlen.l = 25 ;Fri Oct 31 22:49:54 2008
tbuffer.s = Space(tlen)
hinet.l = InternetOpen_("nix007",0,0,0,0)
hurl.l = InternetOpenUrl_(hinet,"http://time.fu-berlin.de:13", #Null, 0,#INTERNET_FLAG_DONT_CACHE,0)
InternetReadFile_(hurl,@tbuffer,tlen,@ret.l)
InternetCloseHandle_(hinet)
If tlen = ret
pt.systemtime
InternetTimeToSystemTime_(@tbuffer,@pt,0)
SetLocalTime_(@pt)
Else
;error
EndIf
End
... ist wohl der kürzeste code , der das überhaupt erledigt ...
Re: pc mit deutscher internetzeit abgleichen
Verfasst: 02.11.2008 14:10
von Kiffi
Danke!
Grüße ... Kiffi
Verfasst: 02.11.2008 15:23
von X0r
Re: pc mit deutscher internetzeit abgleichen
Verfasst: 02.11.2008 16:07
von Kaeru Gaman
bingo hat geschrieben:da meine pc-uhr langsam alters-schwach wird
schon mal dran gedacht, die Knopfzelle auf der Mother auszutauschen?
@Topic
subba code!
Verfasst: 02.11.2008 16:29
von RSBasic
@bingo
Super Code
Verfasst: 02.11.2008 17:30
von X0r
Solltest bei InternetOpen_ z.B aber auch prüfen, ob die Funktion positiv ausfällt.
Verfasst: 03.11.2008 13:08
von legion
Super ! Danke !
Verfasst: 03.11.2008 13:32
von ZeHa
Das geht doch unter XP sowieso... oder hat das irgendeinen besonderen Grund, daß Du dafür ein eigenes Programm geschrieben hast?
Verfasst: 03.11.2008 16:21
von KeyKon
Ich finde den Code super, damit kann man programme unabhängig der PC-Zeit immer nach der Zeit in unserer Zeitzone laufen lassen...