DesktopX and Homeseer

Awhile back there was some interested on being able to extend HS onto the desktop using DesktopX. I have begun a preliminary DX script that is working for me on a remote PC running DX to interface with HS on my main machine:
Sub Object_OnScriptEnter
End Sub
Sub Object_OnStateChange(state)
If state = “Mouse down” Then
Dim hs
Set hs = CreateObject(“Homeseer.Application”,”pctv”)
If hs.ison (“a2”) Then hs.execx10 “a2″,”off”,0 Else hs.execx10 “a2″,”on”,0
Set hs = nothing
End If
End Sub
Sub Object_OnScriptExit
End Sub
All it does right now is to turn a light on or off based on the current status. Still have a few things to add once I figure them out, such as –
Getting the status of a device from HS and storing it.
Storing the device code so that it does not have to be hard-coded into the script. Easier to clone the object and have them for several different ones.
Setting the graphic based upon device status so that it matches the device state.
If anyone has any suggestions, or feedback, I would be glad to hear it.


Comments |0|

  • Erika was a precious little girl and Renee was the most loving mother. U are spot on he is a total dirtbag. My heart is broken Erika was Renee’s entire life!! How could she have ever known that the father, who should have helped take care of Erika, could do such a thing. When i came home from work after finding out all I could do was hold my 18mo. old son and sob!! Hopefully he’ll get what’s coming to him b4 the trail so her family won’t have to relive this in court for who knows how long!!!!

Category: Technology