[VB.NET] مساعدة من أهل الخبرة والمحترفون بخصوص التاريخ - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : [VB.NET] مساعدة من أهل الخبرة والمحترفون بخصوص التاريخ (/showthread.php?tid=11114) |
مساعدة من أهل الخبرة والمحترفون بخصوص التاريخ - vampore - 08-01-15 أرجو المساعدة اود ان اكتب كود يجعلني قادر على معرفة الوقت والتاريخ من خلال الانترنت وليس من خلال تاريخ الجهاز ارجو المساعدة RE: مساعدة من أهل الخبرة والمحترفون بخصوص التاريخ - sami2015 - 08-01-15 http://vb4arb.com/vb/Thread-%D8%A7%D8%B1%D9%8A%D8%AF-%D8%A7%D9%84%D8%AD%D8%B5%D9%88%D9%84-%D8%B9%D9%84%D9%89-%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE-%D8%A7%D9%84%D9%8A%D9%88%D9%85-%D8%B9%D9%86-%D8%B7%D8%B1%D9%8A%D9%82-%D8%A7%D9%84%D8%A7%D9%86%D8%AA%D8%B1%D9%86%D8%AA-%D9%88%D9%84%D9%8A%D8%B3-%D8%B9%D9%86-%D8%B7%D8%B1%D9%8A%D9%82-%D8%A7%D9%84%D8%AC%D9%87%D8%A7%D8%B2 RE: مساعدة من أهل الخبرة والمحترفون بخصوص التاريخ - vampore - 08-01-15 (08-01-15, 07:05 PM)vampore كتب : أرجو المساعدة الا يوجد من يعينيني اشكرك اخي سامي على سرعة ردك RE: مساعدة من أهل الخبرة والمحترفون بخصوص التاريخ - sami2015 - 08-01-15 http://stackoverflow.com/questions/6435099/how-to-get-datetime-from-the-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 |