25-01-17, 12:52 AM
منع المستخدم من تغير التاريخ والوقت علما بانه Windows User من نوع Admin
أو..............
أن يكون البرنامج له ساعته الخاصة نفس ساعة الجهاز
أو..............
أن يكون البرنامج له ساعته الخاصة نفس ساعة الجهاز
(25-01-17, 05:09 AM)الماجيك مسعد كتب : [ -> ]استخدم الوقت من انت ولا تستخدم وقت الجهاز نهائيا
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
MsgBox(GetOnlineDateTime)
End SubFunction GetOnlineDateTime() As DateTime
Dim client = New Net.Sockets.TcpClient("time.nist.gov", 13)
Using streamReader = New IO.StreamReader(client.GetStream())
Dim response = streamReader.ReadToEnd()
Dim utcDateTimeString = response.Substring(7, 17)
Dim localDateTime = DateTime.ParseExact(utcDateTimeString, "yy-MM-dd HH:mm:ss", Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.AssumeUniversal)
Return (localDateTime)
End Using
End Function