Sub SleepNSecond(sec)
Dim oShell
Set oShell = Server.CreateObject("WScript.Shell")
oShell.Run "C:\Windows\System32\timeout.exe " + Cstr(sec), 1, True
End Sub
SleepNSecond(3) => Sleep for 3 seconds
More than 5 years have passed since last update.
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme
List of users who liked
00