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