منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

سلام

توجد طرق كثيرة لمعرفة الوقت للانترنت، ولكن اذا كانت الطريقة تعتمد على موقع غير مضمون بقائه فستحدث مشكلة لو تم اغلاقه

هذه الطريقة تعتمد على موقع معروف وهو nist.time.gov

كود :

Public Function InternetTime() As DateTime

    Try

        Dim wc As New Net.WebClient()

        Dim html As String = wc.DownloadString("http://nist.time.gov/actualtime.cgi")

        Dim milliseconds As String = System.Text.RegularExpressions.Regex.Match(html, "(?<=\btime="")[^""]*").Value

        Dim timeDouble As Double = Convert.ToInt64(milliseconds) / 1000.0

        Dim time As DateTime = New DateTime(1970, 1, 1).AddMilliseconds(timeDouble).ToLocalTime()

        Return time

    Catch ex As Exception

        MsgBox(ex.Message)

    End Try

End Function

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الطالب