تطبيق إيقاف تشغيل الحاسوب بتحديد الساعة

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim timeTxt As String = TextBox1.Text

        If timeTxt.Count = 8 Then

            If timeTxt.Substring(2, 1) = ":" And timeTxt.Substring(5, 1) = ":" Then

                Timer1.Enabled = True

                TextBox1.Enabled = False

                Button1.Enabled = False

                Button2.Enabled = True

            Else

                MsgBox("شكل الساعة غير صحيح", MsgBoxStyle.Exclamation)

            End If

        Else

            MsgBox("شكل الساعة غير صحيح", MsgBoxStyle.Exclamation)

        End If

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Enabled = False

        TextBox1.Enabled = True

        Button1.Enabled = True

        Button2.Enabled = False

    End Sub


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

        Dim timeSp As String() = TextBox1.Text.Split(":")

        If timeSp(0) = Now.Hour And timeSp(1) = Now.Minute Then

            Timer1.Enabled = False

            Process.Start("shutdown", "-s -t 0")

        End If

    End Sub

End Class