I'm trying to create a Default.aspx homepage, and I'd like to be able to debug it from VS2005.
I've spent most of the day reading through the forums, but have not been successful getting a valid connection to homeseer.
Hopefully someone else has been through this, and can see where I'm going wrong...
When I run the code below, I get the following error:
Error in UnRegisterChannel: The channel 'gtcp' is not registered with remoting services
Here is the code:
Imports HomeSeer:
Partial Class _Default
Inherits System.Web.UI.Page
Public hsinterface As HomeSeer2.application
Public hs As Scheduler.hsapplication
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If hs Is Nothing Then
'hsinterface = New HomeSeer2.application
hsinterface = CreateObject("HomeSeer2.Application")
hsinterface.SetHost("localhost:81")
Dim rval As String = hsinterface.Connect("default", "default")
If rval = "" Then
hs = hsinterface.GetHSRef
End If
hsinterface.Disconnect()
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If hs.ison("A2") Then
hs.ExecX10("A2", "off", 0)
End If
End Sub
End Class
I've spent most of the day reading through the forums, but have not been successful getting a valid connection to homeseer.
Hopefully someone else has been through this, and can see where I'm going wrong...
When I run the code below, I get the following error:
Error in UnRegisterChannel: The channel 'gtcp' is not registered with remoting services
Here is the code:
Imports HomeSeer:
Partial Class _Default
Inherits System.Web.UI.Page
Public hsinterface As HomeSeer2.application
Public hs As Scheduler.hsapplication
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If hs Is Nothing Then
'hsinterface = New HomeSeer2.application
hsinterface = CreateObject("HomeSeer2.Application")
hsinterface.SetHost("localhost:81")
Dim rval As String = hsinterface.Connect("default", "default")
If rval = "" Then
hs = hsinterface.GetHSRef
End If
hsinterface.Disconnect()
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If hs.ison("A2") Then
hs.ExecX10("A2", "off", 0)
End If
End Sub
End Class
Comment