back to notes

Keystrokes MS Windows

Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "ms-settings:defaultapps"
WScript.Sleep 1200
oShell.SendKeys "{TAB}{TAB}{TAB}{TAB}{TAB} "
WScript.Sleep 500
oShell.SendKeys "{TAB} "
WScript.Sleep 500
oShell.SendKeys "%{f4}"
WScript.Quit


last updated march 2019