Skip to content

Instantly share code, notes, and snippets.

@codelahoma
Created May 22, 2019 19:23
Show Gist options
  • Save codelahoma/3b35988f22c44a9e897e97e7209193de to your computer and use it in GitHub Desktop.
Save codelahoma/3b35988f22c44a9e897e97e7209193de to your computer and use it in GitHub Desktop.
Quick and Dirty 'Caffeine' for Windows
Dim WshShell
Set WshShell = Wscript.CreateObject("WScript.Shell")
Do While True
WshShell.SendKeys("{F15}")
WScript.Sleep(55000)
Loop
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment