تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] معرفة الوقت للانترنت InternetTime
#1
Brick 
سلام

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

هذه الطريقة تعتمد على موقع معروف وهو 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
متغيب
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [مقال] شرح طريقة معرفة محتوى الكوكيز sooriaty03 5 6,199 11-02-20, 03:18 PM
آخر رد: DK-x
Brick [كود] معرفة الاي بي للانترنت InternetIP الطالب 0 1,840 14-05-15, 12:24 AM
آخر رد: الطالب
  معالجة الوقت والتاريخ RaggiTech 5 3,327 06-10-12, 01:07 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم