This function will return a collection of strings with the names of all of the infrared devices currently configured in the system.
None.
Return value: IR
Devices
Type: collection
Description: A collection of strings containing device names.
Sub Main(parm as object)
Dim
col As Collection = Nothing
Try
col
= hs.GetIRDevices()
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
Device", s)
End
If
Next
End Sub