Reply to thread

Message

<blockquote data-quote="tadr" data-source="post: 343104" data-attributes="member: 83083">Actually, steps 1 and 2 in the above post should read:1) Computer is brought out of suspend2) Check if resume event was triggered by remote receiver. If yes, power on amp and END. If no, goto step 3My suspend task (powering off the amp) is powered using the IR server suite translator app.Here is my resume-from-suspend approach:I have two scripts: resume.bat and suspend.bat.Resume.bat contains my Amp-ON command: &quot;C:\Program Files\IR Server Suite\IR Blast\IRBlast.exe&quot; multich.irSuspend.bat contains my Amp-OFF command:&quot;C:\Program Files\IR Server Suite\IR Blast\IRBlast.exe&quot; ampOff.irIn the Vista task scheduler I have two event-triggered tasks:ReturnFromStandby-OtherThanByRemote (triggered on wake-on-lan, scheduled wakeup, etc)This task is set to launch the Watcher app I wrote.When you create the task, you have to use a custom filter for the trigger.&nbsp; The filter I use is:[CODE]&lt;QueryList&gt;&nbsp; &lt;Query Id=&quot;0&quot; Path=&quot;System&quot;&gt;&nbsp; &nbsp; &lt;Select Path=&quot;System&quot;&gt;*[System[(Keywords='0x8000000000000000') and (EventID=1)]]&lt;/Select&gt;&nbsp; &nbsp; &lt;Suppress Path=&quot;System&quot;&gt;*[EventData[Data[@Name=&quot;WakeSourceText&quot;] = &quot;USB Root Hub&quot;]]&lt;/Suppress&gt;&nbsp; &lt;/Query&gt;&lt;/QueryList&gt;[/CODE]ReturnFromStandby-byRemote (triggered by the USB remote receiver)This task is set to launch resume.bat (which turns on the amp)Here is the filter:[CODE]&lt;QueryList&gt;&nbsp; &lt;Query Id=&quot;0&quot; Path=&quot;System&quot;&gt;&nbsp; &nbsp; &lt;Select Path=&quot;System&quot;&gt;*[&nbsp;&nbsp; System[(Keywords='0x8000000000000000') and (EventID=1)] and EventData[Data[@Name=&quot;WakeSourceText&quot;] = &quot;USB Root Hub&quot;]&nbsp; &nbsp; &nbsp; ]&lt;/Select&gt;&nbsp; &lt;/Query&gt;&lt;/QueryList&gt;[/CODE]-----------------------------Watcher appThis is a VB .NET 2003 application.&nbsp; It works as I described in the steps in the last post.&nbsp; Nothing fancy, AT ALL.&nbsp; Let me know if you want me to send you a compiled version.&nbsp; Here is the code:&nbsp; [CODE]Imports Microsoft.Win32Imports System.IOModule Module1&nbsp; &nbsp; Dim enteringSuspendScript As String = &quot;c:\Users\Tad\Desktop\scripts\enter_standby.bat&quot;&nbsp; &nbsp; Dim resumingSuspendScript As String = &quot;c:\Users\Tad\Desktop\scripts\return_from_standby.bat&quot;&nbsp; &nbsp; Public Function IsProcessRunning(ByVal ProcessName As String) As Boolean&nbsp; &nbsp; &nbsp; &nbsp; Return (Process.GetProcessesByName(ProcessName).Length &gt; 0)&nbsp; &nbsp; End Function&nbsp; &nbsp; Private Sub powerStateChangeHandler(ByVal sender As Object, ByVal e As PowerModeChangedEventArgs)&nbsp; &nbsp; &nbsp; &nbsp; If e.Mode = PowerModes.Suspend Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Console.Write(&quot;Entering suspend. Exiting&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Environment.Exit(0)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Shell(enteringSuspendScript)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Whatever you want to happen when it goes in standby/hibernate goes here&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'NOTE: This does NOT work reliably to call IRSS functions, as it only gets triggered RIGHT when the system goes into suspend.&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If e.Mode = PowerModes.Resume Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'MessageBox.Show(&quot;Return from suspend&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'If you want something to happen when it wakes back up, put it here&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub&nbsp; &nbsp; Sub Main()&nbsp; &nbsp; &nbsp; &nbsp; AddHandler SystemEvents.PowerModeChanged, AddressOf powerStateChangeHandler&nbsp; &nbsp; &nbsp; &nbsp; Console.WriteLine(&quot;Waiting for MCE to start...&quot;)&nbsp; &nbsp; &nbsp; &nbsp; While (1)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If (IsProcessRunning(&quot;ehshell&quot;)) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'MCE interface is running - &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Console.WriteLine(ControlChars.NewLine + &quot;MCE running&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Console.WriteLine(&quot;Turning on amplifer...&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If (System.IO.File.Exists(resumingSuspendScript)) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Shell(resumingSuspendScript)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Console.WriteLine(&quot;Exiting...&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Environment.Exit(0)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Console.WriteLine(resumingSuspendScript + &quot; not found!&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Console.Write(&quot;.&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'wait 2 seconds before checking again&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; System.Threading.Thread.Sleep(2000)&nbsp; &nbsp; &nbsp; &nbsp; End While&nbsp; &nbsp; End SubEnd Module[/CODE]</blockquote>

[QUOTE="tadr, post: 343104, member: 83083"] Actually, steps 1 and 2 in the above post should read: 1) Computer is brought out of suspend 2) Check if resume event was triggered by remote receiver. If yes, power on amp and END. If no, goto step 3 My suspend task (powering off the amp) is powered using the IR server suite translator app. Here is my resume-from-suspend approach: I have two scripts: resume.bat and suspend.bat. Resume.bat contains my Amp-ON command: "C:\Program Files\IR Server Suite\IR Blast\IRBlast.exe" multich.ir Suspend.bat contains my Amp-OFF command: "C:\Program Files\IR Server Suite\IR Blast\IRBlast.exe" ampOff.ir In the Vista task scheduler I have two event-triggered tasks: ReturnFromStandby-OtherThanByRemote (triggered on wake-on-lan, scheduled wakeup, etc) This task is set to launch the Watcher app I wrote. When you create the task, you have to use a custom filter for the trigger. The filter I use is: [CODE]<QueryList> <Query Id="0" Path="System"> <Select Path="System">*[System[(Keywords='0x8000000000000000') and (EventID=1)]]</Select> <Suppress Path="System">*[EventData[Data[@Name="WakeSourceText"] = "USB Root Hub"]]</Suppress> </Query> </QueryList>[/CODE] ReturnFromStandby-byRemote (triggered by the USB remote receiver) This task is set to launch resume.bat (which turns on the amp) Here is the filter: [CODE]<QueryList> <Query Id="0" Path="System"> <Select Path="System">*[ System[(Keywords='0x8000000000000000') and (EventID=1)] and EventData[Data[@Name="WakeSourceText"] = "USB Root Hub"] ]</Select> </Query> </QueryList>[/CODE] ----------------------------- Watcher app This is a VB .NET 2003 application. It works as I described in the steps in the last post. Nothing fancy, AT ALL. Let me know if you want me to send you a compiled version. Here is the code: [CODE]Imports Microsoft.Win32 Imports System.IO Module Module1 Dim enteringSuspendScript As String = "c:\Users\Tad\Desktop\scripts\enter_standby.bat" Dim resumingSuspendScript As String = "c:\Users\Tad\Desktop\scripts\return_from_standby.bat" Public Function IsProcessRunning(ByVal ProcessName As String) As Boolean Return (Process.GetProcessesByName(ProcessName).Length > 0) End Function Private Sub powerStateChangeHandler(ByVal sender As Object, ByVal e As PowerModeChangedEventArgs) If e.Mode = PowerModes.Suspend Then Console.Write("Entering suspend. Exiting") Environment.Exit(0) 'Shell(enteringSuspendScript) 'Whatever you want to happen when it goes in standby/hibernate goes here 'NOTE: This does NOT work reliably to call IRSS functions, as it only gets triggered RIGHT when the system goes into suspend. End If If e.Mode = PowerModes.Resume Then 'MessageBox.Show("Return from suspend") 'If you want something to happen when it wakes back up, put it here End If End Sub Sub Main() AddHandler SystemEvents.PowerModeChanged, AddressOf powerStateChangeHandler Console.WriteLine("Waiting for MCE to start...") While (1) If (IsProcessRunning("ehshell")) Then 'MCE interface is running - Console.WriteLine(ControlChars.NewLine + "MCE running") Console.WriteLine("Turning on amplifer...") If (System.IO.File.Exists(resumingSuspendScript)) Then Shell(resumingSuspendScript) Console.WriteLine("Exiting...") Environment.Exit(0) Else Console.WriteLine(resumingSuspendScript + " not found!") End If Else Console.Write(".") End If 'wait 2 seconds before checking again System.Threading.Thread.Sleep(2000) End While End Sub End Module[/CODE] [/QUOTE]

Verification