[HASAN6.0]

اخي الكريم :
حمل هذا الملف
ثم ثبته .

افتح مشروع جديد . واضف الـ Reference كما في الصورة .
[attachment=9326]
 

في الملف المرفق مثال كامل .
1. فحص الاتصال بالانترنت .
2. اخذ سيريال الهارد ديسك .
3. الاتصال بـMysql .
4. العد التنازلي لمدة 30 يوم .
ما عليك الا ضبط الاعدادات التي في الموديول .
[attachment=9327]

بالتوفيق .


طبعاً بدلاً من استخدام كلمة NOW وهي تعني تاريخ الجهاز .
يمكنك قرأة الوقت والتاريخ من موقع على الانترنت ... لتحصل على توقيت صحيح , حتى لو غير المستخدم تاريخ الجهاز . مثلاً
اضف هذا

كود :

Imports System.Net
Imports System.Net.Cache
Imports System.IO
Imports System.Text.RegularExpressions

 ثم اضف هذه الـFunction

PHP كود :

Public Shared Function GetNistTime() As DateTime
        Dim dateTime__1 As DateTime = DateTime.MinValue

        Dim request As HttpWebRequest = DirectCast(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)
        'No caching
        Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
        If response.StatusCode = HttpStatusCode.OK Then
            Dim stream As New StreamReader(response.GetResponseStream())
            Dim html As String = stream.ReadToEnd()
            '<timestamp time=\"1395772696469995\" delay=\"1395772696469995\"/>
            Dim time As String = 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 


ثم اكتب هذه الجملة  .

PHP كود :

Public NetNow As DateTime = GetNistTime() 


واستخدم NETNOW بدلاً من Now .