Jon
Originally posted by JeffryD
View Post
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.
Function RawInsteonNotification(ByRef InsteonData as Data) as Boolean ' process data, make changes, return True or False RawInsteonNotification = True End Function
Function RawInsteonNotification(ByRef InsteonData as Data) as Boolean ' process data, make changes, return True or False RawInsteonNotification = True End Function
Public Sub EZIOOperateRelay(parms as object) Dim iDevice as Integer Try If g_bEZIO_Enabled Then iDevice = parms If iDevice >= 1 AND iDevice <= 2 Then hs.plugin("Insteon").ExtDev_TransmitToExternalDevice(g_szEZIO_DevName,&H7,&H45,iDevice - 1) Else hs.WriteLog(g_szScriptname,"EZIOOperateRelay: Was expecting 1 or 2 as parameter") End If End If Catch ex As Exception hs.WriteLog(g_szScriptName,"Error in EZIOOperateRelay: " & ex.ToString) End Try End Sub
6/24/2007 8:49:13 AM ~!~Startup~!~Starting scheduler 6/24/2007 8:49:13 AM ~!~Startup~!~Start up complete. 6/24/2007 8:49:13 AM ~!~Insteon~!~Requesting external device support registration... 6/24/2007 8:49:25 AM ~!~Insteon~!~External device name EZSnsRF1 (Address:08.9E.01) has registered with callback to Insteon_ExtDevSupport.vb using method EZSnsRFRcv as external device #1 6/24/2007 8:49:25 AM ~!~Insteon~!~Calling DM.AddRecord for 08.9E.01 1 True 6/24/2007 8:49:25 AM ~!~Insteon~!~Registration complete.
Const EZSnsRFAddress As String = "08.9E.01" ' The Insteon address of the EZSnsRF controller
Const EnableEZSnsRF As Boolean = True
Leave a comment: