In HS2, I would do something like this:
Function DoDevice(zUnit,zValue,zValue2,zValue3)
Dim hs
Set hs=CreateObject("HomeSeer.application")
If hs is Nothing Then
Msgbox "Error: Homeseer did not initiaize!"
DoDevice = False
Else
hs.ExecX10 zUnit,zValue,zValue2,zValue3
Set hs = Nothing
DoDevice = True
End If
End Function
Note the CreateObject. What is the name for HS3?? Note that for the time being, I'm running both HS2 and HS3 on the same box.
Thanks!
Tahl
Function DoDevice(zUnit,zValue,zValue2,zValue3)
Dim hs
Set hs=CreateObject("HomeSeer.application")
If hs is Nothing Then
Msgbox "Error: Homeseer did not initiaize!"
DoDevice = False
Else
hs.ExecX10 zUnit,zValue,zValue2,zValue3
Set hs = Nothing
DoDevice = True
End If
End Function
Note the CreateObject. What is the name for HS3?? Note that for the time being, I'm running both HS2 and HS3 on the same box.
Thanks!
Tahl
Comment