تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص الوقت philo 1 34 منذ 7 ساعة مضت
آخر رد: ابراهيم ايبو
  أريد حل سريع في مشكلة كتابة كود لإدخال التاريخ في جملة Insert abo.alaa315 1 25 أمس, 08:29 PM
آخر رد: عبد العزيز البسكري
  محتاج مساعدة فى عمل تحديث لى البرنامج عن بعد Mohamed Magdy 0 26 أمس, 10:23 AM
آخر رد: Mohamed Magdy
Exclamation [VB.NET] احتاج مساعدة في حساب رصيد اجازة لموظف algiloshy@gmail.com 0 37 19-10-18, 06:40 PM
آخر رد: algiloshy@gmail.com
  سؤال بخصوص الداتا جريد فيو احمد خطاب 2 51 19-10-18, 12:42 PM
آخر رد: احمد خطاب
  [VB.NET] مطلوب مساعدة في برنامج يحدث اخطاء ay.alhaj 29 584 17-10-18, 11:43 PM
آخر رد: عبد العزيز البسكري
  مساعدة هامة : احتاج طريقة مرنه لعرض منتجات من الداتا بيز في شكل صور او حتى button mohamedgadain61 2 93 16-10-18, 04:55 PM
آخر رد: mohamedgadain61
  [VB.NET] استفسار :- بخصوص نقل الداتا من DataGridView عن طريق CheckBoxColumn dubai.eig 3 78 15-10-18, 08:09 PM
آخر رد: عبدالله الدوسري
  حفظ بحقل التاريخ اذا كان فارغ محمد خيري 13 197 15-10-18, 03:27 AM
آخر رد: asemshahen5
  [سؤال] بخصوص تشفير ملف txt Mohamed20 6 781 13-10-18, 05:43 PM
آخر رد: asemshahen5

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


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