تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعدة من أهل الخبرة والمحترفون بخصوص التاريخ
#1
أرجو المساعدة
اود ان اكتب كود يجعلني قادر على معرفة الوقت والتاريخ من خلال الانترنت وليس من خلال تاريخ الجهاز
ارجو المساعدة
الرد }}}}
تم الشكر بواسطة:
#2
http://vb4arb.com/vb/Thread-%D8%A7%D8%B1...8%A7%D8%B2
الرد }}}}
تم الشكر بواسطة:
#3
(08-01-15, 07:05 PM)vampore كتب : أرجو المساعدة
اود ان اكتب كود يجعلني قادر على معرفة الوقت والتاريخ من خلال الانترنت وليس من خلال تاريخ الجهاز
ارجو المساعدة

الا يوجد من يعينيني

اشكرك اخي سامي على سرعة ردك
الرد }}}}
تم الشكر بواسطة:
#4
http://stackoverflow.com/questions/64350...e-internet




Public Class Form1


   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       MsgBox(GetNistTime)
   End Sub


   Public Function GetNistTime() As DateTime
       Dim dateTime__1 As DateTime = DateTime.MinValue

       Dim request As Net.HttpWebRequest = _
           DirectCast(Net.WebRequest.Create("http://nist.time.gov/actualtime.cgi?lzbc=siqm9b") _
               , Net.HttpWebRequest)
       request.Method = "GET"
       request.Accept = "text/html, application/xhtml+xml, */*"
       request.UserAgent = "Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Trident/6.0)"
       request.ContentType = "application/x-www-form-urlencoded"
       request.CachePolicy = _
           New Net.Cache.RequestCachePolicy(Net.Cache.RequestCacheLevel.NoCacheNoStore)
       'No caching
       Dim response As Net.HttpWebResponse = _
           DirectCast(request.GetResponse(), Net.HttpWebResponse)
       If response.StatusCode = Net.HttpStatusCode.OK Then
           Dim stream As New IO.StreamReader(response.GetResponseStream())
           Dim html As String = stream.ReadToEnd()
           '<timestamp time=\"1395772696469995\" delay=\"1395772696469995\"/>
           Dim time As String = _
               System.Text.RegularExpressions.Regex.Match(html, "(?<=\btime="")[^""]*").Value
           Dim milliseconds As Double = Convert.ToInt64(time) / 1000.0
           dateTime__1 = New DateTime(1970, 1, 1).AddMilliseconds(milliseconds).ToLocalTime()
       End If

       Return dateTime__1
   End Function


End Class
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في قراءة ملف xml موجود في موقعي dubai.eig 6 137 20-05-17, 12:25 AM
آخر رد: alma2
  [VB.NET] مساعدة التحقق من الاتصال بالانترنت dubai.eig 3 99 19-05-17, 06:46 PM
آخر رد: dubai.eig
  افكاركم بخصوص برنامج ادارة محلات بلاي ستيشن Basil Abdallah 3 79 18-05-17, 07:49 PM
آخر رد: Basil Abdallah
  مساعدة بخصوص تشفير ملف exe OakenShield 1 58 18-05-17, 11:27 AM
آخر رد: OakenShield
  منع تعديل التاريخ والوقت ريم النهاري 7 151 18-05-17, 09:28 AM
آخر رد: ريم النهاري
  [VB.NET] ارجو المساعدة بخصوص Chart vb.net2017 0theghost0 2 58 17-05-17, 05:14 PM
آخر رد: 0theghost0
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 6 533 16-05-17, 01:12 AM
آخر رد: salah mansour
  سؤال بخصوص التحكم بالمحرك عن طريق الحاسوب Basil Abdallah 2 65 16-05-17, 12:29 AM
آخر رد: alma2
  [نقاش] استفسار بخصوص النت فراموورك Net Framework Ratchinko 4 124 15-05-17, 01:48 AM
آخر رد: Ratchinko
  [SQL] التاريخ في البرنامج العواد الصغير 7 192 14-05-17, 06:17 PM
آخر رد: العواد الصغير

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


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