[eng.khalidvb]

السلام عليكم ورحمه الله وبركاته

هلا اخي يوسف قمت بعمل مثال بسيط مثل ما تريد بالضبط

هذه صور للبرنامج

حالة ايقاف تشغيل الكمبيوتر



حالة اعادة تشغيل الكمبيوتر



ويمكنك تحميل البرنامج طبعا اذا كنت تستخدم visual studio 2012

http://www.psmaax.com/upload/do.php?id=699

وكلمة المرور هي : eng.khalidvb

وها هو الكود تفضل :

PHP كود :

Public Class Form1
    Dim hh As Integer
    Dim mm As Integer
    Dim ss As Integer

    Public countDown As New TimeSpan(hh, mm, ss)
    Dim stpw As New Stopwatch
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btn_shutdown_Click(sender As Object, e As EventArgs) Handles btn_shutdown.Click

        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
            MsgBox("الرجاء ملئ الحقول الفارغة")
            Exit Sub
        End If
        Label2.Visible = True
        hh = CInt(Int(TextBox1.Text))
        mm = CInt(Int(TextBox2.Text))
        ss = CInt(Int(TextBox3.Text))

        Timer1.Interval = 250
        Timer1.Start()
        stpw.Start()
        Label4.Visible = True
        Label5.Visible = False
        Label8.Visible = True
        Label8.Text = "ايقاف تشغيل الكمبيوتر"
        Label8.ForeColor = Color.Red


    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim countDown As New TimeSpan(hh, mm, ss) 'ten seconds
        If stpw.Elapsed <= countDown Then
            Dim toGo As TimeSpan = countDown - stpw.Elapsed

            Label2.Text = String.Format("{0:00}:{1:00}:{2:00}", toGo.Hours, toGo.Minutes, toGo.Seconds)
        Else
            Timer1.Stop()
            stpw.Stop()
            Label4.Text = Label2.Text
            Label5.Text = Label2.Text

        End If
        'This will make the computer Shutdown
        If Label4.Text = Label2.Text Then
            System.Diagnostics.Process.Start("shutdown", "-s -t 00")
            'This will make the computer Restart
        ElseIf Label5.Text = Label2.Text Then
            System.Diagnostics.Process.Start("shutdown", "-r -t 00")
        End If

    End Sub
    
    Private Sub btn_restart_Click(sender As Object, e As EventArgs) Handles btn_restart.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
            MsgBox("الرجاء ملئ الحقول الفارغة")
            Exit Sub
        End If
        Label2.Visible = True
        hh = CInt(Int(TextBox1.Text))
        mm = CInt(Int(TextBox2.Text))
        ss = CInt(Int(TextBox3.Text))

        Timer1.Interval = 250
        Timer1.Start()
        stpw.Start()
        Label4.Visible = False
        Label5.Visible = True
        Label8.Visible = True
        Label8.Text = "أعادة تشغيل الكمبيوتر"
        Label8.ForeColor = Color.Green
    End Sub
End Class 


والسلام عليكم ورحمه الله وبركاته