Vinnerliste

GrandbeingMX0404.vb Script for å styre en Grandbeing MX0404 HDMI matrise. Lager en root med tilhørende child-devicer for hver utgang hvor man kan trykke på de forskjellige inngangene. Alt i et script, men dette blir nok en plugin på sikt (der er det lettere å få til en autorefresh, og sånt). '© Moskus 2014 Dim Scriptname As String = "GrandbeingMX0404.vb" Dim hdmi_outputs() As String = {"None", "TV", "SageTV", "Xbox", "Extra"} Dim ip_address As String = "192.168.0.39" Public Sub Main(parm As Object) End Sub Public Sub Setup(parm As Object) 'Setting up devices 'Creating master device Dim dt As New HomeSeerAPI.DeviceTypeInfo Dim devref As Integer = hs.NewDeviceRef("Root") Dim dv As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(devref) Try dv.Location(hs) = "HDMI matrix" dv.Location2(hs) = "Media" dv.Device_Type_String(hs) = "HDMI root" dv.DeviceType_Set(hs) = New HomeSeerAPI.DeviceTypeInfo dv.Status_Support(hs) = True dv.Can_Dim(hs) = False hs.SaveEventsDevices() dv.MISC_Set(hs, HomeSeerAPI.Enums.dvMISC.SHOW_VALUES) dv.MISC_Clear(hs, HomeSeerAPI.Enums.dvMISC.STATUS_ONLY) 'Adding a "Refresh" button to the root device hs.DeviceScriptButton_AddButton(devref, "Refresh", 0, Scriptname, "ButtonPress", "Refresh", 1, 1, 1) hs.SaveEventsDevices() Dim SVpair As New HomeSeerAPI.VSPair(HomeSeerAPI.ePairStatusControl.Status) SVpair.PairType = HomeSeerAPI.VSVGPairType.SingleValue SVpair.Value = 0 SVpair.Status = "HDMI matrix" hs.DeviceVSP_AddPair(devref, SVpair) Dim VGpair As New HomeSeerAPI.VGPair VGpair.PairType = HomeSeerAPI.VSVGPairType.SingleValue VGpair.Set_Value = 0 VGpair.Graphic = "images/Moskus/icon_hdmi.png" hs.DeviceVGP_AddPair(devref, VGpair) hs.WriteLog("HDMI matrix", "Root device for HDMI matrix created") Catch ex As Exception hs.WriteLog("HDMI matrix", "Error creating root device: " & ex.Message) End Try 'Creating child devices dv.Relationship(hs) = HomeSeerAPI.Enums.eRelationship.Parent_Root For i As Integer = 1 To 4 Dim childref As Integer = CreateOutputDevice(i, devref) If childref > 0 Then dv.AssociatedDevice_Add(hs, childref) Next End Sub Public Function CreateOutputDevice(ByVal output As Integer, masterdevice As Integer) As Integer 'Creating device Dim dt As New HomeSeerAPI.DeviceTypeInfo Dim devref As Integer = hs.NewDeviceRef("Output " & output) Dim dv As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(devref) Try dv.Location(hs) = "HDMI matrix" dv.Location2(hs) = "Media" dv.Device_Type_String(hs) = "HDMI out " & output dv.DeviceType_Set(hs) = New HomeSeerAPI.DeviceTypeInfo hs.SaveEventsDevices() dv.Status_Support(hs) = True dv.Can_Dim(hs) = False dv.MISC_Set(hs, HomeSeerAPI.Enums.dvMISC.SHOW_VALUES) dv.MISC_Clear(hs, HomeSeerAPI.Enums.dvMISC.STATUS_ONLY) dv.Relationship(hs) = HomeSeerAPI.Enums.eRelationship.Child dv.AssociatedDevice_Add(hs, masterdevice) dv = Nothing hs.WriteLog("HDMI matrix", "Test Device for output " & output & " created") Catch ex As Exception hs.WriteLog("HDMI matrix", "Error creating devices: " & ex.Message) Return 0 End Try Dim SVpair_off As New HomeSeerAPI.VSPair(HomeSeerAPI.ePairStatusControl.Status) SVpair_off.PairType = HomeSeerAPI.VSVGPairType.SingleValue SVpair_off.Value = 0 SVpair_off.Status = "None" hs.DeviceVSP_AddPair(devref, SVpair_off) Dim VGpair_off As New HomeSeerAPI.VGPair VGpair_off.PairType = HomeSeerAPI.VSVGPairType.SingleValue VGpair_off.Set_Value = 0 VGpair_off.Graphic = "images/Moskus/icon_hdmi_X.png" hs.DeviceVGP_AddPair(devref, VGpair_off) 'Adding buttons, values and graphic For i As Integer = 1 To 4 hs.DeviceScriptButton_AddButton(devref, output & "-" & i, i, Scriptname, "ButtonPress", output & "-" & i, 1, i, 1) Dim SVpair As New HomeSeerAPI.VSPair(HomeSeerAPI.ePairStatusControl.Status) SVpair.PairType = HomeSeerAPI.VSVGPairType.SingleValue SVpair.Value = i SVpair.Status = "Input " & i hs.DeviceVSP_AddPair(devref, SVpair) Dim VGpair As New HomeSeerAPI.VGPair VGpair.PairType = HomeSeerAPI.VSVGPairType.SingleValue VGpair.Set_Value = i VGpair.Graphic = "images/Moskus/icon_hdmi_" & i & ".png" hs.DeviceVGP_AddPair(devref, VGpair) Next Return devref End Function Public Sub ButtonPress(Input As Object) Dim devref As Integer = Input(0) Dim ButtonName As String = Input(1) Dim output As String = String.Empty 'Gets filled by GetURLIE Dim device As Integer = 0 Dim master As Integer = hs.GetDeviceParentRefByRef(devref) If master = 0 Then master = devref Dim dv As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(master) For Each devid As Integer In dv.AssociatedDevices(hs) Dim dev As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(devid) Select Case dev.Device_Type_String(hs) Case Is = "HDMI root" device = 0 Case Is = "HDMI out 1" device = 1 Case Is = "HDMI out 2" device = 2 Case Is = "HDMI out 3" device = 3 Case Is = "HDMI out 4" End Select Next Dim command As String = "Refresh" If device > 0 Then Dim value As Integer = hdmi_outputs.ToList.IndexOf(ButtonName) command = device & "-" & value End If Select Case command Case Is = "Refresh" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=refrash", True) '"refrash" is actually not a typo on my part... Case Is = "1-1" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a09", True) Case Is = "1-2" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a1D", True) Case Is = "1-3" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a1F", True) Case Is = "1-4" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a0D", True) Case Is = "2-1" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a17", True) Case Is = "2-2" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a12", True) Case Is = "2-3" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a59", True) Case Is = "2-4" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a08", True) Case Is = "3-1" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a5E", True) Case Is = "3-2" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a06", True) Case Is = "3-3" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a05", True) Case Is = "3-4" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a03", True) Case Is = "4-1" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a18", True) Case Is = "4-2" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a44", True) Case Is = "4-3" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a0F", True) Case Is = "4-4" output = hs.GetURLIE("http://" & ip_address & "/get_data?type=port&cmd=a51", True) End Select InterpretOutput(devref, output) End Sub Public Sub InterpretOutput(ByVal devref As Integer, ByVal output As String) 'output: Output1=1Output2=1Output3=1Output4=1 Dim data(3) As Integer data(0) = CInt(output(8).ToString) data(1) = CInt(output(17).ToString) data(2) = CInt(output(26).ToString) data(3) = CInt(output(35).ToString) Dim master As Integer = hs.GetDeviceParentRefByRef(devref) If master = 0 Then master = devref Dim dv As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(master) For Each devid As Integer In dv.AssociatedDevices(hs) Dim dev As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(devid) Select Case dev.Device_Type_String(hs) Case Is = "HDMI out 1" If hs.DeviceValue(devid) <> data(0) Then hs.SetDeviceValueByRef(devid, data(0), True) Else hs.SetDeviceValueByRef(devid, data(0), False) End If Case Is = "HDMI out 2" If hs.DeviceValue(devid) <> data(1) Then hs.SetDeviceValueByRef(devid, data(1), True) Else hs.SetDeviceValueByRef(devid, data(1), False) End If Case Is = "HDMI out 3" If hs.DeviceValue(devid) <> data(2) Then hs.SetDeviceValueByRef(devid, data(2), True) Else hs.SetDeviceValueByRef(devid, data(2), False) End If Case Is = "HDMI out 4" If hs.DeviceValue(devid) <> data(3) Then hs.SetDeviceValueByRef(devid, data(3), True) Else hs.SetDeviceValueByRef(devid, data(3), False) End If End Select Next End Sub Gir:

Siden jeg bor rett bak Norges varemesse var det greit å stikke innom en tur. Onsdag hadde langåpent og jeg satte av tida fra 16 til stengetid kl 19. Det har blitt noen messer opp gjennom årene både som utstiller og som besøkende og jeg får raskt "messefølelsen" i kroppen: Veksle mellom å gå metodisk opp korridor etter korridor for å få med meg alt eller å vase u-planmessig rundt å la farger, lyd og damer trekke meg som det faller seg. Noen stands har selgere som står som gribber og bare venter på å kaste seg over deg mens på andre står selgerne å snakker med hverandre i en stor flokk med ryggen til og du føler du egentlig ikke har noe her å gjøre. (Når en er opp i årene som meg så tillater jeg meg å si "Beklager om jeg er til bry men er det noen her som kan vise meg noe?") Noen stands er trøstesløse med noen plakater på veggene og kun en person som sitter på en stol og fikler med mobilen sin og for lengst har gitt opp å se på folkene som passerer mens andre er bygget som små slott og viser at her er det et konsern som har budsjetter for slikt. Elko er nok en av disse og som vanlig er det ikke her en finner de mest fantastiske produktene: Jeg registrerer at det forrige systemet dere glimrer med sitt fravær og regner med at avløseren kommer til å lide samme skjebne siden de fremdeles hardnakket ønsker å finne opp så mye krutt som mulig. Kjære ELKO: Hvorfor i all verden kan ikke dere lage en dobbel kontakt med innebygget Z-wave ??? - både utenpåliggende og innfellbar, i kjent ELKO kvalitet! Eller en dobbeltbryter med Z-wave sender som passer inn i rammene deres? Så vi slipper å bruke en bryter til 16A for å bryte noen få miliampere som styrestrøm til en Fibaro eller Aeon med alt for små kontaktskruer og som fyller hele veggboksen full. Gjerne en batteriversjon og en med tilkobling av 220V og med 16A releer. Den trådløse batteri dimmer senderen deres som dere viste (sorry ingen bilde) er et bra utgangspunkt for størrelse og feste. Så jeg vandrer videre, forbi Malmberg som ikke har tid til å se på meg. (Jeg har dessuten ikke dress og slips så en svenske vil nok uansett anse meg for useriøs...) Stopper litt hos ABB som viser meg sitt alternativ til KNX: free@home Poenget her er at en skal slippe å kjøpe ETS verktøyet og gå på $$ kurs osv og kunne endre programmeringen selv i ett pek og klikk Interface: Alt sammen er selvfølgelig lukket og proprietært og fyren som demonstrerer er hyggelig og jeg tar meg voldsomt sammen for ikke å være spydig... (det er dessverre en lei uvane jeg har som jeg forsøker å legge av meg) Da er det mye hyggeligere på standen til HDL: Her er det andre toner: JA vi har vårt egen trådbaserte buss-system men om kunden ønsker noe spesielt så interfacer vi det meste. Det er bare å koble på. Z-wave, SigBee osv. "Snart kommer vår nye dørtelefon. Er ikke designet flott?" (For øyeblikket en papp plate ) Jeg innrømmer at om jeg ikke hadde det så behagelig som jeg har det i den jobben jeg har nå ville HDL være et spennende alternativ.. Også måtte jeg jo svinge innom standen og hilse på FutureHome folket: Etter hvert dukket Stian opp også og jeg fikk en innføring i FutureHome sin forretningsmodell. Meget interessant! Det var deilig å besøke standen til Steinel og oppdage at de IKKE har tenkt å kaste seg på "vi vil også ha vårt eget proprietære smarthus system" bølgen, men isteden følge "skomaker bli ved din lest", - gjør det du er god til, og lage bevegelsesdetektorer til andres systemer. Riktignok fant jeg ikke Z-wave men bare KNX og eNet. Hm eNet? Hva er det? Jo det finner du på Gira sin stand: Her finner jeg en hyggelig kar som åpen innrømmer: "Ja vi er proprietære" Men elektrikeren må gjerne gi bort passordet så kunde kan programmere selv men det anbefaler vi ikke å gjøre . Det blir det bare rot av og dessuten slutter garantien å virke da. (Jeg tenker i mitt stille sinn at jeg er glad kona ikke anser det som en garantisak hver gang systemet vårt ikke gjøre som hun vil..) Til slutt må jeg jo bortom Eaton og XConfort Der finner jeg en flokk med blåskjorter i ivrig diskusjon med hverandre og jeg må BE om å få en demonstrasjon. En kunnskapsrik fyr struttende av selvtillit forklarer meg at "nei, ikke bare videresending til en node (som Moskus har fortalt meg) men et fullt mesh system akkurat som Z-wave" Han viser også stolt fram den nye dimmeren som kan dimme hva som helst selv finner ut hva det er av type pærer. Så var det Interface da. Joda det finnes en USB stick og et API. En må bare søke om å få programmere mot det.... Og så er klokka 18:45 og det er på tide å lete etter @Øyvind og @Håvardgj Mens jeg ruslet rundt passet jeg selvfølgelig å spørre om folket hadde kommet seg på Norges nettsamfunn for hjemmeautomasjon. - Ikke det? Vel her er en liten flyer som du kan bruke som huskelapp til du kommer på kontoret igjen: Du ser den på bordet til FutureHome

Ja, her er det bare å kopiere og bruke scriptene som du vil. Bare husk på å forandre på Reference IDen slik at de passer ditt system.

RDP er vel like trygt som VNC, ser ingen grunn til å ikke bruke det. Jeg bruker imidlertid LogMeIn, og er veldig fornøyd med det! Ulempen er at det koster (til og med en del), men det er veldig hendig, kjapt og enkelt. Et alternativ er TeamViewer. Noen påstår at de har blitt hacket, mens TeamViewer selv skylder på at enkelte brukere har samme passord overalt slik at LinkedIn-angrepet i 2012 fremdeles kan brukes i dag. Men så lenge du har et godt passord på TeamViewer (og de støtter til og med to-faktor autentisering), og passord på PCen du skal styre, vil jeg anslå at risikoen er minimal. Bare vær klar over at så lenge en maskin er knyttet til internett med en eller flere tjenester, oppstår det et sikkerhetsspørsmål. Så lenge du bruker sunn fornuft (f.eks. ikke setter kamera rett på nettet uten passord, á la Dagbladets #NullCtrl), så vil det stort sett gå greit. Hvis noen virkelig, VIRKELIG vil inn på maskinen din, så vil de komme til å klare det. Men du er ikke Pentagon så sannsynligheten er lav.

Ny versjon i Updater nå.