[vb6] sincronizzare l'ora da un qualche sito

[goku370]

Per ricavare data e ora esatti: inserisci un controllo Winsock (Winsock1), un pulsante (Command1) e usa questo codice:

Public dataora As String

Private Sub Command1_Click()
Winsock1.Connect "tempo.ien.it", 13
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "tempo.ien.it"
Winsock1.RemotePort = 13
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData dataora '<---- in questa variabile è morizzata l'ora e la data
MsgBox dataora
End Sub