Stille ur fra server på internettet

Gå til
http://www.thinkman.com

Installér programmet og du har et atomur, der automatisk opdateres via internettet, hver gang du er på.

Fandt selv et link til en mulig vb kode

http://www.planet-source-code.com/upload/ftp/CODE_UPLOAD92288232000.zip

Jeg er bare bag en firewall så jeg kan ikke teste det før jeg kommer hjem

Tja - du var 14 minutter om det - imens jeg kunne klare det på 5 minutter ??

Du kan bruge en NPT tidsserver, et eksempel på én er pogostick.net.
Når du forbinder dig til sådan en server, sender den dig den øjeblikkelige tid, og lukker forbindelsen igen. Jeg prøver lige at bikse et eksempel sammen til dig, der viser hvordan du kan bruge det i VB...

Okay: Hvis du har en form, hvorpå du har en WinSock kontrol kaldet WS og en kommandoknap kaldet GetTime, så stiller følgende kode uret for dig, ved at forbinde sig til NPT serveren pogostick.net, som så returnerer den øjeblikkelige tid:


Dim RecTime As String
Dim NTime As Date
Const Port As Integer = 13
Const sHost As String = \"pogostick.net\"

Private Function FormatDateTime(NetTime As String) As Date
 
    Dim strDate As String
    Dim strTime As String
   
    strDate = Trim(Mid(NetTime, 4, 7)) & \" \" & _
        Trim(Mid(NetTime, 21))
   
    strTime = Trim(Mid(NetTime, 12, 9))
   
    If IsDate(strDate) And IsDate(strTime) Then
        FormatDateTime = CDate(strDate & \" \" & strTime)
    Else
        FormatDateTime = Now
    End If

End Function

Private Sub GetTime_Click()
With WS
    .RemoteHost = sHost
    .RemotePort = Port
    .Connect
End With
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
If Not bytesTotal = 26 Then Exit Sub  \'NPT server returnerer 26 bytes
WS.GetData RecTime, vbString
WS.Close
RecTime = Left(RecTime, 24)
NTime = FormatDateTime(RecTime)
DateTime.Date = NTime
DateTime.Time = NTime
MsgBox \"Dato og tid er sat!\"
End Sub

... sig til, hvis du ønsker en uddybning af koden.

driis din kode bruger jeg

Point til dig - Tak for den