اريد الحصول على تاريخ اليوم عن طريق الانترنت وليس عن طريق الجهاز

PHP كود :

<StructLayout(LayoutKind.Sequential)> _
Public Structure SYSTEMTIME
    Public wYear As Short
    Public wMonth As Short
    Public wDayOfWeek As Short
    Public wDay As Short
    Public wHour As Short
    Public wMinute As Short
    Public wSecond As Short
    Public wMilliseconds As Short
End Structure
<DllImport("kernel32.dll", SetLastError := True)> _
Public Shared Function SetSystemTime(ByRef theDateTime As SYSTEMTIME) As Boolean
End Function

كود :

Public Function GetFastestNISTDate() As DateTime

    Dim result = DateTime.MinValue

    ' Initialize the list of NIST time servers

    ' http://tf.nist.gov/tf-cgi/servers.cgi

    Dim servers As String() = New String() {"nist1-ny.ustiming.org", "nist1-nj.ustiming.org", "nist1-pa.ustiming.org", "time-a.nist.gov", "time-b.nist.gov", "nist1.aol-va.symmetricom.com", _

     "nist1.columbiacountyga.gov", "nist1-chi.ustiming.org", "nist.expertsmi.com", "nist.netservicesgroup.com"}



    ' Try 5 servers in random order to spread the load

    Dim rnd As New Random()

    For Each server As String In servers.OrderBy(Function(s) rnd.NextDouble()).Take(5)

        Try

            ' Connect to the server (at port 13) and get the response

            Dim serverResponse As String = String.Empty

            Using reader = New IO.StreamReader(New System.Net.Sockets.TcpClient(server, 13).GetStream())

                serverResponse = reader.ReadToEnd()

            End Using



            ' If a response was received

            If Not String.IsNullOrEmpty(serverResponse) Then

                ' Split the response string ("55596 11-02-14 13:54:11 00 0 0 478.1 UTC(NIST) *")

                Dim tokens As String() = serverResponse.Split(" "c)



                ' Check the number of tokens

                If tokens.Length >= 6 Then

                    ' Check the health status

                    Dim health As String = tokens(5)

                    If health = "0" Then

                        ' Get date and time parts from the server response

                        Dim dateParts As String() = tokens(1).Split("-"c)

                        Dim timeParts As String() = tokens(2).Split(":"c)



                        ' Create a DateTime instance

                        Dim utcDateTime As New DateTime(Convert.ToInt32(dateParts(0)) + 2000, Convert.ToInt32(dateParts(1)), Convert.ToInt32(dateParts(2)), Convert.ToInt32(timeParts(0)), Convert.ToInt32(timeParts(1)), Convert.ToInt32(timeParts(2)))



                        ' Response successfully received; exit the loop



                        Return result

                    End If



                End If



            End If

            ' Ignore exception and try the next server

        Catch

        End Try

    Next

    Return result

End Function

كود :

' بالتوقيت العالمي

TextBox1.Text = GetFastestNISTDate()



' لتحويل التوقيت العالمي لفارق التوقبت لمنطقتك

TextBox1.Text = GetFastestNISTDate().ToLocalTime()

كود :

Public Function GetInternetTime(ByVal host As String, Optional ByVal ToLocalTime As Boolean = False) As DateTime

    Dim timeStr As String

    Dim reader As New IO.StreamReader(New Net.Sockets.TcpClient(host, 13).GetStream)

    Dim LastSysTime As DateTime

    LastSysTime = DateTime.UtcNow()

    timeStr = reader.ReadToEnd

    reader.Close()





    Dim year As Integer = CInt(timeStr.Substring(7, 2)) + 2000

    Dim month As Integer = CInt(timeStr.Substring(10, 2))

    Dim day As Integer = CInt(timeStr.Substring(13, 2))

    Dim hour As Integer = CInt(timeStr.Substring(16, 2))

    Dim minute As Integer = CInt(timeStr.Substring(19, 2))

    Dim second As Integer = CInt(timeStr.Substring(22, 2))



    If ToLocalTime Then

        Return New DateTime(year, month, day, hour, minute, second).ToLocalTime

    Else

        Return New DateTime(year, month, day, hour, minute, second)

    End If

End Function

كود :

' بالتوقيت العالمي

TextBox1.Text = GetInternetTime("time.nist.gov")



' لتحويل التوقيت العالمي لفارق التوقبت لمنطقتك

TextBox1.Text = GetInternetTime("time.nist.gov", True)

كود :

TextBox1.Text = GetInternetTime("time-a.timefreq.bldrdoc.gov")'132.163.4.101

TextBox1.Text = GetInternetTime("time-c.timefreq.bldrdoc.gov") '132.163.4.103

TextBox1.Text = GetInternetTime("utcnist.colorado.edu") '128.138.140.44

TextBox1.Text = GetInternetTime("time-d.nist.gov") '129.6.15.27

TextBox1.Text = GetInternetTime("time.nist.gov") '129.6.15.29