I can not find the thread how to do to get homeseer suggested commands in Visual Studio when writing plugin like Tenscripting editor has.
/Thanks
/Thanks
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
Imports HomeSeer2 Public hsinterface As HomeSeer2.application Public hs As Scheduler.hsapplication Sub Main() '========== 'Connecting '========== Try hsinterface = New HomeSeer2.application 'You might need to change these values hsinterface.SetHost("localhost") Dim rval As String = hsinterface.Connect("default", "default") If rval <> "" Then MsgBox("Unable to connect to HomeSeer: " & rval) Exit Sub Else 'We are connected End If hs = hsinterface.GetHSRef Catch ex As Exception MsgBox(ex.Message) End Try '================================= 'Now we can start programming! :-) '================================= If hs.IsOn("A7") Then hs.ExecX10("A7", "Off") Else hs.ExecX10("A7", "On") End If End Sub
Imports HomeSeer2 Public hsinterface As HomeSeer2.application Public hs As Scheduler.hsapplication Sub Main() '========== 'Connecting '========== Try hsinterface = New HomeSeer2.application 'You might need to change these values hsinterface.SetHost("localhost") Dim rval As String = hsinterface.Connect("default", "default") If rval <> "" Then MsgBox("Unable to connect to HomeSeer: " & rval) Exit Sub Else 'We are connected End If hs = hsinterface.GetHSRef Catch ex As Exception MsgBox(ex.Message) End Try '================================= 'Now we can start programming! :-) '================================= If hs.IsOn("A7") Then hs.ExecX10("A7", "Off") Else hs.ExecX10("A7", "On") End If End Sub
Comment