Fikk det til jeg og nå Ikke så veldig stødig i vb enda så her er det ett og ett steg. Men det funker
' Styrer temperaturen i kjellerstuen
Public Sub Main(Parm As Object)
dim devicenumber as integer = 160 'iden på devicen du skal styre
Dim debug As Integer = "1"
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>")
If debug = "1" Then
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
' hs.WriteLog("Alarmstatus", "Alarm av")
hs.SetDeviceValueByRef(devicenumber, 0, True)
ElseIf arr2(1) = "armed" Then
'hs.WriteLog("Alarmstatus", "Alarm på")
hs.SetDeviceValueByRef(devicenumber, 2, True)
ElseIf arr2(1) = "partialarmed" Then
' hs.WriteLog("Alarmstatus", "Skallsikring")
hs.SetDeviceValueByRef(devicenumber, 1, True)
End If
End If
End Sub