Source Shutdown Timer - Đếm thời gian tắt máy tính

Screenshot:

​

Download:

Source:
Download tại file đính kèm
Sử dụng 2 hàm Sleep và Shutdown để viết code
Trích một đoạn có chứa 2 hàm này trong file đính kèm.

Mã (AutoIt):

Func Button1Click()
    If GUICtrlRead($Time) = "" Then
        MsgBox(16,"Shutdown Timer", "Thời gian không hợp lệ")
    Else
        $RTime = GUICtrlRead($Time)
        MsgBox(4096, "Shutdown Timer", "Thời gian tắt máy: " & $RTime & @CRLF & @CRLF & "Ấn OK bắt đầu đếm thời gian tắt máy." & @CRLF & @CRLF & "Ấn Esc để tắt code.")
        Sleep(GUICtrlRead($Time))
        Shutdown(1)
    EndIf
EndFunc