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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [نقاش] بخصوص اضافه خرائط جوجل الى برنامجك webbrowser control dametucorazon 12 103 08-07-18, 06:30 AM
آخر رد: dametucorazon
Sad [VB.NET] طلب مساعدة في برنامج للتحديث الروابط Salim sadek 4 88 06-07-18, 12:38 AM
آخر رد: elgokr
  [VB.NET] مساعدة محتاج خبراء ReportViewer dubai.eig 32 819 19-06-18, 09:47 AM
آخر رد: elgokr
Photo [سؤال] لأهل الخبرة أواجه مشكلة في قراءة بيانات من الداتا جريد فيو الى كريستال ريبورت dametucorazon 11 255 17-06-18, 03:15 AM
آخر رد: elgokr
  ممكن مساعدة في كود قريد فيو نور الهدى الهدى 3 89 13-06-18, 07:33 PM
آخر رد: elgokr
  مساعدة في تشغيل برنامج على الشبكة ibrahimmakhool 3 173 13-06-18, 11:56 AM
آخر رد: elgokr
  احتاج مساعدة في كود التعديل maram2423 5 127 08-06-18, 03:53 PM
آخر رد: elgokr
  مساعدة بخصوص التاريخ تلقائيا ahmedfa71 3 96 07-06-18, 03:53 PM
آخر رد: elgokr
  إذا تغير التاريخ ؟؟ hichem1 7 101 07-06-18, 04:24 AM
آخر رد: elgokr
  مساعدة لتصميم برنامج إسلامي بإمتياز hichem1 13 436 06-06-18, 05:33 PM
آخر رد: hichem1

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


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