[Mohamed20]

اريد الحصول على الوقت و التاريخ من على الانترنت كنت استخدم هذا الكود من قبل

كود :

   Public Shared Function GetNistTime() As DateTime
       Dim dateTime As DateTime = DateTime.MinValue
       Dim request As HttpWebRequest = CType(WebRequest.Create("http://nist.time.gov/actualtime.cgi?lzbc=siqm9b"), 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 RequestCachePolicy(RequestCacheLevel.NoCacheNoStore)
       Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
       If response.StatusCode = HttpStatusCode.OK Then
           Dim stream As StreamReader = New StreamReader(response.GetResponseStream())
           Dim html As String = stream.ReadToEnd()
           Dim time As String = Regex.Match(html, "(?<=\btime="")[^""]*").Value
           Dim milliseconds As Double = Convert.ToInt64(time) / 1000
           dateTime = New DateTime(1970, 1, 1).AddMilliseconds(milliseconds).ToLocalTime()
       End If

       Return dateTime
   End Function

لاكن لا يعمل الان لا اعرف السبب هل من حل لهذه المشكلة ؟