volta
Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192
|
 Verfasst am: 11.11.2008, 13:11 Titel: Daytime, ein einfaches ASCII-basiertes Netzwerkprotokoll |
 |
|
Wenn man mal wieder bei YABE 10s zu spät geboten hat weil die Uhrzeit des PCs nach dem Mond ging: 
Daytime ist ein einfaches ASCII-basiertes Netzwerkprotokoll, damit können Rechner über das Internet mit aktuellem Datum und Zeit versorgt werden.
http://de.wikipedia.org/wiki/Daytime
Dieses Format läst sich einfach mit InternetTimeToSystemTime in ein SYSTEMTIME packen und zum stellen der Localzeit des PC nutzen.
http://msdn.microsoft.com/en-us/library/aa385125(VS.85).aspx
| Code: | #Include Once "windows.bi"
#Include Once "win/wininet.bi"
Function DDate As String
Dim As String d = Date
swap d[0],d[3]
swap d[1],d[4]
d[2]=46
d[5]=46
Function = d
End Function
Sub DaytimeToLocalTime(tm As String)
Dim As SYSTEMTIME t
InternetTimeToSystemTime(tm, @t, 0)'in SYSTEMTIME umwandeln
Print DDate, Time
If SetLocalTime(@t) Then 'Uhr gestellt?
Print "Uhr wurde gestellt "
Else
Print "Fehler: Uhr nicht gestellt!"
End If
Print DDate, Time
End Sub
function Daytime(adr As string) As string
Dim As Integer Erg
Dim As Any Ptr hOpen, hFile
Dim As String*25 Buffer
hOpen = InternetOpen("ZeitTest", 0, NULL, NULL, 0)
hFile = InternetOpenUrl(hOpen, Adr, NULL, 0, INTERNET_FLAG_DONT_CACHE, 0)
InternetReadFile(hFile, @Buffer, Len(buffer), @Erg)
InternetCloseHandle(hFile)
InternetCloseHandle(hOpen)
If Erg = Len(Buffer) Then
Daytime = Buffer
Else
?"Fehler: keine Aktuelle Uhrzeit erhalten!"
Sleep: End
End If
End Function
Dim As String zeit
Zeit = Daytime("http://time.fu-berlin.de:13")
?Zeit
DaytimeToLocalTime(Zeit)
Sleep |
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
