Noget der et forslag til hvordan jeg kan synkronisere Computerens ur med f.eks. www.micsoft.com
I Dos kunne man bruge Net time nogle der har et forslag til en kilde kode...
Du kan jo bruge kommandoen
shell "net time"
men det er jo lidt søgt...
Det ville være bedre hvis du laver en forbindelse til en time-server med en winsock-kontrol, på porten til time-protokollen (8 så vidt jeg husker!). Når der er forbindelse sender serveren noget tekst f.eks.
"Local time 09:01:29. Sunday, 12-11-2003". Så skriver du det her i et modul:
Public Declare Function SetSystemTime Lib "kernel32" Alias "SetSystemTime" (lpSystemTime As SYSTEMTIME) As Long
Public Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Og laver en sub:
Sub stiltid ()
Dim tid As SYSTEMTIME
'Stiller computerens tid til den tid der er i eksemplet!
With tid
.wHour = 9
.wMinute = 1
.wSecond = 29
.wDay = 12
.wMonth = 11
.wYear = 2003
End With
SetSystemTime tid
end sub
God kodning
MvH Jannich Brendle
[Redigeret d. 11/11-03 12:39:20 af Jannich Brendle]