vbs awake code
unknown
plain_text
2 years ago
956 B
5
Indexable
Dim objShell, lngMinutes, boolValid Set objShell = CreateObject("WScript.Shell") lngMinutes = InputBox("How long you want to keep your system awake?" & Replace(Space(5), " ", vbNewLine) & "Enter minutes", "Awake Duration") If lngMinutes = vbEmpty Then ' Do Nothing Else On Error Resume Next Err.Clear boolValid = False lngMinutes = CLng(lngMinutes) If Err.Number = 0 Then If lngMinutes > 0 Then For i = 1 to lngMinutes WScript.Sleep 60000 objShell.SendKeys "{SCROLLLOCK2}" Next boolValid = True MsgBox "Forced awake time over. Back to normal routine.", vbOKOnly+vbInformation, "Task Completed" End If End If On Error Goto 0 If boolValid = False Then MsgBox "Incorrect input, script won't run" & vbNewLine & "You can only enter a numeric value greater than zero", vbOKOnly+vbCritical, "Task Failed" End If End If Set objShell = Nothing Wscript.Quit 0
Editor is loading...