Eventghost PS3 Bluetooth remote with hibernate config. Useful for xmbc or other media players.

Eventghost_PS3_Config.xml

<?xml version="1.0" encoding="UTF-8" ?>
<EventGhost Version="1544" Guid="{82508F58-8549-4C7E-91DE-56135A1FB77F}" Time="1326646344.61">
    <Autostart Name="Autostart" Expanded="True">
        <Plugin Identifier="HIDPS3" Guid="PS3" File="PS3">
   gAIoWAAAAABxAIiJiImJRwAAAAAAAAAARwAAAAAAAAAAR0AUAAAAAAAAR0BOAAAAAAAAiVV8XFw/XGhpZCN7MDAwMDExMjQtMDAwMC0xMDAwLTgwMDAtMDA4MDVmOWIzNGZifV92aWQmMDAwMjA1NGNfcGlkJjAzMDYjOCZmNWJiMDYwJjAmMDAwMCN7NGQxZTU1YjItZjE2Zi0xMWNmLTg4Y2ItMDAxMTExMDAwMDMwfXEBTUwFWB8AAABTb255IENvbXB1dGVyIEVudGVydGFpbm1lbnQgSW5jcQJNBgNYEQAAAEJEIFJlbW90ZSBDb250cm9scQNLAIl0cQQu
        </Plugin>
        <Plugin Identifier="Timer" Guid="{6149CA99-1FCD-4450-9160-7543BC20CFD3}" File="Timer">
            gAIpLg==
        </Plugin>
    </Autostart>
    <Folder Name="Playstation 3 Remote Standby">
        <Macro Name="PS3 Hibernate Timer">
            <Event Name="PS3.Button.*" />
            <Action>
                Timer.TimerAction(u'ps3Hibernate', 0, 1, 60.0, u'ps3.hibernate', False, True, 1, u'00:00:00')
            </Action>
        </Macro>
        <Macro Name="ps3.hibernate">
            <Event Name="ps3.hibernate" />
            <Action>
                System.Execute(u'D:\\Installation Files\\Media Files\\HTPC\\Ps3RemoteSleep\\Ps3RemoteSleep.exe', u'', 0, False, 2, u'', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Eject) {Alt+F4} Close Program">
        <Macro Name="Emulate Keystrokes: {Alt+F4}">
            <Event Name="PS3.Button.Eject" />
            <Action>
                Window.SendKeys(u'{Alt+F4}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Audio)" />
    <Folder Name="(Angle) {/} Fullscreen Toggle">
        <Macro Name="Emulate Keystrokes: {\}" Expanded="True">
            <Event Name="PS3.Button.Angle" />
            <Action>
                Window.SendKeys(u'{OEM5}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Subtitle) {Alt+X} Subtitles On/Off">
        <Macro Name="Emulate Keystrokes: {Alt+X}">
            <Event Name="PS3.Button.Subtitle" />
            <Action>
                Window.SendKeys(u'{Alt+X}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Clear) {Taskmgr.exe} Task Manager">
        <Macro Name="Start Program: taskmgr.exe">
            <Event Name="PS3.Button.Clear" />
            <Action>
                System.Execute(u'C:\\Windows\\System32\\taskmgr.exe', u'', 0, False, 2, u'', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Time) Task Switcher">
        <Macro Name="Emulate Keystrokes: Rundll32.exe DwmApi #105">
            <Event Name="PS3.Button.Time" />
            <Action>
                System.Execute(u'C:\\Windows\\System32\\rundll32.exe', u'DwmApi #105', 0, False, 2, u'', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(1) {1} (Numpad 1">
        <Macro Name="Emulate Keystrokes: ">
            <Event Name="PS3.Button.Num1" />
            <Action>
                Window.SendKeys(u'{1}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(2) {2} Numpad 2">
        <Macro Name="Emulate Keystrokes: {2}">
            <Event Name="PS3.Button.Num2" />
            <Action>
                Window.SendKeys(u'{2}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(3) {3} Numpad 3">
        <Macro Name="Emulate Keystrokes: {3}">
            <Event Name="PS3.Button.Num3" />
            <Action>
                Window.SendKeys(u'{3}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(4) {4} Numpad 4">
        <Macro Name="Emulate Keystrokes: {4}">
            <Event Name="PS3.Button.Num4" />
            <Action>
                Window.SendKeys(u'{4}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(5) {5} Numpad 5">
        <Macro Name="Emulate Keystrokes: {5}">
            <Event Name="PS3.Button.Num5" />
            <Action>
                Window.SendKeys(u'{5}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(6) {6} Numpad 6">
        <Macro Name="Emulate Keystrokes: {6}">
            <Event Name="PS3.Button.Num6" />
            <Action>
                Window.SendKeys(u'{6}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(7) {7} Numpad 7">
        <Macro Name="Emulate Keystrokes: {7}">
            <Event Name="PS3.Button.Num7" />
            <Action>
                Window.SendKeys(u'{7}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(8) {8} Numpad 8">
        <Macro Name="Emulate Keystrokes: {8}">
            <Event Name="PS3.Button.Num8" />
            <Action>
                Window.SendKeys(u'{8}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(9) {9} Numpad 9">
        <Macro Name="Emulate Keystrokes: {9}">
            <Event Name="PS3.Button.Num9" />
            <Action>
                Window.SendKeys(u'{9}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(0) {0} Numpad 0">
        <Macro Name="Emulate Keystrokes: {Numpad0}">
            <Event Name="PS3.Button.Num0" />
            <Action>
                Window.SendKeys(u'{Numpad0}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Red) {Alt+H} Show/Hide Subtitles Potplayer">
        <Macro Name="Emulate Keystrokes: {Alt+H}">
            <Event Name="PS3.Button.Red" />
            <Action>
                Window.SendKeys(u'{Alt+H}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Green) {Alt+O} Open Subtitles">
        <Macro Name="Emulate Keystrokes: {Alt+o}">
            <Event Name="PS3.Button.Green" />
            <Action>
                Window.SendKeys(u'{Alt+o}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Yellow) {[} Resynch Subtitles">
        <Macro Name="Emulate Keystrokes: {[}">
            <Event Name="PS3.Button.Yellow" />
            <Action>
                Window.SendKeys(u'{[}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Blue)  {]} Resynch Subtitles">
        <Macro Name="Emulate Keystrokes: {]}">
            <Event Name="PS3.Button.Blue" />
            <Action>
                Window.SendKeys(u'{]}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Display) {O} Codec Info">
        <Macro Name="Emulate Keystrokes: {o}">
            <Event Name="PS3.Button.Display" />
            <Action>
                Window.SendKeys(u'{o}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Top Menu) {Tab} Video/Audio Codec Information">
        <Macro Name="Emulate Keystrokes: {Tab}">
            <Event Name="PS3.Button.TopMenu" />
            <Action>
                Window.SendKeys(u'{Tabulator}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Pop Up/Menu) )  {M} OSD Player Controls">
        <Macro Name="Emulate Keystrokes: {m}">
            <Event Name="PS3.Button.PopUpMenu" />
            <Action>
                Window.SendKeys(u'{m}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Return) {Alt+Enter} Fullscreen Stretch">
        <Macro Name="Emulate Keystrokes: {Alt+Enter}">
            <Event Name="PS3.Button.Return" />
            <Action>
                Window.SendKeys(u'{Alt+Return}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Triangle/Options) {C} Context Menu">
        <Macro Name="Emulate Keystrokes: {c}" Expanded="True">
            <Event Name="PS3.Button.Triangle" />
            <Action>
                Window.SendKeys(u'{c}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Square/View) {Z} Zoom">
        <Macro Name="Emulate Keystrokes: {z}">
            <Event Name="PS3.Button.Square" />
            <Action>
                Window.SendKeys(u'{z}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Circle/Back) {Backspace} (Backspace)">
        <Macro Name="Emulate Keystrokes: {Backspace}">
            <Event Name="PS3.Button.Circle" />
            <Action>
                Window.SendKeys(u'{Backspace}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Cross/X) {Ctrl+Alt+K} Run Kmplayer">
        <Macro Name="Emulate Keystrokes: {Ctrl+Alt+K}">
            <Event Name="PS3.Button.Cross" />
            <Action>
                Window.SendKeys(u'{Ctrl+Alt+K}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Up) {Up} Up">
        <Macro Name="Emulate Keystrokes: {Up}">
            <Event Name="PS3.Button.Up" />
            <Action>
                Window.SendKeys(u'{Up}', False)
            </Action>
            <Action>
                EventGhost.AutoRepeat(0.29999999999999999, 0.10000000000000001, 0.01, 2.0)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Down) {Down} Down">
        <Macro Name="Emulate Keystrokes: {Down}">
            <Event Name="PS3.Button.Down" />
            <Action>
                Window.SendKeys(u'{Down}', False)
            </Action>
            <Action>
                EventGhost.AutoRepeat(0.29999999999999999, 0.10000000000000001, 0.01, 2.0)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Left) {Left} Left">
        <Macro Name="Emulate Keystrokes: {Left}">
            <Event Name="PS3.Button.Left" />
            <Action>
                Window.SendKeys(u'{Left}', False)
            </Action>
            <Action>
                EventGhost.AutoRepeat(0.29999999999999999, 0.10000000000000001, 0.01, 2.0)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Right) {Right} Right">
        <Macro Name="Emulate Keystrokes: {Right}">
            <Event Name="PS3.Button.Right" />
            <Action>
                Window.SendKeys(u'{Right}', False)
            </Action>
            <Action>
                EventGhost.AutoRepeat(0.29999999999999999, 0.10000000000000001, 0.01, 2.0)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Enter) {Return} Enter">
        <Macro Name="Emulate Keystrokes: {Return}">
            <Event Name="PS3.Button.Enter" />
            <Action>
                Window.SendKeys(u'{Return}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Playstation Button) {Ctrl+Alt+X} Run XBMC">
        <Macro Name="Emulate Keystrokes: {Ctrl+Alt+X}">
            <Event Name="PS3.Button.PS" />
            <Action>
                Window.SendKeys(u'{Ctrl+Alt+X}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(L1) {Delete} Delete Item">
        <Macro Name="Emulate Keystrokes: {Delete}">
            <Event Name="PS3.Button.L1" />
            <Action>
                Window.SendKeys(u'{Del}', True)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(L2) {U} Move Up Queue">
        <Macro Name="Emulate Keystrokes: {u}">
            <Event Name="PS3.Button.L2" />
            <Action>
                Window.SendKeys(u'{u}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(L3) {D} Move Down Queue">
        <Macro Name="Emulate Keystrokes: {d}">
            <Event Name="PS3.Button.L3" />
            <Action>
                Window.SendKeys(u'{d}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(R1) {Q} Add Item To Playlist">
        <Macro Name="Emulate Keystrokes: {Q}">
            <Event Name="PS3.Button.R1" />
            <Action>
                Window.SendKeys(u'{Q}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(R2)" Expanded="True" />
    <Folder Name="(R3)" />
    <Folder Name="(Select) {Q} Add Item To Playlist">
        <Macro Name="Emulate Keystrokes: {Q}">
            <Event Name="PS3.Button.Select" />
            <Action>
                Window.SendKeys(u'{Q}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Start) {Space} Open Playlist">
        <Macro Name="Emulate Keystrokes: {Space}">
            <Event Name="PS3.Button.Start" />
            <Action>
                Window.SendKeys(u'{Space}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Scan &lt;&lt;) {R} Rewind">
        <Macro Name="Emulate Keystrokes: {r}">
            <Event Name="PS3.Button.ScanBack" />
            <Action>
                Window.SendKeys(u'{r}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Play) Play/Pause">
        <Macro Name="Emulate Keystrokes: {MediaPlayPause}">
            <Event Name="PS3.Button.Play" />
            <Action>
                Window.SendKeys(u'{MediaPlayPause}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Scan &gt;&gt;) {F} Fast Forward">
        <Macro Name="Emulate Keystrokes: {f}">
            <Event Name="PS3.Button.ScanFwd" />
            <Action>
                Window.SendKeys(u'{f}', True)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Prev |&lt;&lt;) Previous">
        <Macro Name="Emulate Keystrokes: {MediaPrevTrack}">
            <Event Name="PS3.Button.Prev" />
            <Action>
                Window.SendKeys(u'{MediaPrevTrack}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Stop) Stop">
        <Macro Name="Emulate Keystrokes: {MediaStop}">
            <Event Name="PS3.Button.Stop" />
            <Action>
                Window.SendKeys(u'{MediaStop}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Next &gt;&gt;|) Next">
        <Macro Name="Emulate Keystrokes: {MediaNextTrack}">
            <Event Name="PS3.Button.Next" />
            <Action>
                Window.SendKeys(u'{MediaNextTrack}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Slow/Step &lt;&lt;)" Expanded="True" />
    <Folder Name="(Pause) {Space} Pause">
        <Macro Name="Emulate Keystrokes: {MediaPlayPause}" Expanded="True">
            <Event Name="PS3.Button.Pause" />
            <Action>
                Window.SendKeys(u'{MediaPlayPause}', False)
            </Action>
        </Macro>
    </Folder>
    <Folder Name="(Slow/Step &gt;&gt;)" />
</EventGhost>