1
VB and the development of wizards / Re: Mach3 ShutDown
« on: August 14, 2016, 07:24:35 AM »
for windows 7 use
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "%+{F4}"
Sleep (20) 'Wait 20milliseconds
WshShell.SendKeys ("Y" ) 'Y = Yes
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "%+{F4}"
Sleep (20) 'Wait 20milliseconds
WshShell.SendKeys ("Y" ) 'Y = Yes