pc mit deutscher internetzeit abgleichen

[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 ...

[Kiffi]

Danke!

Grüße ... Kiffi

[X0r]

[Kaeru Gaman]

da meine pc-uhr langsam alters-schwach wird

schon mal dran gedacht, die Knopfzelle auf der Mother auszutauschen?

@Topic
subba code!

[RSBasic]

@bingo
Super Code

[X0r]

Solltest bei InternetOpen_ z.B aber auch prüfen, ob die Funktion positiv ausfällt.

[legion]

Super ! Danke !

[ZeHa]

Das geht doch unter XP sowieso... oder hat das irgendeinen besonderen Grund, daß Du dafür ein eigenes Programm geschrieben hast?

[KeyKon]

Ich finde den Code super, damit kann man programme unabhängig der PC-Zeit immer nach der Zeit in unserer Zeitzone laufen lassen...