컴퓨터 예약종료

VB.NET으로만든 컴퓨터 예약종료

프로그레스바를 추가하고 시간제한은 한시간 이내로 해두었다.

 

Public Class Form1

    Dim SecP As Integer
    Dim Sec As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = Format(TimeSerial(0, 0, Sec - SecP), "mm:ss")

        If SecP >= Sec Then
            Shell("shutdown -s -t 0")
        Else
            SecP = SecP + 1
            ProgressBar1.Value = ProgressBar1.Value + 1
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error GoTo err
        If ComboBox1.Text > 60 Then
            MsgBox("60분 이내로 입력해주세요.")
            GoTo err
        End If

        ProgressBar1.Maximum = ComboBox1.Text * 60
        Sec = ComboBox1.Text * 60
        SecP = 1
        Timer1.Enabled = True

err:
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        ComboBox1.Text = ""
        Label1.Text = "남은시간"
        ProgressBar1.Value = 0
        Shell("shutdown -a")
    End Sub

End Class

 

컴퓨터예약종료.exe