[طالب برمجة]

هذا كود بديل يقرأ من الموقع time.nist.gov
https://www.codeproject.com/Answers/3005...et#answer3

PHP كود :

Public Shared Function GetNistTime() As DateTime
    Dim client As New Net.Sockets.TcpClient("time.nist.gov", 13)
    Dim streamReader As New IO.StreamReader(client.GetStream())
    Dim response As String = streamReader.ReadToEnd
    Dim utcDateTimeString As String = response.Substring(7, 17)
    Dim localDateTime As DateTime =
        DateTime.ParseExact(utcDateTimeString, "yy-MM-dd HH:mm:ss",
                            Globalization.CultureInfo.InvariantCulture,
                            Globalization.DateTimeStyles.AssumeUniversal)
    Return localDateTime
End Function