ShellyPro 2PM goes Homematic - mit der Originalfirmware

66er

Entwickelt und getestet auf ShellyPro2-Firmware:

0.9.0-beta2 und 0.9.2-beta1

Hallo liebe Homematic-Freunde.

Heute geht es um die Einbindung des ShellyPro 2PM.

Mein Dank an SparkyMaster , der mich mit Skripttests und Screenshots unterstützt hat. Danke Axel.

Desweiteren danke ich dem Homematic-Forum-User @ MichaelN, der mir gestattet hat, sein Skript "JSON universell auslesen" in meinen Skripten zu verwenden. Danke Michael

Quelle des Skriptes: https://homematic-forum.de/forum/viewtopi…=672027#p672027

(weitere Hintergrundinfos und Quellangaben hier)

Das Ganze funktioniert natürlich wie immer ohne Fremdfirmware.

Die Kopplung hat folgende Möglichkeiten:

Ein- und Ausschalten des Schaltkanals inkl. Rückmeldung, wenn über die App oder per Schalter geschaltet wird
Überwachung des Onlinestatus, kein CUxD-Ping-Device nötig, optional
Alle notwendigen Systemvariablen werden automatisiert erstellt und dem passenden Schaltkanal zugeordnet, daher sehr leicht einzurichten
Anzeige der aktuellen Leistung / Kanal, Nutzung frei wählbar
Aktualsierung direkt nach Übergang von OFFLINE --> ONLINE (Aktualisierung des Schaltzustandes, falls umgeschaltet wurde, während die CCU den Shelly als Offline erkannte)

Das Ganze sieht dann im maximalen Endausbau so aus:

CUxD-PRO2PM.PNG

techn. Voraussetzungen:

kompatibel mit den Homematic-Systemen CCU2*, CCU3, Charly, sowie allen Ablegern wie RaspberryMatic und piVCCU.
installiertes Addon CUxD in aktueller Version

(Das Wissen um den Umgang CUxD, wie z.B. Geräte anlegen, setze ich an dieser Stelle voraus, sonst "explodiert" diese Anleitung. Danke für's Verständnis.)

Ich möchte Euch an dieser Stelle empfehlen, vor der Umsetzung mal einen Blick in diesen Thread zu werfen:

Wichtige Hinweise zu den Shelly-Kopplungen an Homematic
* CCU2 -User beachten bitte unbedingt diesen Hinweis!

(Auch die übrigen angepinnten Themen sind übrigens zum Lesen empfohlen, gerade auch für Neueinsteiger )

Und nun geht's los.

__________________________________________________________________________________

66er

Falls noch nicht vorhanden, bitte ein Gerät (28) System Exec anlegen! Darüber werden die Befehle abgesetzt.

Hier gibt es bei Bedarf eine Anleitung zum Anlegen des CUxD-Exec-Gerätes.

(Im CUxD-Exec selbst werden keine Eintragungen gemacht!)

Für den ShellyPro 2PM benötigen wir 2 Kanäle eines ggf. vorhandenen oder neu anzulegenden

CUxD Gerätetyps (40) 16 Kanal Universalsteuerung als Schalter:

CUxD anlegen.PNG

(Den Namen könnt Ihr natürlich frei vergeben und anpassen. )

Damit können 8 ShellyPro 2PM abgebildet werden.

Ein- und Ausschalten der Kanäle:

Um den Shelly mit dem CUxD-Device zu schalten müssen nun noch pro Kanal 1 Haken gesetzt und 2 Eintragungen gemacht werden:

1.) Haken setzen bei "SWITCH|CMD_EXEC"

2.) Eintrag für "SWITCHCMD_SHORT":

jeweils IP-Adresse des Shelly anpassen!

2.1 Kanal 1 (im Shelly = 0)

Code

wget -q -T2 -t2 -O - 'http://192.168.2.143/rpc/Switch.Set?id~3d0~26on~3dfalse'

2.2 Kanal 2 (im Shelly = 1)

Code

wget -q -T2 -t2 -O - 'http://192.168.2.143/rpc/Switch.Set?id~3d1~26on~3dfalse'

3.) Eintrag für "SWITCHCMD_LONG":

jeweils IP-Adresse des Shelly anpassen!

3.1 Kanal 1 (im Shelly = 0)

Code

wget -q -T2 -t2 -O - 'http://192.168.2.143/rpc/Switch.Set?id~3d0~26on~3dtrue'

3.2 Kanal 2 (im Shelly = 1)

Code

wget -q -T2 -t2 -O - 'http://192.168.2.143/rpc/Switch.Set?id~3d1~26on~3dtrue'

Das Ganze sollte also jetzt so aussehen:

Pro2PM Enstellungen.PNG

Damit funktioniert schon mal das EIN- und AUS-Schalten des ShellyPro 2PM .

__________________________________________________________________________________

66er

Rückmeldung des Schaltzustandes:

Damit der Status der Schaltkanäle auch stimmt, wenn am Shelly oder per App oder Web-UI geschaltet wird, bedienen wir uns der Webhooks des Shelly (ehem. ACTIONS).

Diese müssen (am Besten über das Web-UI) im Shelly eingerichtet werden:

Für das Erstellen der Webhooks müsst Ihr jeweils den einzustellenden Kanal anklicken. Dann erscheint der Button "Webhooks".

Webhook.png

Pro Kanal müssen 2 Webhooks angelegt werden (1x Schaltzustand EIN und 1x Schaltzustand aus)

Webhook für "Ausgang eingeschaltet":

Kanal 1 (im Shelly Switch_0)

Webhook ON.png

Request-Code:

Code

http://192.168.2.141:8181/66er.exe?Antwort=dom.GetObject(%22CUxD.CUX4000001:1.SET_STATE%22).State(1)

IP-Adresse und CUxD-Adresse / CUxD-Kanal anpassen!

Webhook für "Ausgang ausgeschaltet":

Webhook OFF.png

Request-Code:

Code

http://192.168.2.141:8181/66er.exe?Antwort=dom.GetObject(%22CUxD.CUX4000001:1.SET_STATE%22).State(0)

IP-Adresse und CUxD-Adresse / CUxD-Kanal anpassen!

Diese Schritte hinsichtlich der Webhooks müsst Ihr nun für den 2. Schaltkanal wiederholen!

Nun wird auch schon der Status der Kanäle aktualisiert, wenn von außerhalb der CCU geschaltet wird.

__________________________________________________________________________________

66er

Werte-Aktualisierung:

1. optionale Aktualisierung des Online-Status

Um den Onlinestatus anzuzeigen muß nur im Setup des unten folgenden Skript die Option auf „J“ gesetzt sein. Dadurch wird die Variable autom. erstellt und dem Kanal zugeordnet. „N“ deaktiviert diese Option.

2. Programm

Um nun zum guten Schluß noch die Werte (Leistung und optional den Onlinestatus) in die entsprechenden Systemvariablen / Kanäle zu bekommen, muß ein Programm angelegt werden, das die Werte zyklisch vom Shelly abfragt.

Zusätzlich kann durch Aktivieren der Schaltstatusaktualisierung im Skript ergänzend im Programmablauf auch der aktuelle Schaltstatus abgefragt und dadurch in Homematic ggf. korrigiert werden.

Ob man im WENN die interne Zeitsteuerung nutzt oder einen CUxD-Timerkanal als Trigger nutzt, kann man dabei frei entscheiden.

(In meinem Beispiel wurde das interne Zeitmodul genutzt.)

Das Programm:

Programm.PNG

Ob man im WENN die interne Zeitsteuerung nutzt oder einen CUxD-Timerkanal als Trigger nutzt, kann man dabei frei entscheiden.

(In meinem Beispiel wurde das interne Zeitmodul genutzt.)

Einstellungen im Zeitmodul:

Zeitmodul.PNG

Das Aktualisierungsintervall kann natürlich angepasst werden, wobei zu beachten ist:

Je kürzer das Intervall desto höher die Systembelastung für die Homematic-Zentrale. Hier muß / kann man testen. Ab wann die Performance leidet hängt natürlich zum Einen von der eingesetzten Hardware und zum Anderen vom Umfang der Installation ab.

Bei Umsetzung der kompletten Anleitung wird eh bei jedem Statuswechsel syncronisiert.

__________________________________________________________________________________

66er

2. Das Skript

Bitte den Bereich "Setup" anpassen und Hinweise beachten!

Ausserhalb des Setup sind keine Änderungen oder Eintragungen nötig!

Bitte außerdem beachten:

Im Skript ist RestrictLogin schon enthalten. Wie sich erst später herausstellte, wird das aber aktuell in der Firmware/vom Gerät nicht unterstützt!

Daher bitte im Setup nicht aktivieren!

Code

! Skript V1.0.1 zur Statusaktualisierung ShellyPro2PM  mit Originalfirmware (c)2021-2024 by 66er (alias Stefan K.)
! Publiziert und Updates auf https://smarthome-forum.eu/forum/index.php?board/145-homematic/
! entwickelt und getestet auf ShellyPro 2PM-Firmware 0.9.2 und 0.14.1
! Versionsdatum: 01.04.2024
! automatische Homematic-SV-Erstellung inkl Kanalzuordnung, Onlinestatus-Prüfung integriert (optional), Aktualisierung des Schaltzustands bei Änderung Offline --> Online

! BITTE BEACHTEN:
! Dieses Skript legt selbstständig zusätzliche Systemvariablen auf Deiner Homematic-Zentrale an!
! Das vermeidet Inkonsistenzen und eine temporäre Blockade der CCU durch das Skript.
! Ausserdem erspart es Dir das manuelle Anlegen benötigter Systemvariablen.
! Wer das nicht möchte, kann dieses Skript leider nicht nutzen!

! Die Nutzung des Skriptes erfolgt auf eigenes Risiko.
! Aus der Nutzung entsteht kein Rechtsanspruch auf Suppport oder Fehlerbeseitigung durch den Autor.
! Der Autor haftet nicht für eventuelle Folgen der Nutzung auf der Homematic-Zentrale des Nutzers.

!Nutzer der CUU2 beachten bitte die Hinweise unter folgendem Link:
!https://smarthome-forum.eu/forum/index.php?thread/12775-wichtige-info-zu-den-kopplungen-der-2nd-gen-besonders-f%C3%BCr-ccu2-user/&postID=134482#post134482

! Das Skript ist ausführlich getestet und sollte problemlos funktionieren.

! Ich danke ausdrücklich MichaelN aus dem Homematic-Forum, der mir gestattet hat, seinen JSON-Parser in meinen Skripten zu nutzen.
! Quelle des Parser: https://homematic-forum.de/forum/viewtopic.php?p=672027#p672027
! Bitte beachten, dass innerhalb meines Skriptes kleine Anpassungen erfolgt sind!

!**********             **********
!* SETUP !*             * SETUP !*
!**********             **********

! Raumbezeichnung: Testboard   (kann angepasst werden)

! Setup ShellyPro 2PM
var shp2ip = "192.168.2.143"      ;           ! IP des ShellyPro2PM anpassen
var shp2name = "Testboard_ShellyPro-2PM" ;    ! CUxD-Gerätenamen anpassen (daraus werden ggf. automatisch weitere Variablennamen erzeugt

!Kanalnamen anpassen
var shp2k1name = "Testboard_ShellyPro2PM-CH0" ;   ! Name des Shelly-Schaltkanal 1 anpassen (daraus werden ggf. automatisch weitere Variablennamen erzeugt. DER NAME MUSS IDENTSCH SEIN MIT DEM TATSÄCHLICHEN KANALNAMEN
var shp2k2name = "Testboard_ShellyPro2PM-CH1" ;   ! Name des Shelly-Schaltkanal 2 anpassen (daraus werden ggf. automatisch weitere Variablennamen erzeugt. DER NAME MUSS IDENTSCH SEIN MIT DEM TATSÄCHLICHEN KANALNAMEN

!  Restrict Login
var shp2rl = "N" ;                           ! Ist Resrict Login im Shelly aktiv, dann auf "J" setzen
var shp2bn = "DeinBenutzername" ;            ! Ist Restrict login auf J, dann Benutzername anpassen
var shp2pw = "DeinPasswort"     ;            ! Ist Restrict login auf J, dann Passwort anpassen, keine Sonderzeichen


! Setup der CUxD-GERÄTE
var execshp2 = "CUxD.CUX2801001:2";          ! Adresse und Kanal des CUxD-Exec-Device angeben
var shp2k1cuxd =  "CUxD.CUX4000001:6" ;      ! Adresse des CUxD-Device für den ShellyPro2PM anpassen Kanal 1
var shp2k2cuxd =  "CUxD.CUX4000001:7" ;      ! Adresse des CUxD-Device für den ShellyPro2PM anpassen Kanal 2


! Setup Online-Status
var shp2onl = "J";                            ! Variable für Onlinezustandsüberwachung, falls nicht gewünscht, auf "N" setzen""

! Setup Aktualisierungs- und Anzeigeumfang
var sh2pl1 = "J" ;                            ! Variable für Leistung Kanal 1 anlegen und aktualisieren, wenn nicht gewünscht auf "N" setzen
var sh2pl2 = "J" ;                            ! Variable für Leistung Kanal 2 anlegen und aktualisieren, wenn nicht gewünscht auf "N" setzen
var sh2psk = "J" ;                            ! Variable zur Aktualisierung Schaltstatus je Kanal, wenn nicht gewünscht auf "N" setzen


!****ENDE SETUP ********ENDE SETUP ********ENDE SETUP ******

!*****Ab hier NICHTS MEHR ÄNDERN *****


!*** Variablen für Leistung prüfen, ggf. anlegen

! Kanal 1
if (sh2pl1 == "J" ) {

var sh2plk1 = "Temp-P2PM_switch 0_apower" ;
!WriteLine(sh2plk1) ;

 string sName= ""#sh2plk1#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro2PM");
  svObj.ValueUnit("W");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(3800);
  svObj.State (0);!SCNR = SHP2PM10166R
  dom.RTUpdate(0);
}

var sh2plk1 =  shp2k1name + "_Leistung" ;
!WriteLine(sh2plk1) ;

 string sName= ""#sh2plk1#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro2PM");
  svObj.ValueUnit("W");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(3800);
  svObj.State (0);!SCNR = SHP2PM10166R
  dom.RTUpdate(0);


object oChan= channels.Get (""#shp2k1name#"");
object oSys=dom.GetObject (ID_SYSTEM_VARIABLES).Get (""#sh2plk1#"");
oChan.DPs().Add (oSys);
oSys.Channel (oChan.ID() );
}

 }

! Kanal 2
if (sh2pl2 == "J" ) {

var sh2plk2 = "Temp-P2PM_switch 1_apower" ;
!WriteLine(sh2plk2) ;

 string sName= ""#sh2plk2#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro2PM");
  svObj.ValueUnit("W");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(3800);
  svObj.State (0);!SCNR = SHP2PM10166R
  dom.RTUpdate(0);
}

var sh2plk2 =  shp2k2name + "_Leistung" ;
!WriteLine(sh2plk2) ;

 string sName= ""#sh2plk2#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro2PM");
  svObj.ValueUnit("W");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(3800);
  svObj.State (0);!SCNR = SHP2PM10366R
  dom.RTUpdate(0);


object oChan= channels.Get (""#shp2k2name#"");
object oSys=dom.GetObject (ID_SYSTEM_VARIABLES).Get (""#sh2plk2#"");
oChan.DPs().Add (oSys);
oSys.Channel (oChan.ID() );
}
}

! Variablen für den Schaltstatus

if ( sh2psk == "J" ) {

!Kanal1
var shp2stk0 = "Temp-P2PM_switch 0_output"  ;


string sName= ""#shp2stk0#"";   ! Status Kanal 0
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro2PM");
  svObj.ValueUnit("");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtBinary);
  svObj.ValueSubType(istBool);
  svObj.ValueName0("false");
  svObj.ValueName1("true");
  svObj.State (false);
  dom.RTUpdate(0);
}

!Kanal 2
var shp2stk1 = "Temp-P2PM_switch 1_output"  ;


string sName= ""#shp2stk1#"";   ! Status Kanal 1
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro2PM");
  svObj.ValueUnit("");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtBinary);
  svObj.ValueSubType(istBool);
  svObj.ValueName0("false");
  svObj.ValueName1("true");
  svObj.State (false);
  dom.RTUpdate(0);
}   }



! Variable für Onlinestatus prüfen,ggf.anlegen


if (shp2onl == "J")  {

var shp2onln = shp2name + "_Online-Status"  ;
!WriteLine(shp2onln) ;


string sName= ""#shp2onln#"";  ! Onlinestatus
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro2PM");
  svObj.ValueUnit("");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtBinary);
  svObj.ValueSubType(istBool);
  svObj.ValueName0("Offline");
  svObj.ValueName1("Online");
  svObj.State(true);!SCR = SHP2PM10166R
  dom.RTUpdate(0);



object oChan= channels.Get (""#shp2k1name#"");
object oSys=dom.GetObject (ID_SYSTEM_VARIABLES).Get (""#shp2onln#"");
oChan.DPs().Add (oSys);
oSys.Channel (oChan.ID() );
}
}

 ! Onlineabfrage und setzen des Status
string stderr;
string stdout;
integer Status;
system.Exec("ping -c 1 '"#shp2ip#"'", &stdout, &stderr);
Status = stdout.Find("ms");
WriteLine(Status);


if (((shp2onl ) == "J" ) && ((Status) == -1)) {
WriteLine("ShellyPro-2 ist offline");
dom.GetObject (""#shp2onln#"").State(0);
quit; ! Programmabbruch bei Shelly offline
                                              }

if ((shp2onl ) == "J" ) {
dom.GetObject (""#shp2onln#"").State(1);
WriteLine("ShellyPro-2 ist online");
                        }

! Statusabfrage gesamt

! url ohne RL
var url = shp2ip + "/rpc/Shelly.GetStatus";
WriteLine("Ergebnis Statusabfrage: " + url);

! url mit RL
if ( shp2rl == "J") {
var url = shp2bn + ":" + shp2pw +"@" +shp2ip + "/rpc/Shelly.GetStatus";
!WriteLine(url);
                           }


!****Abfrage des ShellyPro2PM  *****

dom.GetObject(""#execshp2#".CMD_SETS").State("wget -q -O - '"#url#"'");
dom.GetObject(""#execshp2#".CMD_QUERY_RET").State(1);
string Antwort = dom.GetObject(""#execshp2#".CMD_RETS").State();
dom.GetObject(""#execshp2#".CMD_SETS").State("0");
WriteLine("Antwortstring:   " + Antwort);

!Testantwort  *** MUSS AUSKOMMENTIERT SEIN


string rueck = Antwort ; ! Variable für Parser von Michael setzen

WriteLine("Wert für Parser" + rueck);


!***********************
!* Skript von MichaelN *
!***********************
!JSON universell auslesen
!V1.10 MichaelN https://homematic-forum.de/forum/viewtopic.php?f=18&t=68762
!GPL-3.0-or-later
!string url = "http://IP/";
!url = "wget --no-check-certificate --timeout=2 -O - '"#url#"'";
string prefix = "Temp-P2PM_";
!string CUXD_Device = ""; ! falls man CUxD  nutzt, Device eintragen z.B. "CUxD.CUX2801001:1"
! Trenner kann notfalls angepasst werden, wenn es mit den Nutzdaten kollidiert
string TrennerArray = " \ ";  TrennerArray = TrennerArray.Trim();
string TrennerArrayErsatz = "/";
! festlegen welche Zeichen in den Nutzdaten durch welches Zeichen ersetzt werden
string ersetzen = ":,[]{}";
string durch = " ";

!string rueck;
string error;
object SV;
string SVName;
var Wert;



!- Abruf der Daten
!if ( !CUXD_Device ) {
! system.exec
!system.Exec(url , &rueck, &error);
!} else {
! CUxD
!dom.GetObject(CUXD_Device#".CMD_SETS").State(url);
!dom.GetObject(CUXD_Device#".CMD_QUERY_RET").State(1);
!rueck = dom.GetObject(CUXD_Device#".CMD_RETS").State();
!}



if (!rueck== "")
{
   WriteLine("=== HTTP-Request OK === "#rueck);
   rueck = rueck.ToLatin(); ! wegen deutschen Umlauten
   rueck = rueck.Trim(" {}[]");
   rueck = rueck.Replace('\n','');
   rueck = rueck.Replace('\r','');
   rueck = rueck.Replace('_','-');
   rueck = rueck.Replace(TrennerArray,TrennerArrayErsatz);
   if (rueck.Substr(0,1) == "[" ) { rueck = "data:"#rueck; }
   WriteLine("=== nach Replace === '"#rueck#"'");


! Array und Payload aufbereiten
   integer pos1 = 0; integer posG = 0;
   integer pos2 = rueck.Length();
   string temp = ""; string temp2;
   string teil;
   boolean Array = false; boolean Payload = false;
   while ( pos1 < pos2 )
     {
         teil = rueck.Substr(pos1,1);
         if ( teil == "[")
            {! Array gefunden
            Array = true;
            }
         if ( (teil == "," ) && Array )
           {! Komma gegen Schraegstrich tauschen
            teil = TrennerArray;
            }
         if ( teil == "]")
            {! Array Ende
            Array = false;
            }
         if (  teil == '"' ) {
            if ( Payload )
            {! Payload Ende
            Payload = false;
            } else {
            ! Payload Start
            Payload = true;
            }
            }
         if ( ( ersetzen.Contains(teil) )  && Payload )
           {! verbotene Zeichen austauschen
            teil = durch;
            }
         temp = temp#teil;
         pos1 = pos1 + 1;
         }
   rueck = temp;
   rueck = rueck.Replace('"','');
   WriteLine("=== nach Aufbereitung === '"#rueck#"'");
   WriteLine("=== Output V1.10 ===");

   string Part; string SVNameArray;
   string Gruppe = ""; string GruppeNeu;
   integer G1; integer G2;
   integer ArrayZaehler = 0;
   boolean ArrayMitGruppe = false;

   foreach (Part, rueck.Split(",") ){
          if (Part.Contains(":"))
          {
           if (Part.Contains("{"))
           { ! Unter-Objekt gefunden
             !WriteLine("Z96 Part='"#Part#"'"); ! *** DEBUG

             if (Part.Contains("[")) {
               ! enthält Arrray
               GruppeNeu = Part.StrValueByIndex(":", 0);
               GruppeNeu = GruppeNeu.Trim() #"_";
               Part = Part.Substr(GruppeNeu.Length()+2).Trim("{ ");
               Gruppe = Gruppe # GruppeNeu; Gruppe = Gruppe.Replace("__","_");
               !WriteLine("Gruppe alt:"#Gruppe); ! DEBUG ***
               !WriteLine("Inhalt alt:"#Part); ! DEBUG ***
             } else {
               ! enthält kein Array, aber möglicherweise geschachtelte Objekte
               temp = Part.Replace("{",";");
               G2 = web.webGetValueListCount(temp);
               G1=0;
               while (G1 < (G2-1)) {
               GruppeNeu = web.webGetValueFromList(temp,(G1)).Trim(" :");
               if ( (GruppeNeu == "_") || (GruppeNeu == "") ) {
                       ArrayZaehler = ArrayZaehler + 1;
                    GruppeNeu = ArrayZaehler.ToString(0).Trim() # "_";
                    }
               Gruppe = Gruppe # GruppeNeu # "_";
               G1 = G1 + 1;
               }
               if ( Gruppe == "_" ) {
                       ArrayZaehler = ArrayZaehler + 1;
                    Gruppe = ArrayZaehler.ToString(0).Trim() # "_";
                    }
               Gruppe = Gruppe.Replace("__","_");
               Part = web.webGetValueFromList(temp,(G2-1));
               !WriteLine("Gruppe neu:"#Gruppe); ! *** DEBUG
               !WriteLine("Inhalt neu:"#Part); ! **** DEBUG
             }

             !WriteLine("=== GRUPPE-START: "#Gruppe);
           }
           if (Part.Contains(TrennerArray)) {
              ! Array gefunden
              !WriteLine("=== ARRAY auflösen:"#Part);
              ArrayMitGruppe = false;
              Part = Part.Replace("[","");
              Part = Part.Replace("]","");
              pos1 = 0;  posG = 0;
              SVName = Gruppe;
              if (Part.Contains(":"))
                  {
                  SVName = Part.StrValueByIndex(":", 0);
                  Part = Part.Substr(SVName.Length()+1).Trim();
                  SVName = SVName.Trim("[{ ");
          !WriteLine("*** Z365 ARRAY aufgelöst in:"#SVName#"==="#Part#"===");  ! DEBUG ***
                  }
              foreach (temp,Part.Split(TrennerArray))
                  {
                !WriteLine("Z352 temp="#temp); ! DEBUG ***

                if ( temp.Contains(":")) {
                ! Array enthält eine Gruppe

                  SVName = temp.StrValueByIndex(":", 0).Trim("{ ");
                  temp2 = temp;
                  temp = temp.StrValueByIndex(":", 1).Trim(" []");
                  SVNameArray = SVName#posG.ToString(0).Trim();
                      if ( temp.Contains("{")) {
                      ! weitere Gruppe gefunden
                      ArrayMitGruppe = true;
                      Gruppe = Gruppe # SVName # "_";
                      temp = temp.Trim(" {"); ! temp.StrValueByIndex("{", 1).Trim();
                      SVName = temp;
                      temp = temp2.StrValueByIndex(":", 2).Trim(" []");
                      SVNameArray = SVName#posG.ToString(0).Trim();
                      !WriteLine("Z363 Gruppe="#Gruppe#" SVNameAray="#SVNameArray#" temp="#temp); ! DEBUG ***
                      }

                  if ( temp.Contains("}")) { posG = posG + 1; }
                  !WriteLine("Z367 Gruppe="#Gruppe#" SVNameAray="#SVNameArray#" temp="#temp); ! DEBUG ***
                  WriteLine (prefix # Gruppe # SVNameArray #" = '"# temp.Trim(" {[]}") #"'");
                  SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get((prefix # Gruppe # SVNameArray));
                   if (SV) {
                   SV.State(temp.Trim(" {[]}"));
                   WriteLine("=== SV "#prefix # Gruppe # SVNameArray #" written ===");
                   }
                } else {
                ! keine Gruppe
                  SVNameArray = SVName#pos1.ToString(0).Trim();
                  WriteLine (prefix # Gruppe # SVNameArray #" = '"# temp.Trim(" {[]}") #"'");
                  SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get((prefix # Gruppe # SVNameArray));
                   if (SV) {
                   SV.State(temp.Trim(" {[]}"));
                   WriteLine("=== SV "#prefix # Gruppe # SVNameArray #" written ===");
                   }
                  pos1 = pos1 + 1;
                  }
                   if ( (temp.Contains("}")) && (ArrayMitGruppe)  )
                   { ! Unter-Objekt zu Ende
                         ! Gruppe um letzten Eintrag kürzen
                         temp2 = Gruppe.Replace("_",";");
                         G2 = web.webGetValueListCount(temp2);
                      !WriteLine("Z365 GRUPPE: "#Gruppe#" ==="); ! DEBUG ***
                         Gruppe = ""; G1=0;
                               while (G1 < (G2-2)) {
                               Gruppe = Gruppe # web.webGetValueFromList(temp2,(G1)) # "_";
                            !WriteLine("Z368 "#G1#"/"#G2#":"#Gruppe); ! *** DEBUG
                               G1 = G1 + 1;
                               }
                     !WriteLine("=== Z374 GRUPPE-ENDE: "#Gruppe#" ===");
                    ArrayMitGruppe = false;
                   }


                }
                if ( posG > 0 ) {
                    !WriteLine("Z413 Part="#Part); ! *** DEBUG

                      ! Gruppe um letzten Eintrag kürzen
                       temp2 = Gruppe.Replace("_",";");
                       G2 = web.webGetValueListCount(temp2);
                    !WriteLine("=== GRUPPE-ENDE (array): "#Gruppe#"***");
                       Gruppe = ""; G1=0;
                       while (G1 < (G2-2)) {
                               Gruppe = Gruppe # web.webGetValueFromList(temp2,(G1)) # "_";
                            !WriteLine("Z422 "#G1#"/"#G2#":"#Gruppe); ! *** DEBUG
                               G1 = G1 + 1;
                               }

                        }
            ! ARRAY ENDE


           } else {
           ! ohne Array
           ! WriteLine("Z154 Part='"#Part#"'"); ! *** DEBUG
           Part = Part.Replace(":",";");
           SVName = Gruppe#web.webGetValueFromList(Part,0).Trim();
           Wert = web.webGetValueFromList(Part,1).RTrim("}").Trim(" {[]}");
           WriteLine (prefix # SVName #" = '"# Wert #"'");
           SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get((prefix # SVName));
            if (SV) {
                   SV.State(Wert);
                   WriteLine("=== SV "#prefix # SVName #" written ===");
                   }
           if (Part.Contains("}"))
             { ! Unter-Objekt zu Ende
             ! *** Gruppe muss um so viele Einträge gekürzt werden, wie } vorhanden sind in Part ***
             Part = Part.Replace(" ","");
             ! WriteLine("Z199 Part='"#Part#"'"); ! *** DEBUG
             while ( Part.EndsWith("}") ) {
               ! Gruppe um letzten Eintrag kürzen
               temp = Gruppe.Replace("_",";");
               G2 = web.webGetValueListCount(temp);
               Gruppe = ""; G1=0;
               while (G1 < (G2-2)) {
                       Gruppe = Gruppe # web.webGetValueFromList(temp,(G1)) # "_";
                       ! WriteLine("=== "#G1#":"#Gruppe); *** DEBUG
                       G1 = G1 + 1;
                       }
               Part = Part.Substr(0,(Part.Length()-1)) ;
               ! WriteLine("Z212 Part="#Part); ! *** DEBUG
             } ! Ende while
             !WriteLine("=== GRUPPE-ENDE: "#Gruppe#" ===");
            }
           }
         }
   }
} else {
  WriteLine("Error at HTTP Request");
}


!****************************
!* Ende Skript von MichaelN *
!****************************


! TEMP-Werte lesen und zuordnen

if ( sh2pl1 == "J" ) {
var lk0 = dom.GetObject("Temp-P2PM_switch 0_apower").State();
dom.GetObject(""#sh2plk1#"").State(lk0);
}


if ( sh2pl2 == "J" ) {
var lk1 = dom.GetObject("Temp-P2PM_switch 1_apower").State();
dom.GetObject(""#sh2plk2#"").State(lk1);
}

if ( sh2psk== "J" ) {
var stk0 = dom.GetObject("Temp-P2PM_switch 0_output").State();
WriteLine(stk0);

if ( stk0 == "true" ) {
dom.GetObject(""#shp2k1cuxd#".SET_STATE").State(1);
} else {
dom.GetObject(""#shp2k1cuxd#".SET_STATE").State(0);
}

var stk1 = dom.GetObject("Temp-P2PM_switch 1_output").State();

if ( stk1 == "true" ) {
dom.GetObject(""#shp2k2cuxd#".SET_STATE").State(1);
} else {
dom.GetObject(""#shp2k2cuxd#".SET_STATE").State(0);
} }


WriteLine("Skript V1.0.1 beendet");

Alles anzeigen

Im eingestellten Intervall werden nun entsprechend den aktivierten Feature Schaltkanalaktualisierung und Onlinestatus aktualisiert.

Changelog:

V1.0.0 | 29.12.20021

Erstpublizierung

____________________________________________________________

Die Anleitung inkl. der Skripte und Bilder unterliegt dem Urheberrecht. Wer gegen das Urheberrecht verstößt (z.B. Bilder oder Texte unerlaubt kopiert und auf anderen Webseiten publiziert), macht sich gem. §§ 106 ff UrhG strafbar, kann zudem kostenpflichtig abgemahnt werden und muss Schadensersatz leisten (§ 97 UrhG).

An dieser Stelle nochmals Dank an MichaelN aus dem Homematic-Forum für die freundliche Zustimmung, sein Skript "Json universell auslesen" in meine Shelly-Skripte einbauen zu dürfen.

____________________________________________________________

ShellyPro 2PM goes Homematic - mit der Originalfirmware

Ähnliche Themen

ShellyPro 4PM goes Homematic - mit der Originalfirmware

Shelly Plus 1PM goes Homematic - mit der Originalfirmware

Shelly Plus 1 goes Homematic - mit der Originalfirmware

ShellyPro1 goes Homematic - mit der Originalfirmware

ShellyPro2 goes Homematic - mit der Originalfirmware

ShellyPro 1PM goes Homematic - mit der Originalfirmware

Tags