ShellyPro 4PM goes Homematic - mit der Originalfirmware

66er

Getestet auf ShellyPro4PM-Firmware:

0.6.4, 0.70

Hallo liebe Homematic-Freunde.

Heute geht es um die Einbindung des ShellyPro 4PM.

Das Ganze funktioniert natürlich wie immer ohne Fremdfirmware.

Die Kopplung hat folgende Möglichkeiten:

Ein- und Ausschalten der 4 Schaltkanäle 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 Leistung pro Kanal

Das Ganze sieht dann im Endausbau so aus:

Geräteansicht 2-12.PNG

Geräteansicht 2-2.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

(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!)

Das CUxD-Gerät für den ShellyPro 4PM anlegen:

Den "virtuellen" ShellyPro 4PM legen wir in CUxD gemäß dem nachfolgenden Bild an:

CuxD-Schalter.png

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

Theoretisch können damit 16 Kanäle, also 4 ShellyPro 4PM abgebildet werden.

Mit Blick in die Zukunft und zur Anpassung an die Gegebenheiten (vorangegangener Produkte) in App und Web-UI habe ich mich (für mich) aber entschlossen, 1 CuxD-Gerät pro 1 ShellyPro 4PM zu nutzen. (Die Entscheidung steht natürlich jedem frei.)

Um die nicht genutzten Kanäle des CUxD-Device auszublenden, nimmt man für die nicht genutzten Kanäle (5 bis 16) die Haken bei "SWITCH|ACTIVE" den Haken raus.

2 Kanaäle deaktivieren.PNG

Ein- und Ausschalten der Kanäle:

Um die 4 Kanäle via unserem gerade angelegt CUxD-Device zu schalten müssen nun noch bei jedem Kanal 1 Haken gesetzt und 2 Eintragungen gemacht werden:

Pro Kanal ...

1.) Haken setzen bei "SWITCH|CMD_EXEC"

2.) Eintrag für "SWITCHCMD_SHORT":

Zitat

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

0 = Kanal 1 --> bei Kanal 2 des Shelly durch 1 ersetzen, für Kanal 3 durch 2 und für Kanal 4 durch 3!

3.) Eintrag für "SWITCHCMD_LONG":

Zitat

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

0 = Kanal 1 --> bei Kanal 2 des Shelly durch 1 ersetzen, für Kanal 3 durch 2 und für Kanal 4 durch 3!

IP-Adresse anpassen nicht vergessen!

Das Ganze sollte also pro Kanal jetzt so aussehen:

Bildschirmfoto vom 2021-08-21 11-39-19.png

Damit funktioniert schon mal das EIN- und AUS-Schalten .

__________________________________________________________________________________

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:

Dazu müsst Ihr auf den jeweils einzustellenden Schaltkanal klicken und habt dann einen Button "Webhooks" (unten rechts) zur Auswahl:

Schaltkanal öffnen.png

Nach "Klick" darauf könnt Ihr die Webhooks erstellen.

2 werden benötigt, einer für AUS und einer für EIN:

2Webhooks.png

Webhook für EIN:

Webhook EIN.png

(für ganztags könnt Ihr auch den voreigestellten Wert stehen lassen. Das funktioniert auch, war mir aber da noch nicht bekannt )

der Code:

Code

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

IP der CCU und CUxD-Kanaladresse anpassen!

Webhook für AUS:

Webhook AUS.png

der Code:

Code

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

IP der CCU und CUxD-Kanaladresse anpassen!

Das müsst Ihr nun auch für die restlichen 3 Kanäle machen!

Achtung: Nicht vergessen, bei jedem Kanal auch den CUxD-Kanal im Befehl anzupassen!

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

__________________________________________________________________________________

66er

Werte-Aktualisierung:

1. 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.

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.)

Programm.png

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.

__________________________________________________________________________________

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 V2.1.2  zur Statusaktualisierung ShellyPro 4PM  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-4PM-Firmware 0.9.1
! Versionsdatum: 01.04.2024   
! automatische Homematic-SV-Erstellung inkl Kanalzuordnung, Onlinestatus-Prüfung integriert (optional)
! Restrict Login optional

! BITTE BEACHTEN:
! Dieses Skript legt ggf. 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!



!Raumbezeichnung: Werkstatt  (kann angepasst werden)


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

! ACHTUNG: Beim Anpassen der Adressen keine "" löschen!

! Setup ShellyPro 4 PM
var sh4pip = "192.168.2.144"      ;       ! IP des Shelly1 anpassen
var sh4pname = "ShellyPro4PM_Testboard" ; ! CUxD-Gerätenamen anpassen (daraus werden ggf. automatisch weitere Variablennamen erzeugt

!Kanalnamen anpassen
var sh4pk1name = "Mehrfach-Steckdose" ;   ! Name des Shelly-Schaltkanal 1 anpassen (daraus werden ggf. automatisch weitere Variablennamen erzeugt
var sh4pk2name = "Shelly PLUS Serie" ;    ! Name des Shelly-Schaltkanal 2 anpassen (daraus werden ggf. automatisch weitere Variablennamen erzeugt
var sh4pk3name = "Shelly PRO Serie" ;     ! Name des Shelly-Schaltkanal 3 anpassen (daraus werden ggf. automatisch weitere Variablennamen erzeugt
var sh4pk4name = "switch_3" ;             ! Name des Shelly-Schaltkanal 4 anpassen (daraus werden ggf. automatisch weitere Variablennamen erzeugt


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


! Setup der CUxD-GERÄTE
var execsh4p = "CUxD.CUX2801001:13";   ! Adresse und Kanal des CUxD-Exec-Device angeben
var sh4pcuxd =  "CUxD.CUX4000012" ;      ! Adresse des CUxD-Device für den ShellyPro 4PM anpassen


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


! Setup Aktualisierungs- und Anzeigeumfang
var sh4pl1= "J"                ;                            ! Variable für Leistung Kanal 1 anlegen und aktualisieren, wenn nicht gewünscht auf "N" setzen
var sh4pl2= "J"                ;                            ! Variable für Leistung Kanal 2 anlegen und aktualisieren, wenn nicht gewünscht auf "N" setzen
var sh4pl3= "J"                ;                            ! Variable für Leistung Kanal 3 anlegen und aktualisieren, wenn nicht gewünscht auf "N" setzen
var sh4pl4= "J"                ;                            ! Variable für Leistung Kanal 4 anlegen und aktualisieren, 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 (sh4pl1 == "J" ) {
    
    
    
    
    
var sh4plk1 = "Temp-P4PM_switch 0_apower" ;
!WriteLine(sh4plk1) ;

 string sName= ""#sh4plk1#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro4PM");
  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 = SHP4PM21266R
  dom.RTUpdate(0);
}

var sh4plk1 =  sh4pk1name + "_Leistung" ;
!WriteLine(sh4plk1) ;

 string sName= ""#sh4plk1#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro4PM");
  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 = SHP4PM21266R
  dom.RTUpdate(0);
}

object oChan= channels.Get (""#sh4pk1name#"");
object oSys=dom.GetObject (ID_SYSTEM_VARIABLES).Get (""#sh4plk1#"");
oChan.DPs().Add (oSys);
oSys.Channel (oChan.ID() );

}

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


var sh4plk2 = "Temp-P4PM_switch 1_apower" ;
!WriteLine(sh4plk2) ;

 string sName= ""#sh4plk2#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro4PM");
  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 = SHP4PM21266R
  dom.RTUpdate(0);

}


var sh4plk2 =  sh4pk2name + "_Leistung" ;
!WriteLine(sh4plk2) ;

 string sName= ""#sh4plk2#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro4PM");
  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 = SHP4PM21266R
  dom.RTUpdate(0);

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

}


! Kanal 3
if (sh4pl3 == "J" ) {
    
    var sh4plk3 = "Temp-P4PM_switch 2_apower" ;
!WriteLine(sh4plk3) ;

 string sName= ""#sh4plk3#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro4PM");
  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 = SHP4PM21266R
  dom.RTUpdate(0);
}

var sh4plk3 =  sh4pk3name + "_Leistung" ;
!WriteLine(sh4plk3) ;

 string sName= ""#sh4plk3#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro4PM");
  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 = SHP4PM21266R
  dom.RTUpdate(0);
}

object oChan= channels.Get (""#sh4pk3name#"");
object oSys=dom.GetObject (ID_SYSTEM_VARIABLES).Get (""#sh4plk3#"");
oChan.DPs().Add (oSys);
oSys.Channel (oChan.ID() );

}


! Kanal 4
if (sh4pl4 == "J" ) {
    
    var sh4plk4 = "Temp-P4PM_switch 3_apower" ;
!WriteLine(sh4plk4) ;

 string sName= ""#sh4plk4#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro4PM");
  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 = SHP4PM21266R
  dom.RTUpdate(0);
}

var sh4plk4 =  sh4pk4name + "_Leistung" ;
!WriteLine(sh4plk4) ;

 string sName= ""#sh4plk4#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro4PM");
  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 = SHP4PM21266R
  dom.RTUpdate(0);
}

object oChan= channels.Get (""#sh4pk4name#"");
object oSys=dom.GetObject (ID_SYSTEM_VARIABLES).Get (""#sh4plk4#"");
oChan.DPs().Add (oSys);
oSys.Channel (oChan.ID() );

}


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

if (sh4ponl == "J")  {

var sh4ponln = "Online-Status_" + sh4pname ;
!WriteLine(sh4ponln) ;

string sName= ""#sh4ponln#"";  ! Onlinestatus
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPro4PM");
  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 = SHP4PM21266R
  dom.RTUpdate(0);


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


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

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

if ((sh4ponl ) == "J" ) {
dom.GetObject (""#sh4ponln#"").State(1);
WriteLine("ShellyPro 4PM ist online");
                 }


! Statusabfrage

! url ohne RL
var url = sh4pip + "/rpc/Shelly.GetStatus";
WriteLine(url);

! url mit RL
if ( sh4prl == "J") {
var url = sh4pbn + ":" + sh4ppw +"@" +sh4pip + "/rpc/Shelly.GetStatus";
WriteLine(url);
                           }


!****Abfrage des ShellyPro 4M *****
dom.GetObject(""#execsh4p#".CMD_SETS").State("wget -q -O - '"#url#"'");
dom.GetObject(""#execsh4p#".CMD_QUERY_RET").State(1);
string Antwort = dom.GetObject(""#execsh4p#".CMD_RETS").State();
string t = dom.GetObject(""#execsh4p#".CMD_RETS").State();
dom.GetObject(""#execsh4p#".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-P4PM_";
!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 *
!****************************


! gewünschte-Werte lesen und zuordnen

if ( sh4pl1 == "J" ) {
var p1 = dom.GetObject("Temp-P4PM_switch 0_apower").State();
dom.GetObject(sh4plk1).State(p1);
}

if ( sh4pl2 == "J" ) {
var p2 = dom.GetObject("Temp-P4PM_switch 1_apower").State();
dom.GetObject(sh4plk2).State(p2);
}

if ( sh4pl3 == "J" ) {
var p3 = dom.GetObject("Temp-P4PM_switch 2_apower").State();
dom.GetObject(sh4plk3).State(p3);
}

if ( sh4pl4 == "J" ) {
var p4 = dom.GetObject("Temp-P4PM_switch 3_apower").State();
dom.GetObject(sh4plk4).State(p4);
}

WriteLine("Skript V2.1.2 beendet");

! ENDE SKRIPT

Alles anzeigen

Changelog:

10.05.2022 V2.1.1 Fehlerkorrektur Kanal 4

Vielen Dank für den Hinweis von eltschi .

19.01.2022 V 2.0.1 (Versionsdatum 19.01.2021)

Auswertung komplett überarbeitet für Firmware >= 0.9.x

Bitte vor Einsatz des neuen Skriptes alle Variablen des ShellyPro 4PM löschen!

Mein Dank an 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/for…opic.php?p=672027#p672027

(weitere Hintergrundinfos und Quellangaben hier)

22.08.2021 V 1.0.0 (Versionsdatum 22.08.2021)

Restrict-Login integriert

22.08.2021 V0.1.0 (Versionsdatum: 21.08.2021)

Erstveröffentlichung als Beta

Es fehlt noch Restrict-Login und Code-Bereinigung

Funktional bereits ohne Restrict-Login nutzbar

____________________________________________________________

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).

____________________________________________________________

ShellyPro 4PM goes Homematic - mit der Originalfirmware

Ähnliche Themen

Shelly (1. Gen.) goes Homematic - Übersicht

Briefkastenanlage – smarte Klingel und smarte Postklappe (Projekt)

Shelly Dimmer2 goes Homematic - mit der Originalfirmware

Shelly 1L über Homematic CCU3 ansteuern und Status auslesen.

1 Homematic-Taste steuert Shelly Dimmer ->IO Broker

Temperatur-Addon mit DHT22 goes Homematic - mit der Originalfirmware

Tags