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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 7 123 أمس, 08:07 PM
آخر رد: عباسة
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 112 20-02-17, 02:13 AM
آخر رد: khodor1985
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 141 17-02-17, 11:19 PM
آخر رد: EnormousSoft
  البحث بجزء من التاريخ أسامة السالمي 6 115 16-02-17, 03:19 PM
آخر رد: أسامة السالمي
  [VB.NET] سؤال بخصوص Next button Setup Factory dubai.eig 1 49 14-02-17, 07:23 PM
آخر رد: dubai.eig
  [سؤال] هل يوجد طريقة للتنبيه قبل انتهاء التاريخ بيومين Marwan9990 22 663 08-02-17, 02:48 AM
آخر رد: أسامة السالمي
  [VB.NET] اسفسار بخصوص Setup Factory 9 dubai.eig 5 105 07-02-17, 12:49 PM
آخر رد: Amir_alzubidy
  اريد كود تنسيق التاريخ bidaya 10 254 06-02-17, 03:08 AM
آخر رد: bidaya
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 178 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  [SQL] بخصوص SQL And VB.Net thevirus 1 122 03-02-17, 10:26 PM
آخر رد: thevirus

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


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