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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص البحث باستخدام التاريخ عن طريق WebService masry4u 3 76 08-12-18, 08:36 PM
آخر رد: masry4u
  مساعدة السعيدي 12 291 08-12-18, 12:01 AM
آخر رد: السعيدي
  [VB.NET] استفسار :- بخصوص تنزيل الداتا في قاعدة البيانات dubai.eig 0 37 06-12-18, 04:36 PM
آخر رد: dubai.eig
  سؤال بخصوص الكتابة داخل داتا جريد احمد خطاب 3 74 05-12-18, 11:35 AM
آخر رد: احمد خطاب
  شباب محتاج مساعدة فى اداة ال vlc Mohamed Magdy 2 65 05-12-18, 10:49 AM
آخر رد: Mohamed Magdy
  مساعدة ضرورية بخصوص برنامج Aminsoft 4 170 04-12-18, 06:40 AM
آخر رد: asemshahen5
Star سؤال بخصوص جدول فاتوره المشتريات ، vb2010 0 58 30-11-18, 08:57 PM
آخر رد: vb2010
  محتاج مساعدة فى عمل بسورد لى برنامجى+رابط قاعدة البينات من الاسطضافة Mohamed Magdy 14 270 29-11-18, 10:36 PM
آخر رد: Mohamed Magdy
  مساعدة في تحويل مشروع فيجوال 6 samira20 6 140 29-11-18, 09:56 PM
آخر رد: asemshahen5
  سؤال بخصوص الديف اكسبرس ابو روضة 15 258 28-11-18, 01:23 PM
آخر رد: ابو روضة

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


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