Shutting Down Computer at a certain time

greg0226 · Apr 15th, 2002, 08:24 AM

I have tried searching for this but is there a way to have my computer shut down without saving anything at a certain time using VBA code? Any help would be great.

Thanks,
Greg

Mark O'Brien · Apr 15th, 2002, 08:37 AM

By some strange coincidence, I have actually programmed such an application. What my app did was when Excel was opened, the user was prompted with a userform that asked the user to enter a time. the application then waited until that time using "Application.Wait" then called this function with the value "True" to shut down NT.



Private Declare Function ExitWindowsEx Lib "user32.dll" _

(ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Public Sub Main()

  frmTime.Show

End Sub



Public Sub ShutDownNT(Force As Boolean)

' Shut Down NT

    Dim ret As Long

    Dim Flags As Long



    Flags = EWX_SHUTDOWN

    If Force Then Flags = Flags + EWX_FORCE

    ExitWindowsEx Flags, 0

End Sub

I hope this helps you. I can't possibly think what you'd want to use this for. I just know exactly why I wanted it.

Chris Davison · Apr 15th, 2002, 01:41 PM

Mark... you wanted all power cut when the bailiffs came round, right ?

Cosmos75 · Apr 15th, 2002, 02:06 PM

Is there anything computer-wise that CAN'T be done with Excel???

Ivan F Moala · Apr 15th, 2002, 02:12 PM

Quote:

On 2002-04-15 13:06, Cosmos75 wrote:
Is there anything computer-wise that CAN'T be done with Excel???

Windows is VB Based so there isn't too much
Xl cannot do since Excel uses VBA.

Mark O'Brien · Apr 15th, 2002, 02:15 PM

Quote:

On 2002-04-15 12:41, Chris Davison wrote:
Mark... you wanted all power cut when the bailiffs came round, right ?

Suffice to say, I'd love to say why I made it, but I fear that someday my boss will find out about my 'net use at work and stumble across these archives and I don't want to get myself into even more trouble.

Mind you, this is the same boss that calls me into his office to ask him how to open a *.zip file.

"Um, yeah, you just double-click on it since you've got WinZip installed."

greg0226 · Apr 15th, 2002, 02:27 PM

Thank you very much for the response. Would I need to change something if i am using XP? The reason I want it is kind of stupid. I usually leave my home computer on when i go to work but am usually sending files (big mp3 mixes) to some friends so I want to be able to just shut my computer down after those are done instead of leaving my computer on all day. Anyway, thank you. I will give it a try when i get home.

Greg

[ This Message was edited by: greg0226 on 2002-04-15 13:28 ]

greg0226 · Apr 15th, 2002, 08:57 PM

What else do i need to do with this code because I can't seem to get it to work? Thanks.

Greg

Apr 15th, 2002, 08:37 AM	#2
Mark O'Brien MrExcel MVP Join Date: Feb 2002 Location: Columbus, OH, USA Posts: 3,519	By some strange coincidence, I have actually programmed such an application. What my app did was when Excel was opened, the user was prompted with a userform that asked the user to enter a time. the application then waited until that time using "Application.Wait" then called this function with the value "True" to shut down NT. Private Declare Function ExitWindowsEx Lib "user32.dll" _ (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Public Sub Main() frmTime.Show End Sub Public Sub ShutDownNT(Force As Boolean) ' Shut Down NT Dim ret As Long Dim Flags As Long Flags = EWX_SHUTDOWN If Force Then Flags = Flags + EWX_FORCE ExitWindowsEx Flags, 0 End Sub I hope this helps you. I can't possibly think what you'd want to use this for. I just know exactly why I wanted it. __________________ Mark O'Brien Columbus Ohio Celtic Supporters Club

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 15th, 2002, 08:24 AM	#1
greg0226 New Member Join Date: Feb 2002 Location: Benicia, CA Posts: 31	I have tried searching for this but is there a way to have my computer shut down without saving anything at a certain time using VBA code? Any help would be great. Thanks, Greg

Apr 15th, 2002, 01:41 PM	#3
Chris Davison MrExcel MVP Join Date: Feb 2002 Location: Millbank, London, UK Posts: 1,790	Mark... you wanted all power cut when the bailiffs came round, right ?

Apr 15th, 2002, 02:06 PM	#4
Cosmos75 Board Regular Join Date: Feb 2002 Location: Tulsa, OK Posts: 354	Is there anything computer-wise that CAN'T be done with Excel???

Apr 15th, 2002, 02:27 PM	#7
greg0226 New Member Join Date: Feb 2002 Location: Benicia, CA Posts: 31	Thank you very much for the response. Would I need to change something if i am using XP? The reason I want it is kind of stupid. I usually leave my home computer on when i go to work but am usually sending files (big mp3 mixes) to some friends so I want to be able to just shut my computer down after those are done instead of leaving my computer on all day. Anyway, thank you. I will give it a try when i get home. Greg [ This Message was edited by: greg0226 on 2002-04-15 13:28 ]

Apr 15th, 2002, 08:57 PM	#8
greg0226 New Member Join Date: Feb 2002 Location: Benicia, CA Posts: 31	What else do i need to do with this code because I can't seem to get it to work? Thanks. Greg