Sub Main(ByVal Parms as String)
Dim Code As String = "H4" ' Device Code
Dim Cmd As String = "Extended" ' X10 Command
Dim DimVal As String = "" ' For standard dims, in % dim (0-100)
Dim ExtCmd As String = "31" ' Extended X10 Command byte, as a hex string ("00" - "FF"), both upper and lower case are accepted.
Dim ExtData As String = "00" ' Extended X10 Data byte, as a hex string ("00" - "FF"), both upper and lower case are accepted.
Dim sRet As String
' Create an object that references the X10 plugin
Dim CM15aPlugin as HomeSeerAPI.PluginAccess = New HomeSeerAPI.PluginAccess(hs, "CM15A","")
' Call the ExecX10() function within the plugin
Sret = CM15aPlugin.PluginFunction("ExecX10",{Code,Cmd,DimVal,ExtCmd ,ExtData})
End Sub
Dim Code As String = "H4" ' Device Code
Dim Cmd As String = "Extended" ' X10 Command
Dim DimVal As String = "" ' For standard dims, in % dim (0-100)
Dim ExtCmd As String = "31" ' Extended X10 Command byte, as a hex string ("00" - "FF"), both upper and lower case are accepted.
Dim ExtData As String = "00" ' Extended X10 Data byte, as a hex string ("00" - "FF"), both upper and lower case are accepted.
Dim sRet As String
' Create an object that references the X10 plugin
Dim CM15aPlugin as HomeSeerAPI.PluginAccess = New HomeSeerAPI.PluginAccess(hs, "CM15A","")
' Call the ExecX10() function within the plugin
Sret = CM15aPlugin.PluginFunction("ExecX10",{Code,Cmd,DimVal,ExtCmd ,ExtData})
End Sub
Comment