Gå til innhold
  • Bli medlem
Støtt hjemmeautomasjon.no!

Mitsubishi varmepumpe og MELCloud


Christian

Anbefalte innlegg

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 av Christian
  • Like 2
Lenke til kommentar
Del på andre sider

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

 

Rested.gif

Endret av Christian
Lenke til kommentar
Del på andre sider

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 : 

 

Screen Shot 2017-10-02 at 23.46.01.png

 

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 av Christian
Lenke til kommentar
Del på andre sider

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?

Lenke til kommentar
Del på andre sider

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.

Lenke til kommentar
Del på andre sider

  • 1 måned senere...
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

Lenke til kommentar
Del på andre sider

Bli med i samtalen

Du kan publisere innhold nå og registrere deg senere. Hvis du har en konto, logg inn nå for å poste med kontoen din.

Gjest
Skriv svar til emnet...

×   Du har limt inn tekst med formatering.   Lim inn uten formatering i stedet

  Du kan kun bruke opp til 75 smilefjes.

×   Lenken din har blitt bygget inn på siden automatisk.   Vis som en ordinær lenke i stedet

×   Tidligere tekst har blitt gjenopprettet.   Tøm tekstverktøy

×   Du kan ikke lime inn bilder direkte. Last opp eller legg inn bilder fra URL.

×
×
  • Opprett ny...

Viktig informasjon

Vi har plassert informasjonskapsler/cookies på din enhet for å gjøre denne siden bedre. Du kan justere dine innstillinger for informasjonskapsler, ellers vil vi anta at dette er ok for deg.