GetIRKeys

Purpose

This function will return a collection of strings with the names of all of the infrared device keys (signals) currently configured in the system.

Parameters

None.

Returns

Return value: IR Keys
Type: collection
Description: A collection of strings containing infrared key names.

Example

Sub Main(parm as object)

 Dim col As Collection = Nothing
 Try
    col = hs.GetIRKeys()
  Catch Ex As Exception
    col = Nothing
 End Try

   If col is Nothing Then Exit Sub

   Dim s as String = ""
  For Each s in col
     If Not s is Nothing Then
         hs.WriteLog("IR Key", s)
     End If
 Next

End Sub

Sample Output:

10/7/2007 11:46:40 AM   IR Key           Denon_Rcvr,Power_Off(208)
10/7/2007 11:46:40 AM   IR Key           Denon_Rcvr,Power_On(207)
10/7/2007 11:46:40 AM   IR Key           Denon_DVD,Power_On(206)
10/7/2007 11:46:40 AM   IR Key           Comcast,On_Demand(205)
10/7/2007 11:46:40 AM   IR Key           Optoma,Enter(204)
10/7/2007 11:46:40 AM   IR Key           Optoma,Button_Right(203)
10/7/2007 11:46:40 AM   IR Key           Optoma,Button_Left(202)
10/7/2007 11:46:40 AM   IR Key           Optoma,Button_Down(201)
10/7/2007 11:46:40 AM   IR Key           Optoma,Button_Up(200)
10/7/2007 11:46:40 AM   IR Key           Optoma,Input-Composite(199)
10/7/2007 11:46:40 AM   IR Key           Optoma,Input-RCA(198)
10/7/2007 11:46:40 AM   IR Key           P7,A985_5ch/7ch(197)
10/7/2007 11:46:40 AM   IR Key           P7,A985_Stereo(196)
10/7/2007 11:46:40 AM   IR Key           P7,A985_Direct(195)