Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

Running commands on standby, hibernation and resume events


  • Please log in to reply
24 replies to this topic
RobOtter
  • Members
  • 133 posts
  • Last active: Jul 24 2014 11:29 AM
  • Joined: 30 Jan 2005
Hi folks,

this little script can act as an example for doing something when the computer is sent into sleep (standby and hibernation) and also when it resumes from that state.

Have fun,
Rob

/*
	Mute on hibernation
	
	Purpose:
		Mute the internal speakers if the computer is sent into hibernation or standby mode.
		
		Some laptop models of Fujitsu-Siemens are making short beep sounds everytime
		they are sent into sleep mode. This annoying behavior cannot be switched off,
		so this program circumvents it by disabling the speakers before sleep mode and
		reactivating them when resuming from hibernation.
	
	Functioning:
		The program runs in background, listening for the system´s message to hibernate
		the computer. It then mutes the speakers and turns them on again after the
		computer woke up.
		The mute state is left untouched in case the speakers were not muted by this
		program.
		The program will create one registry entry to save the mute state.
	
	Requirements:
		- Windows 2000 and newer
		- Read and write permission to HKEY_CURRENT_USER registry stem.
		
	
	Author:  Dirk Schwarzmann
	Version: 0.2
	Date:    2007-08-02
	
	Contact:
		Dirk 'Rob' Schwarzmann
		http://www.dirk-schwarzmann.de
		mailto://[email protected]
	
	Version history:
		0.1, 2007-08-01: Initial version
		0.2, 2007-08-02: Replace unreliable timer function by real power event parameters
*/

; Registry location to save the mute state
reg_root = HKEY_CURRENT_USER
reg_path = SessionInformation
reg_key  = MutedforSuspend

; Tray icon and menu definition
Menu, TRAY, Icon, MuteOnHibernate.ico, 1, 1
Menu, TRAY, Tip, Mute speakers on hibernation

; Listen to the Windows power event "WM_POWERBROADCAST" (ID: 0x218):
OnMessage(0x218, "func_WM_POWERBROADCAST")
Return

/*
	This function is executed if the system sends a power event.
	Parameters wParam and lParam define the type of event:
	
	lParam: always 0
	wParam:
		PBT_APMQUERYSUSPEND             0x0000
		PBT_APMQUERYSTANDBY             0x0001
		
		PBT_APMQUERYSUSPENDFAILED       0x0002
		PBT_APMQUERYSTANDBYFAILED       0x0003
		
		PBT_APMSUSPEND                  0x0004
		PBT_APMSTANDBY                  0x0005
		
		PBT_APMRESUMECRITICAL           0x0006
		PBT_APMRESUMESUSPEND            0x0007
		PBT_APMRESUMESTANDBY            0x0008
		
		PBTF_APMRESUMEFROMFAILURE       0x00000001
		
		PBT_APMBATTERYLOW               0x0009
		PBT_APMPOWERSTATUSCHANGE        0x000A
		
		PBT_APMOEMEVENT                 0x000B
		PBT_APMRESUMEAUTOMATIC          0x0012
		
		Source: http://weblogs.asp.net/ralfw/archive/2003/09/09/26908.aspx
*/
func_WM_POWERBROADCAST(wParam, lParam)
{
	Global reg_root, reg_path, reg_key
	
	If (lParam = 0) {
		; PBT_APMSUSPEND or PBT_APMSTANDBY? -> System will sleep
		If (wParam = 4 OR wParam = 5) {
			; Get mute state
			SoundGet, muteState, MASTER, MUTE, 1
			
			; If sound was not already muted, we have to do it. Otherwise the user
			; himself had muted the speakers so we must not do anything.
			If (muteState = "Off") {
				; Mute the speakers...
				SoundSet, 1, MASTER, MUTE, 1
				; ...and save the fact that WE have done that. This is necessary to
				; reset the previous state after resuming from suspend mode.
				RegWrite, REG_DWORD, %reg_root%, %reg_path%, %reg_key%, 1
			}
		}
		
		; PBT_APMRESUMESUSPEND oder PBT_APMRESUMESTANDBY? -> System wakes up
		If (wParam = 7 OR wParam = 8) {
			; Did WE mute the speakers before?
			RegRead, muteState, %reg_root%, %reg_path%, %reg_key%
			
			; If yes (muteState is 1), we have to switch on the speakers.
			; Otherwise we do nothing because it was the user who had muted the speakers.
			If (muteState = "1") {
				RegWrite, REG_DWORD, %reg_root%, %reg_path%, %reg_key%, 0
				SoundSet, 0, MASTER, MUTE, 1
			}
		}
	}
	Return
}


Z Gecko
  • Guests
  • Last active:
  • Joined: --
Very cool,
detecting standby, hibernation and resuming can be very helpful.

Maybe you change the title of this topic,
to indicate that your script is not mainly about muting
but has a general usage.

RobOtter
  • Members
  • 133 posts
  • Last active: Jul 24 2014 11:29 AM
  • Joined: 30 Jan 2005
[x] Done

Is this better? I guess it´s more general now...

Z Gecko
  • Guests
  • Last active:
  • Joined: --
Yes, indeed ;-)

ttzm
  • Members
  • 24 posts
  • Last active: Jan 25 2009 01:23 PM
  • Joined: 17 Feb 2008

If (lParam = 0)


Without that you can also work!

Wouther
  • Members
  • 83 posts
  • Last active: Oct 02 2009 04:06 PM
  • Joined: 01 May 2007
Thankyou very much! I recently needed this and only found a solution that worked, but not very good.
Edit: Actually, I also found this WM_ message but I did not know the values of wParam when the pc returns from suspend/hibernation/etc. Thanks for the information! :D

jerry william
  • Members
  • 3 posts
  • Last active: Apr 12 2008 10:47 PM
  • Joined: 12 Apr 2008
hi friend,
how you doing?

jerry william
  • Members
  • 3 posts
  • Last active: Apr 12 2008 10:47 PM
  • Joined: 12 Apr 2008
yeh will like you to get back to me so that we can move onto it
Mr Jerry.

jerry william
  • Members
  • 3 posts
  • Last active: Apr 12 2008 10:47 PM
  • Joined: 12 Apr 2008
am fine and you?

pepak
  • Members
  • 21 posts
  • Last active: Jul 18 2008 09:28 AM
  • Joined: 26 Nov 2004
Hmm, I have a problem with this. I wrote pretty much the same code before I even saw this post, but mine does not work at all. I only wanted to see if I am getting the messages, that's why the code only writes to a file:
OnMessage(0x218, "WM_POWERBROADCAST")
Return

WM_POWERBROADCAST(wParam, lParam)
{
	; PBT_APMQUERYSUSPEND = 0
	; PBT_APMRESUMESUSPEND = 7
	FileAppend, "powerbroadcast", Z:\Temp\pokus
	If (wParam == 0) {
		FileAppend, "suspend", Z:\Temp\pokus
		Return true
	} Else If (wParam = 7) {
		FileAppend, "resume", Z:\Temp\pokus
	}
}
For some reason, I don't get any output, which I take to mean that either WM_POWERBROADCAST never gets called or that my script doesn't catch it.

Wouther
  • Members
  • 83 posts
  • Last active: Oct 02 2009 04:06 PM
  • Joined: 01 May 2007
I changed the path to my own tmp-directory and it works on my computer. I think the WM-part works, but you have to specify a file name instead of a folder for FileAppend.

FileAppend, "powerbroadcast", Z:\Temp\pokus[color=red].txt[/color]



Repkam09
  • Members
  • 15 posts
  • Last active: Feb 26 2011 04:07 PM
  • Joined: 11 Feb 2008
thank you! i had also just been looking for someway to detect returning from hibernation, as i never shut down my computer, and this looks like it could be helpful :)


Thanks!

nice and simple too :D
[repkam09]
AHK Beginner :p

grossermanitu
  • Guests
  • Last active:
  • Joined: --
cool script. helped me a lot. thanks!

yfni
  • Members
  • 1 posts
  • Last active: Feb 07 2011 05:42 PM
  • Joined: 05 Dec 2008
super awesome thanks!

jpjpjp
  • Members
  • 15 posts
  • Last active: Sep 18 2015 12:29 AM
  • Joined: 20 Jun 2009
I'm not having luck with this. Can you do something like a MsgBox in the handler to tell if it is excecuting?

I tried to do the following:
OnMessage(0x218, "WM_POWERBROADCAST") 
Return 

WM_POWERBROADCAST(wParam, lParam) 
{ 
  MsgBox Got a Windows Power Event: %wParam%
  RunWait taskkill /f /im vpngui.exe
}

But I never see the message box and the vpngui task is still running when I return from hibernation.

Is there some type of step where AHK needs to register with windows to get the message? (I'm running on XP)

Thanks!
--jp