Dit werk goed maar per device heb ik twee events.
Het kan simpeler met 1 event + wat scripting. Script krijg ik nog niet helemaal goed..
Dit werkt
Als Optie geef ik dan op:
("Main","S3")
Code: Select all
Public Sub Main(ByVal Parms As String)
Dim i As Integer
i = hs.DeviceStatus("[25")
Select Case i
Case 2
'' Device ON,
hs.ExecX10(Parms, "On")
Case 3
'' Device OFF
hs.ExecX10(Parms, "Off")
End Select
End Sub
<b>Optimalisatie:</b>
Een tweede optie die de [25 kan vervangen
kan nog beter
Event wordt getriggerd via [25
Deze zou dan automatisch als tweede optie meegegeven kunnen worden.
any tips?