[أسامة]

تفضل

كود :

             'سنه/يوم/شهر  
        Dim dayname As Date = #6/7/2015#
        Dim vb4arb = DateTime.Now.ToString("yyyy/MM/dd " + WeekdayName(Weekday(dayname)) + " HH:mm:ss")
        TextBox7.Text = vb4arb
        If vb4arb = "2015/06/13 السبت 16:57:39" Then
            ' System.Diagnostics.Process.Start("shutdown", "-s -t 00")
            ' اغلاق الكمبيوتر
            ' System.Diagnostics.Process.Start("shutdown", "-r -t 00")
            'اعاده تشغيل الكمبيوتر
            ' System.Diagnostics.Process.Start("shutdown", "-l -t 00")
            'تسجيل الخروج
        End If