Søk i nettsamfunnet
Viser resultater for emneknaggene 'sectoralarm homeseer'.
Fant 1 resultat
-
Hei Etter disse postene Og hjelp av @Perri til å få hvilke data som blir sendt til og fra Sector så har jeg laget et lite script som jeg bruker. Det har vært lagt ut i overstående tråd også men da med litt rester etter kjapp testing Har rensket det for undøvendig og feilnavngiving nå og tenkte å dele det med andre. ' Henter status fra Sector alarm Public Sub Main(Parm As Object) dim devicenumber as integer = 160 'Devicen som skal kontrolleres dim debug as integer = 0 'Sett denne til 1 for å få data fra scriptet i loggen Dim sourcecode As String Dim sourceString As String = New System.Net.WebClient().DownloadString("https://panelapi.sectoralarm.net/MobileAppWS.svc/PanelStatus?userName=<BRUKERNAVN>&password=<PASSORD>&panel=<PANELID>") sourceString = replace(sourceString, "{", "") sourceString = replace(sourceString, "}", "") Dim arr1 As String() = sourceString.Split(New Char() {","c}) Dim arr2 As String() = arr1(0).Split(New Char() {":"c}) arr2(1) = Replace(arr2(1), chr(34), "") If arr2(1) = "disarmed" Then if debug = 1 then hs.WriteLog("Alarmstatus", "Alarm av") end if hs.SetDeviceValueByRef(devicenumber, 0, True) ElseIf arr2(1) = "armed" Then if debug = 1 then hs.WriteLog("Alarmstatus", "Alarm på") end if hs.SetDeviceValueByRef(devicenumber, 2, True) ElseIf arr2(1) = "partialarmed" Then if debug = 1 then hs.WriteLog("Alarmstatus", "Skallsikring") end if hs.SetDeviceValueByRef(devicenumber, 1, True) End If End Sub
-
Medlemsstatistikk
6 975
Totalt antall medlemmer1 891
Flest pålogget