Reply to thread

Message

<blockquote data-quote="Anonymous" data-source="post: 6350">Fond this code, havent tested it do I don't got my MCE remote yeat.[code]Imports System.Runtime.InteropServicesPublic Enum MCERemoteButtons&nbsp; &nbsp; Unknown&nbsp; &nbsp; '-- WM_KEYDOWN type buttons (easy)&nbsp; &nbsp; OK&nbsp; &nbsp; MoveUp&nbsp; &nbsp; MoveLeft&nbsp; &nbsp; MoveRight&nbsp; &nbsp; MoveDown&nbsp; &nbsp; Back&nbsp; &nbsp; Number1&nbsp; &nbsp; Number2&nbsp; &nbsp; Number3&nbsp; &nbsp; Number4&nbsp; &nbsp; Number5&nbsp; &nbsp; Number6&nbsp; &nbsp; Number7&nbsp; &nbsp; Number8&nbsp; &nbsp; Number9&nbsp; &nbsp; Number0&nbsp; &nbsp; Clear&nbsp; &nbsp; Enter&nbsp; &nbsp; '-- WM_APPCOMMAND type buttons&nbsp; &nbsp; Pause&nbsp; &nbsp; Play&nbsp; &nbsp; Record&nbsp; &nbsp; Replay&nbsp; &nbsp; Rewind&nbsp; &nbsp; Forward&nbsp; &nbsp; Skip&nbsp; &nbsp; ChannelDown&nbsp; &nbsp; ChannelUp&nbsp; &nbsp; [Stop]&nbsp; &nbsp; '-- WM_INPUT (HID) type buttons&nbsp; &nbsp; MoreInfo&nbsp; &nbsp; DVDAngle&nbsp; &nbsp; DVDAudio&nbsp; &nbsp; DVDMenu&nbsp; &nbsp; DVDSubtitle&nbsp; &nbsp; Guide&nbsp; &nbsp; Mute&nbsp; &nbsp; MyTV&nbsp; &nbsp; MyMusic&nbsp; &nbsp; MyPictures&nbsp; &nbsp; MyVideos&nbsp; &nbsp; RecordedTV&nbsp; &nbsp; OEM1&nbsp; &nbsp; OEM2&nbsp; &nbsp; LiveTV&nbsp; &nbsp; VolumeDown&nbsp; &nbsp; VolumeUpEnd EnumPublic Class MCERemote&nbsp; &nbsp; Inherits System.ComponentModel.Component#Region &quot; Windows Form Designer generated code &quot;&nbsp; &nbsp; Public Sub New(ByVal Container As System.ComponentModel.IContainer)&nbsp; &nbsp; &nbsp; &nbsp; MyClass.New()&nbsp; &nbsp; &nbsp; &nbsp; 'Required for Windows.Forms Class Composition Designer support&nbsp; &nbsp; &nbsp; &nbsp; Container.Add(Me)&nbsp; &nbsp; End Sub&nbsp; &nbsp; Public Sub New()&nbsp; &nbsp; &nbsp; &nbsp; MyBase.New()&nbsp; &nbsp; &nbsp; &nbsp; 'This call is required by the Component Designer.&nbsp; &nbsp; &nbsp; &nbsp; InitializeComponent()&nbsp; &nbsp; &nbsp; &nbsp; 'Add any initialization after the InitializeComponent() call&nbsp; &nbsp; End Sub&nbsp; &nbsp; 'Component overrides dispose to clean up the component list.&nbsp; &nbsp; Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)&nbsp; &nbsp; &nbsp; &nbsp; If disposing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Not (components Is Nothing) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; components.Dispose()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; MyBase.Dispose(disposing)&nbsp; &nbsp; End Sub&nbsp; &nbsp; 'Required by the Component Designer&nbsp; &nbsp; Private components As System.ComponentModel.IContainer&nbsp; &nbsp; 'NOTE: The following procedure is required by the Component Designer&nbsp; &nbsp; 'It can be modified using the Component Designer.&nbsp; &nbsp; 'Do not modify it using the code editor.&nbsp; &nbsp; &lt;System.Diagnostics.DebuggerStepThrough()&gt; Private Sub InitializeComponent()&nbsp; &nbsp; &nbsp; &nbsp; components = New System.ComponentModel.Container&nbsp; &nbsp; End Sub#End Region&nbsp; &nbsp; Private Const WM_KEYDOWN As Integer = &amp;H100&nbsp; &nbsp; Private Const WM_APPCOMMAND As Integer = &amp;H319&nbsp; &nbsp; Private Const WM_INPUT As Integer = &amp;HFF&nbsp; &nbsp; Private Const RID_INPUT As Integer = &amp;H10000003&nbsp; &nbsp; Private Const RIM_TYPEMOUSE As Integer = 0&nbsp; &nbsp; Private Const RIM_TYPEKEYBOARD As Integer = 1&nbsp; &nbsp; Private Const RIM_TYPEHID As Integer = 2&nbsp; &nbsp; Private _blnDebugMode As Boolean = True&nbsp; &nbsp; Private _button As MCERemoteButtons&nbsp; &nbsp; Private _intChar As Integer&nbsp; &nbsp; Public Event ButtonPressed(ByVal Button As MCERemoteButtons)#Region &quot;Win32 API Declarations &quot;&nbsp; &nbsp; 'BOOL RegisterRawInputDevices {&nbsp; &nbsp; '&nbsp; &nbsp; PCRAWINPUTDEVICE pRawInputDevices,&nbsp; &nbsp; '&nbsp; &nbsp; UINT uiNumDevices,&nbsp; &nbsp; '&nbsp; &nbsp; UINT cbSize&nbsp; &nbsp; ');&nbsp; &nbsp; &lt;DllImportAttribute(&quot;user32.dll&quot;)&gt; _&nbsp; &nbsp; Private Shared Function RegisterRawInputDevices _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (ByVal RIDs() As RAWINPUTDEVICE, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ByVal uiNumDevices As Integer, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ByVal cbSize As Integer) As Boolean&nbsp; &nbsp; End Function&nbsp; &nbsp; 'UINT GetRawInputData {&nbsp; &nbsp; '&nbsp; &nbsp; HRAWINPUT hRawInput,&nbsp; &nbsp; '&nbsp; &nbsp; UINT uiCommand,&nbsp; &nbsp; '&nbsp; &nbsp; LPVOID pData,&nbsp; &nbsp; '&nbsp; &nbsp; PUINT pcbSize,&nbsp; &nbsp; '&nbsp; &nbsp; UINT cbSizeHeader&nbsp; &nbsp; '};&nbsp; &nbsp; &lt;DllImportAttribute(&quot;user32.dll&quot;)&gt; _&nbsp; &nbsp; Private Shared Function GetRawInputData _&nbsp; &nbsp; &nbsp; &nbsp; (ByVal hRawInput As IntPtr, _&nbsp; &nbsp; &nbsp; &nbsp; ByVal uiCommand As Integer, _&nbsp; &nbsp; &nbsp; &nbsp; ByVal pData As IntPtr, _&nbsp; &nbsp; &nbsp; &nbsp; ByRef byRefpcbSize As Integer, _&nbsp; &nbsp; &nbsp; &nbsp; ByVal cbSizeHeader As Integer) As Integer&nbsp; &nbsp; End Function&nbsp; &nbsp; 'typedef struct tagRAWINPUTDEVICE {&nbsp; &nbsp; '&nbsp; &nbsp; USHORT usUsagePage;&nbsp; &nbsp; '&nbsp; &nbsp; USHORT usUsage;&nbsp; &nbsp; '&nbsp; &nbsp; DWORD dwFlags;&nbsp; &nbsp; '&nbsp; &nbsp; HWND hwndTarget;&nbsp; &nbsp; '} RAWINPUTDEVICE, *PRAWINPUTDEVICE, *LPRAWINPUTDEVICE;&nbsp; &nbsp; &lt;StructLayout(LayoutKind.Sequential)&gt; _&nbsp; &nbsp; Private Structure RAWINPUTDEVICE&nbsp; &nbsp; &nbsp; &nbsp; &lt;MarshalAs(UnmanagedType.U2)&gt; _&nbsp; &nbsp; &nbsp; &nbsp; Public usUsagePage As Short&nbsp; &nbsp; &nbsp; &nbsp; &lt;MarshalAs(UnmanagedType.U2)&gt; _&nbsp; &nbsp; &nbsp; &nbsp; Public usUsage As Short&nbsp; &nbsp; &nbsp; &nbsp; &lt;MarshalAs(UnmanagedType.U4)&gt; _&nbsp; &nbsp; &nbsp; &nbsp; Public dwFlags As Integer&nbsp; &nbsp; &nbsp; &nbsp; Public hwndTarget As IntPtr&nbsp; &nbsp; End Structure&nbsp; &nbsp; 'typedef struct tagRAWINPUT { &nbsp; &nbsp; '&nbsp; &nbsp; RAWINPUTHEADER&nbsp; &nbsp; header; &nbsp; &nbsp; '&nbsp; &nbsp; union {&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; RAWMOUSE&nbsp; &nbsp; mouse; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; RAWKEYBOARD keyboard; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; RAWHID&nbsp; &nbsp; &nbsp; hid; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; } data;&nbsp; &nbsp; '} RAWINPUT, *PRAWINPUT; *LPRAWINPUT;&nbsp; &nbsp; Private Structure RAWINPUT&nbsp; &nbsp; &nbsp; &nbsp; Dim header As RAWINPUTHEADER&nbsp; &nbsp; &nbsp; &nbsp; Dim hid As RAWHID&nbsp; &nbsp; End Structure&nbsp; &nbsp; 'typedef struct tagRAWINPUTHEADER {&nbsp; &nbsp; '&nbsp;&nbsp; DWORD dwType;&nbsp; &nbsp; '&nbsp;&nbsp; DWORD dwSize;&nbsp; &nbsp; '&nbsp;&nbsp; HANDLE hDevice;&nbsp; &nbsp; '&nbsp;&nbsp; WPARAM wParam;&nbsp; &nbsp; '} RAWINPUTHEADER, *PRAWINPUTHEADER;&nbsp; &nbsp; &lt;StructLayout(LayoutKind.Sequential)&gt; _&nbsp; &nbsp; Private Structure RAWINPUTHEADER&nbsp; &nbsp; &nbsp; &nbsp; &lt;MarshalAs(UnmanagedType.U4)&gt; _&nbsp; &nbsp; &nbsp; &nbsp; Dim dwType As Integer&nbsp; &nbsp; &nbsp; &nbsp; &lt;MarshalAs(UnmanagedType.U4)&gt; _&nbsp; &nbsp; &nbsp; &nbsp; Dim dwSize As Integer&nbsp; &nbsp; &nbsp; &nbsp; Dim hDevice As IntPtr&nbsp; &nbsp; &nbsp; &nbsp; &lt;MarshalAs(UnmanagedType.U4)&gt; _&nbsp; &nbsp; &nbsp; &nbsp; Dim wParam As Integer&nbsp; &nbsp; End Structure&nbsp; &nbsp; 'typedef struct tagRAWHID {&nbsp; &nbsp; '&nbsp; &nbsp; DWORD dwSizeHid;&nbsp; &nbsp; '&nbsp; &nbsp; DWORD dwCount;&nbsp; &nbsp; '&nbsp; &nbsp; BYTE bRawData;&nbsp; &nbsp; '} RAWHID, **LPRAWHID;&nbsp; &nbsp; Private Structure RAWHID&nbsp; &nbsp; &nbsp; &nbsp; Dim dwSizeHid As Integer&nbsp; &nbsp; &nbsp; &nbsp; Dim dwCount As Integer&nbsp; &nbsp; &nbsp; &nbsp; ' Followed by bRawData As Byte() (variable size)&nbsp; &nbsp; End Structure#End Region#Region &quot;Button Lookups&quot;&nbsp; &nbsp; Private Function LookupKey(ByVal intKeyCode As Integer) As MCERemoteButtons&nbsp; &nbsp; &nbsp; &nbsp; Select Case intKeyCode&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 9&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Unknown&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 13&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.OK&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 27&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Clear&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 37&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.MoveLeft&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 38&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.MoveUp&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 39&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.MoveRight&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 40&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.MoveDown&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 48&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Number0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 49&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Number1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 50&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Number2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 51&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Number3&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 52&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Number4&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 53&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Number5&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 54&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Number6&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 55&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Number7&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 56&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Number8&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 57&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Number9&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 58&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Number0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.WriteLine(&quot;unknown keycode = &quot; + intKeyCode.ToString)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Unknown&nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; End Function&nbsp; &nbsp; Private Function LookupAppCommand(ByVal intAppCode As Integer) As MCERemoteButtons&nbsp; &nbsp; &nbsp; &nbsp; Select Case intAppCode&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 65536&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Back&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 720896&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Skip&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 786432&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Replay&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 851968&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.[Stop]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 271450112&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Play&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 271515648&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Pause&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 271581184&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Record&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 271646720&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Forward&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 271712256&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Rewind&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 271777792&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.ChannelUp&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 271843328&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.ChannelDown&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Debug.WriteLine(&quot;unknown appcommand &quot; + intAppCode.ToString)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Unknown&nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; End Function&nbsp; &nbsp; Private Function LookupRaw(ByVal intRawByte1 As Byte, ByVal intRawByte2 As Byte) As MCERemoteButtons&nbsp; &nbsp; &nbsp; &nbsp; Select Case intRawByte2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 9&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.MoreInfo&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 36&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If intRawByte1 = 1 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.DVDMenu&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Unknown&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 37&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.LiveTV&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 70&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.MyTV&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 71&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.MyMusic&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 72&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.RecordedTV&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 73&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.MyPictures&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 74&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.MyVideos&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 75&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.DVDAngle&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 76&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.DVDAudio&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 77&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.DVDSubtitle&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 128&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.OEM1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 129&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.OEM2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 141&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Guide&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 226&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Mute&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 233&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.VolumeUp&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 234&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.VolumeDown&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'If intRawByte2 &gt; 0 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Debug.WriteLine(&quot;Unknown rawcode &quot; + intRawByte1.ToString + &quot;:&quot; + intRawByte2.ToString)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return MCERemoteButtons.Unknown&nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; End Function#End Region&nbsp; &nbsp; Public Sub Initialize(ByVal hWnd As IntPtr)&nbsp; &nbsp; &nbsp; &nbsp; Dim objRID(1) As RAWINPUTDEVICE&nbsp; &nbsp; &nbsp; &nbsp; '-- vendor-defined&nbsp; &nbsp; &nbsp; &nbsp; objRID(0).usUsagePage = &amp;HFFBCS&nbsp; &nbsp; &nbsp; &nbsp; objRID(0).usUsage = &amp;H88&nbsp; &nbsp; &nbsp; &nbsp; objRID(0).dwFlags = 0&nbsp; &nbsp; &nbsp; &nbsp; objRID(0).hwndTarget = hWnd&nbsp; &nbsp; &nbsp; &nbsp; '-- consumer controls&nbsp; &nbsp; &nbsp; &nbsp; objRID(1).usUsagePage = &amp;HC&nbsp; &nbsp; &nbsp; &nbsp; objRID(1).usUsage = &amp;H1&nbsp; &nbsp; &nbsp; &nbsp; objRID(1).dwFlags = 0&nbsp; &nbsp; &nbsp; &nbsp; objRID(1).hwndTarget = hWnd&nbsp; &nbsp; &nbsp; &nbsp; If RegisterRawInputDevices(objRID, objRID.Length, Marshal.SizeOf(objRID(0))) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.WriteLine(&quot;raw input devices registered OK&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.WriteLine(&quot;Error registering raw input devices!&quot;)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub&nbsp; &nbsp; Public Function WndProcHandler(ByRef m As System.Windows.Forms.Message) As Boolean&nbsp; &nbsp; &nbsp; &nbsp; Select Case m.Msg&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case WM_KEYDOWN&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _button = LookupKey(m.WParam.ToInt32)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If _button &lt;&gt; MCERemoteButtons.Unknown Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent ButtonPressed(_button)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If _blnDebugMode Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.WriteLine(&quot;code &quot; + m.WParam.ToString + &quot; = key &quot; + _button.ToString)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case WM_APPCOMMAND&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _button = LookupAppCommand(m.LParam.ToInt32)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If _button &lt;&gt; MCERemoteButtons.Unknown Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent ButtonPressed(_button)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If _blnDebugMode Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.WriteLine(&quot;code &quot; + m.LParam.ToString + &quot; = app &quot; + _button.ToString)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case WM_INPUT&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim pcbSize As Integer&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '-- get the size of the data returned&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GetRawInputData(m.LParam, RID_INPUT, IntPtr.Zero, pcbSize, Marshal.SizeOf(GetType(RAWINPUTHEADER)))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim buffer As IntPtr&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '-- copy the data to a buffer&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; buffer = Marshal.AllocHGlobal(pcbSize)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GetRawInputData(m.LParam, RID_INPUT, buffer, pcbSize, Marshal.SizeOf(GetType(RAWINPUTHEADER)))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '-- convert the buffer to header data structure&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim raw As RAWINPUT&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; raw = CType(Marshal.PtrToStructure(buffer, GetType(RAWINPUT)), RAWINPUT)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If raw.header.dwType &lt;&gt; RIM_TYPEHID Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '-- get raw data to array of bytes&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim bRawData(raw.hid.dwSizeHid - 1) As Byte&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim pRawData As Integer&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; pRawData = buffer.ToInt32() + Marshal.SizeOf(GetType(RAWINPUT))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Marshal.Copy(New IntPtr(pRawData), bRawData, 0, raw.hid.dwSizeHid)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '-- look up button code from byte array&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _button = LookupRaw(bRawData(0), bRawData(1))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If _button &lt;&gt; MCERemoteButtons.Unknown Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent ButtonPressed(_button)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If _blnDebugMode Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.WriteLine(&quot;code &quot; + bRawData(0).ToString + &quot;:&quot; + bRawData(1).ToString + &quot; = &quot; + _button.ToString)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Finally&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Not buffer.Equals(IntPtr.Zero) Then Marshal.FreeHGlobal(buffer)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Try&nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; &nbsp; &nbsp; Return False&nbsp; &nbsp; End FunctionEnd Class[/code]</blockquote>

[QUOTE="Anonymous, post: 6350"] Fond this code, havent tested it do I don't got my MCE remote yeat. [code] Imports System.Runtime.InteropServices Public Enum MCERemoteButtons Unknown '-- WM_KEYDOWN type buttons (easy) OK MoveUp MoveLeft MoveRight MoveDown Back Number1 Number2 Number3 Number4 Number5 Number6 Number7 Number8 Number9 Number0 Clear Enter '-- WM_APPCOMMAND type buttons Pause Play Record Replay Rewind Forward Skip ChannelDown ChannelUp [Stop] '-- WM_INPUT (HID) type buttons MoreInfo DVDAngle DVDAudio DVDMenu DVDSubtitle Guide Mute MyTV MyMusic MyPictures MyVideos RecordedTV OEM1 OEM2 LiveTV VolumeDown VolumeUp End Enum Public Class MCERemote Inherits System.ComponentModel.Component #Region " Windows Form Designer generated code " Public Sub New(ByVal Container As System.ComponentModel.IContainer) MyClass.New() 'Required for Windows.Forms Class Composition Designer support Container.Add(Me) End Sub Public Sub New() MyBase.New() 'This call is required by the Component Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Component overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub 'Required by the Component Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Component Designer 'It can be modified using the Component Designer. 'Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() components = New System.ComponentModel.Container End Sub #End Region Private Const WM_KEYDOWN As Integer = &H100 Private Const WM_APPCOMMAND As Integer = &H319 Private Const WM_INPUT As Integer = &HFF Private Const RID_INPUT As Integer = &H10000003 Private Const RIM_TYPEMOUSE As Integer = 0 Private Const RIM_TYPEKEYBOARD As Integer = 1 Private Const RIM_TYPEHID As Integer = 2 Private _blnDebugMode As Boolean = True Private _button As MCERemoteButtons Private _intChar As Integer Public Event ButtonPressed(ByVal Button As MCERemoteButtons) #Region "Win32 API Declarations " 'BOOL RegisterRawInputDevices { ' PCRAWINPUTDEVICE pRawInputDevices, ' UINT uiNumDevices, ' UINT cbSize '); <DllImportAttribute("user32.dll")> _ Private Shared Function RegisterRawInputDevices _ (ByVal RIDs() As RAWINPUTDEVICE, _ ByVal uiNumDevices As Integer, _ ByVal cbSize As Integer) As Boolean End Function 'UINT GetRawInputData { ' HRAWINPUT hRawInput, ' UINT uiCommand, ' LPVOID pData, ' PUINT pcbSize, ' UINT cbSizeHeader '}; <DllImportAttribute("user32.dll")> _ Private Shared Function GetRawInputData _ (ByVal hRawInput As IntPtr, _ ByVal uiCommand As Integer, _ ByVal pData As IntPtr, _ ByRef byRefpcbSize As Integer, _ ByVal cbSizeHeader As Integer) As Integer End Function 'typedef struct tagRAWINPUTDEVICE { ' USHORT usUsagePage; ' USHORT usUsage; ' DWORD dwFlags; ' HWND hwndTarget; '} RAWINPUTDEVICE, *PRAWINPUTDEVICE, *LPRAWINPUTDEVICE; <StructLayout(LayoutKind.Sequential)> _ Private Structure RAWINPUTDEVICE <MarshalAs(UnmanagedType.U2)> _ Public usUsagePage As Short <MarshalAs(UnmanagedType.U2)> _ Public usUsage As Short <MarshalAs(UnmanagedType.U4)> _ Public dwFlags As Integer Public hwndTarget As IntPtr End Structure 'typedef struct tagRAWINPUT { ' RAWINPUTHEADER header; ' union { ' RAWMOUSE mouse; ' RAWKEYBOARD keyboard; ' RAWHID hid; ' } data; '} RAWINPUT, *PRAWINPUT; *LPRAWINPUT; Private Structure RAWINPUT Dim header As RAWINPUTHEADER Dim hid As RAWHID End Structure 'typedef struct tagRAWINPUTHEADER { ' DWORD dwType; ' DWORD dwSize; ' HANDLE hDevice; ' WPARAM wParam; '} RAWINPUTHEADER, *PRAWINPUTHEADER; <StructLayout(LayoutKind.Sequential)> _ Private Structure RAWINPUTHEADER <MarshalAs(UnmanagedType.U4)> _ Dim dwType As Integer <MarshalAs(UnmanagedType.U4)> _ Dim dwSize As Integer Dim hDevice As IntPtr <MarshalAs(UnmanagedType.U4)> _ Dim wParam As Integer End Structure 'typedef struct tagRAWHID { ' DWORD dwSizeHid; ' DWORD dwCount; ' BYTE bRawData; '} RAWHID, **LPRAWHID; Private Structure RAWHID Dim dwSizeHid As Integer Dim dwCount As Integer ' Followed by bRawData As Byte() (variable size) End Structure #End Region #Region "Button Lookups" Private Function LookupKey(ByVal intKeyCode As Integer) As MCERemoteButtons Select Case intKeyCode Case 9 Return MCERemoteButtons.Unknown Case 13 Return MCERemoteButtons.OK Case 27 Return MCERemoteButtons.Clear Case 37 Return MCERemoteButtons.MoveLeft Case 38 Return MCERemoteButtons.MoveUp Case 39 Return MCERemoteButtons.MoveRight Case 40 Return MCERemoteButtons.MoveDown Case 48 Return MCERemoteButtons.Number0 Case 49 Return MCERemoteButtons.Number1 Case 50 Return MCERemoteButtons.Number2 Case 51 Return MCERemoteButtons.Number3 Case 52 Return MCERemoteButtons.Number4 Case 53 Return MCERemoteButtons.Number5 Case 54 Return MCERemoteButtons.Number6 Case 55 Return MCERemoteButtons.Number7 Case 56 Return MCERemoteButtons.Number8 Case 57 Return MCERemoteButtons.Number9 Case 58 Return MCERemoteButtons.Number0 Case Else Debug.WriteLine("unknown keycode = " + intKeyCode.ToString) Return MCERemoteButtons.Unknown End Select End Function Private Function LookupAppCommand(ByVal intAppCode As Integer) As MCERemoteButtons Select Case intAppCode Case 65536 Return MCERemoteButtons.Back Case 720896 Return MCERemoteButtons.Skip Case 786432 Return MCERemoteButtons.Replay Case 851968 Return MCERemoteButtons.[Stop] Case 271450112 Return MCERemoteButtons.Play Case 271515648 Return MCERemoteButtons.Pause Case 271581184 Return MCERemoteButtons.Record Case 271646720 Return MCERemoteButtons.Forward Case 271712256 Return MCERemoteButtons.Rewind Case 271777792 Return MCERemoteButtons.ChannelUp Case 271843328 Return MCERemoteButtons.ChannelDown Case Else 'Debug.WriteLine("unknown appcommand " + intAppCode.ToString) Return MCERemoteButtons.Unknown End Select End Function Private Function LookupRaw(ByVal intRawByte1 As Byte, ByVal intRawByte2 As Byte) As MCERemoteButtons Select Case intRawByte2 Case 9 Return MCERemoteButtons.MoreInfo Case 36 If intRawByte1 = 1 Then Return MCERemoteButtons.DVDMenu Else Return MCERemoteButtons.Unknown End If Case 37 Return MCERemoteButtons.LiveTV Case 70 Return MCERemoteButtons.MyTV Case 71 Return MCERemoteButtons.MyMusic Case 72 Return MCERemoteButtons.RecordedTV Case 73 Return MCERemoteButtons.MyPictures Case 74 Return MCERemoteButtons.MyVideos Case 75 Return MCERemoteButtons.DVDAngle Case 76 Return MCERemoteButtons.DVDAudio Case 77 Return MCERemoteButtons.DVDSubtitle Case 128 Return MCERemoteButtons.OEM1 Case 129 Return MCERemoteButtons.OEM2 Case 141 Return MCERemoteButtons.Guide Case 226 Return MCERemoteButtons.Mute Case 233 Return MCERemoteButtons.VolumeUp Case 234 Return MCERemoteButtons.VolumeDown Case Else 'If intRawByte2 > 0 Then 'Debug.WriteLine("Unknown rawcode " + intRawByte1.ToString + ":" + intRawByte2.ToString) 'End If Return MCERemoteButtons.Unknown End Select End Function #End Region Public Sub Initialize(ByVal hWnd As IntPtr) Dim objRID(1) As RAWINPUTDEVICE '-- vendor-defined objRID(0).usUsagePage = &HFFBCS objRID(0).usUsage = &H88 objRID(0).dwFlags = 0 objRID(0).hwndTarget = hWnd '-- consumer controls objRID(1).usUsagePage = &HC objRID(1).usUsage = &H1 objRID(1).dwFlags = 0 objRID(1).hwndTarget = hWnd If RegisterRawInputDevices(objRID, objRID.Length, Marshal.SizeOf(objRID(0))) Then Debug.WriteLine("raw input devices registered OK") Else Debug.WriteLine("Error registering raw input devices!") End If End Sub Public Function WndProcHandler(ByRef m As System.Windows.Forms.Message) As Boolean Select Case m.Msg Case WM_KEYDOWN _button = LookupKey(m.WParam.ToInt32) If _button <> MCERemoteButtons.Unknown Then RaiseEvent ButtonPressed(_button) Return True If _blnDebugMode Then Debug.WriteLine("code " + m.WParam.ToString + " = key " + _button.ToString) End If End If Case WM_APPCOMMAND _button = LookupAppCommand(m.LParam.ToInt32) If _button <> MCERemoteButtons.Unknown Then RaiseEvent ButtonPressed(_button) Return True If _blnDebugMode Then Debug.WriteLine("code " + m.LParam.ToString + " = app " + _button.ToString) End If End If Case WM_INPUT Dim pcbSize As Integer '-- get the size of the data returned GetRawInputData(m.LParam, RID_INPUT, IntPtr.Zero, pcbSize, Marshal.SizeOf(GetType(RAWINPUTHEADER))) Dim buffer As IntPtr Try '-- copy the data to a buffer buffer = Marshal.AllocHGlobal(pcbSize) GetRawInputData(m.LParam, RID_INPUT, buffer, pcbSize, Marshal.SizeOf(GetType(RAWINPUTHEADER))) '-- convert the buffer to header data structure Dim raw As RAWINPUT raw = CType(Marshal.PtrToStructure(buffer, GetType(RAWINPUT)), RAWINPUT) If raw.header.dwType <> RIM_TYPEHID Then Exit Try End If '-- get raw data to array of bytes Dim bRawData(raw.hid.dwSizeHid - 1) As Byte Dim pRawData As Integer pRawData = buffer.ToInt32() + Marshal.SizeOf(GetType(RAWINPUT)) Marshal.Copy(New IntPtr(pRawData), bRawData, 0, raw.hid.dwSizeHid) '-- look up button code from byte array _button = LookupRaw(bRawData(0), bRawData(1)) If _button <> MCERemoteButtons.Unknown Then RaiseEvent ButtonPressed(_button) Return True If _blnDebugMode Then Debug.WriteLine("code " + bRawData(0).ToString + ":" + bRawData(1).ToString + " = " + _button.ToString) End If End If Finally If Not buffer.Equals(IntPtr.Zero) Then Marshal.FreeHGlobal(buffer) End Try End Select Return False End Function End Class [/code] [/QUOTE]

Verification