Требуется установить расширение LitDev.

GraphicsWindow.Width = 500
GraphicsWindow.Height = 600
GraphicsWindow.FontSize = 11
GraphicsWindow.Title = "Выключение компьютера по таймеру"
GraphicsWindow.BrushColor = "Blue"
Controls.ButtonClicked = OnButtonClick
Controls.TextTyped = OnTextTyped
GraphicsWindow.DrawText(50,0,"Количество миллисекунд до выключения ОС")
Edit_1 = Controls.AddTextBox(50,50)
Controls.SetSize(Edit_1, 300,25)
Controls.SetTextBoxText(Edit_1,"1000")

Button_1 = Controls.AddButton("запустить таймер выключения ", 50,150) 
Controls.SetSize(Button_1, 300,50)

Sub OnTextTyped
edit = Controls.LastTypedTextBox
myinterval = Controls.GetTextBoxText(edit)
EndSub

Sub OnButtonClick
  button = Controls.LastClickedButton
  If button = Button_1 Then 
    Timer.Interval = myinterval
    Timer.Tick = OnTick
  EndIf
  Endsub
Sub OnTick
    LDProcess.Start("shutdown.exe", "/s /t 10")
EndSub