Mitsubishi varmepumpe og MELCloud

[Christian]

Jeg fikk idag montert Wifi adapteret til varmepumpa, og har begynt å se på hvordan jeg skal få den inn i Homeseer.

Jeg forsøker å tyde :

 

http://mgeek.fr/blog/un-peu-de-reverse-engineering-sur-melcloud (med google translate) og 

https://www.domoticz.com/forum/viewtopic.php?f=34&t=7496&start=20

 

Har kommet til : 

curl --data "AppVersion=1.7.1.0&Language=7&CaptchaChallenge´=&CaptchaResponse=&Persist=true&Email=epost&Password=passord" https://app.melcloud.com/Mitsubishi.Wifi.Client/Login/ClientLogin

gir meg innlogging og også en Contextkey

 

curl -v --header "X-MitsContextKey: ContextKey" https://app.melcloud.com/Mitsubishi.Wifi.Client/User/ListDevices

gir meg ID og buildingID

 

curl -v --header "X-MitsContextKey: ContextKey" https://app.melcloud.com/Mitsubishi.Wifi.Client/User/ListDevices?id=id&buildingID=buildingID

Gir meg all status som er i MelCloud adapteret. Så da er det bare å lage Virtuelle device og dekode Json, så kan man lese verdier i Homeseer. 

Endret 20. september 2017 av Christian

[Marhil]

Takk for innsatsen!

Tok meg den frihet å dele funnene dine på Home Assistant-forumet.

[Christian]

Det er nok helt greit... jeg skal jobbe videre med tingene, er barelitt opptatt i hegen... Har funnet kimen til noen c# script som jeg tenkte jeg skulle bruke

 

[Marhil]

Har samme type varmepumpe i huset vi kjøpte, så jeg håper noen tar opp tråden i Home Assistant. Må bare ha litt flaks (en utvikler som ønsker det samme) [emoji6]

[Moskus]

På 9/20/2017 den 23.00, Christian skrev:

Så da er det bare å lage Virtuelle device og dekode Json, så kan man lese verdier i Homeseer. 

Plugin?  

[Christian]

Har vurdert det men må først få den j*%%**%% Json dekodinga med linq til å funke, og se at man faktisk får til å skrive til adapteret


Sent from my iPhone using Tapatalk

[Christian]

Etter hjelp fra @roarfred har jeg kommet ett godt stykke lenger, nå har jeg fått de første verdiene inn i Homeseer 

Endret 25. september 2017 av Christian

[Christian]

Sliter litt med å få sendt den ene get setninga til pumpa. Det som fungerer er det som jeg har gjort med "Rested" ett gui for curl på mac. Se bilde under.

 

 

curl --header "X-MitsContextKey:key" --get --data "buildingid=buildingid&id=id" https://app.melcloud.com/Mitsubishi.Wifi.Client/Devices/Get

 

 

så fungerer det ikke.

Har også tested med hs.urlaction men fungerer ikke der heller.

 

hs.urlaction("https://app.melcloud.com/Mitsubishi.Wifi.Client/Device/Get?id=id &buildingID=buildingid", "GET","X-MitsContextkey:key","")

Noen som har en god ide hvorfor det ikke fungerer med curl (tekstbasert) eller hs.urlaction

 

Endret 27. september 2017 av Christian

[ZoRaC]

Akkurat nå har du et mellomrom mellom «id» og «&» i koden. 

[Christian]

1 minutt siden, ZoRaC skrev:

Akkurat nå har du et mellomrom mellom «id» og «&» i koden. 

Det ser ikke jeg at jeg har.. men har forsøkt å skrevet inn curlen mange ganger uten hell

[ZoRaC]

11 minutter siden, Christian skrev:

Det ser ikke jeg at jeg har.. men har forsøkt å skrevet inn curlen mange ganger uten hell

 

Mulig det bare vises feil i forumet da?

 

Noen feilmeldinger i loggen?

[Christian]

Feilmelding er som følgende : 

In URLAction GET: Kan ikke sende en innholdstekst med denne verbtypen

Endret 27. september 2017 av Christian

[ZoRaC]

Skal ikke de to siste parameterene bytte plass? «Data», «headers»?

[Christian]

hs.URLAction(URL, HTTPMethod, "id=id&buildingid=buildingid", HTTPHeader) fungerer heller ikke

[ZoRaC]

8 timer siden, Christian skrev:

hs.urlaction("https://app.melcloud.com/Mitsubishi.Wifi.Client/Device/Get?id=id&buildingID=buildingid", "GET", "", "X-MitsContextkey:key")

 

Sånn, mente jeg?

[Christian]

Fungerer ikke det heller... 

[Christian]

Ser at dette etterhvert burde ligget undet script. Men jeg har laget flere funksjoner i scriptet. Blant annet : 

    Public Sub MELSetTemperature(ByVal ParameterValue As String)

        Read_keys_from_ini()

        HTTPMethod = "POST"
        SetParameter = "Settemperature"
        debugname = debugname & " - " & SetParameter
        EffectiveFlags = 4

        URL = "https://app.melcloud.com/Mitsubishi.Wifi.Client/Device/SetAta"

        Parameter = "DeviceID=" & strMelDeviceID_Ini & "&" & SetParameter & "=" & ParameterValue & "&HasPendingCommand=" & PendingCommand & "&EffectiveFlags=" & EffectiveFlags
        Dim Settemp As String = hs.URLAction(URL, HTTPMethod, Parameter, Header & ":" & strMELContextKey)
        If debug Then
            hs.WriteLog(debugname, SetParameter)
        End If


    End Sub

Jeg forsøker å kjøre dette fra en Event og får følgende melding i loggen : 

 

 

Jeg har forsøkt med Melcloud.MelSetTemperature(24), MelSetTemperature(24), og MelSetTemperature()24, men får samme feilmeldingen

 

Er dette noe av det samme som :

 

 

Takler ikke HS at man kjører sub'er med parameter, slik at man må kjøre suber gjennom main()

 

Noen som har en løsning ?

Endret 2. oktober 2017 av Christian

[Moskus]

12 timer siden, Christian skrev:

Takler ikke HS at man kjører sub'er med parameter, slik at man må kjøre suber gjennom main()

Jo, det går fint. Men det kan være at du må bruke Object isteden for String i linja:

Public Sub MELSetTemperature(ByVal ParameterValue As String)

Slik at den blir

Public Sub MELSetTemperature(ByVal ParameterValue As Object)

 

Slik jeg ser det så har du jo også et problem siden du ikke deklarerer variablene dine. Eller er dette globale variabler av en eller annen grunn?

[Christian]

Akkurat nå, Moskus skrev:

Slik jeg ser det så har du jo også et problem siden du ikke deklarerer variablene dine. Eller er dette globale variabler av en eller annen grunn?

 

Er globale... bruker dem i flere subs.

Fant en tråd om dette med subs og parameter, der også med string. testa den og det funka, så testa jeg min på samme måte, og vips så fungerte det.

[Moskus]

Så uten å gjøre noe som helst så fungerte det?

[Christian]

ja

[Moskus]

Ja, det gir jo mening... ?

[ATWindsor]

Har du fått til det du vil med Melcloud? Jeg kan lite VBA(?), men det ser ut som man bare kan sende det som regulære webcommandoer?

[Moskus]

VB.net, mann!  

Men ja, det er en web API.

[Christian]

Har du fått til det du vil med Melcloud? Jeg kan lite VBA(?), men det ser ut som man bare kan sende det som regulære webcommandoer?

 

 

Jeg har fått til en del, må kjøre webcommandoer og får json til svar, så må de deserialiseres, og puttes inn i devicer

 

 

Sent from my iPhone using Tapatalk