Dim objShell, lngMinutes, boolValid

Set objShell = CreateObject("WScript.Shell")
lngMinutes = InputBox("How long you want to keep your system awake?" & Replace(Space(5), " ",
vbNewLine)vbNewLine & "Enter minutes:", "Awake Duration") 'we are replacing 5 spaces with new lines
If lngMinutes = vbEmpty Then 'If the user opts to cancel the process
'Do nothing
Else
On Error Resume Next
Err.Clear
boolValid = False
lngMinutes = CLng(lngMinutes)
If Err.Number = 0 Then 'input is numeric
If lngMinutes > 0 Then 'input is greater than zero
For i = 1 To lngMinutes
WScript.Sleep 60000 '60 seconds
objShell.SendKeys "{SCROLLLOCK 2}"
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

The text above was approved for publishing by the original author.

Previous       Next

無料の試し

メッセージをご記入ください
修正依頼の言語をご選択ください

チェックアウト私たちの Google Docs 校正 アドオン!

eAngel.me

eAngel.me is a human proofreading service that enables you to correct your texts by live professionals in minutes.