a = Inputbox("时间设定（1秒=1000）")
mm = Inputbox("模式设定0注销1关机2重启")
Delay a
Rem A
If mm = 0 Then 
Call Plugin.Sys.ExitOS(0)
End If
If mm = 1 Then 
Call Plugin.Sys.ExitOS(1)
End If
If mm = 2 Then 
Call Plugin.Sys.ExitOS(2)
End If
Sub OnScriptExit()
Goto A
End Sub