+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : [كود] معرفة الوقت للانترنت InternetTime (/showthread.php?tid=12289)
معرفة الوقت للانترنت InternetTime - الطالب - 14-05-15
سلام
توجد طرق كثيرة لمعرفة الوقت للانترنت، ولكن اذا كانت الطريقة تعتمد على موقع غير مضمون بقائه فستحدث مشكلة لو تم اغلاقه
هذه الطريقة تعتمد على موقع معروف وهو nist.time.gov
كود :
Public Function InternetTime() As DateTime
Try
Dim wc As New Net.WebClient()
Dim html As String = wc.DownloadString("http://nist.time.gov/actualtime.cgi")
Dim milliseconds As String = System.Text.RegularExpressions.Regex.Match(html, "(?<=\btime="")[^""]*").Value
Dim timeDouble As Double = Convert.ToInt64(milliseconds) / 1000.0
Dim time As DateTime = New DateTime(1970, 1, 1).AddMilliseconds(timeDouble).ToLocalTime()
Return time
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function