Einiges klappt, aber ich kämpfe noch:
Vielleicht können wir ja per Remote gemeinsam drauf schauen - wenn Du Lust hast...
lG Jörg
Mit AutoHotKey hatte ich noch nie zu tun...
Habe ein paar Werte angepasst und ergänzt.
Läuft bei mir jetzt im Probebetrieb...
Nochmal besten Dank, lieber Thomas!
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
;Version 1.1
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
SetTitleMatchMode, 2
DetectHiddenWindows, On
loop
{
;fenster := "ecopower - ecoServ zum Mini-BHKW"
;msgbox %fenstertitel%
;WinMaximize, "ecopower - ecoServ zum Mini-BHKW"
if WinExist("ecoServ - ecoPOWER 3.0/4.7")
{
WinActivate ; Use the window found by WinExist.
WinWaitActive
;WinMaximize
;WinRestore
;send !m
}
else
{
Run, C:\Users\weichelt\Desktop\BHKW - ecoServ_C-1\ecoServ.exe,,Max
sleep 5000
WinWaitActive, ecoServ - ecoPOWER 3.0/4.7,, 2
if ErrorLevel
{
MsgBox, Ecoserve schließen und dann neu starten
ExitApp
}
else
send !m
sleep 1000
send !v
sleep 2000
}
ControlGetText,T_SP3_unten,TDispValues2
ControlGetText,T_SP2_mitte,TDispValues3
ControlGetText,T_RL_BHKW,TDispValues4
ControlGetText,Kuehlfluessigkeit,TDispValues5
ControlGetText,Betriebsmodus,TDispValues6
ControlGetText,ThermLeistung,TDispValues7
ControlGetText,dzsoll,TDispValues8
ControlGetText,T_SP1_WW,TDispValues9
ControlGetText,GasMotor,TDispValues10
ControlGetText,GasSteuerung,TDispValues11
ControlGetText,DzSollMotor,TDispValues12
ControlGetText,DzSollWechsel,TDispValues13
ControlGetText,DzSollSteuerung,TDispValues14
ControlGetText,DzIstMotor,TDispValues15
ControlGetText,DzIstWechsel,TDispValues16
ControlGetText,DzIstSteuerung,TDispValues17
ControlGetText,Warnungen,TDispValues19
ControlGetText,Motorelektronik,TDispValues20
ControlGetText,Wechselrichter,TDispValues21
ControlGetText,Steuerung,TDispValues22
ControlGetText,BHKWFehler,TDispValues23
ControlGetText,ElLeistung,TDispValues24
ControlGetText,RaumTemp2,TDispValues33
ControlGetText,VorlaufTemp2,TDispValues38
ControlGetText,AussenTemp,TDispValues40
ControlGetText,AussenTempMid,TDispValues41
ControlGetText,VorlaufTemp1,TDispValues43
ControlGetText,RaumTemp1,TDispValues46
ControlGetText,BetriebsStunden,TDispValues79
ControlGetText,ElEnergie,TDispValues83
ControlGet,Warnungen,List, Selected,TBHKWErrorListBox1
ControlGet,AktuelleEreignisse,List, Selected,TBHKWErrorListBox2
if (bhkwFehler = "Sicherheit")
{
send !z
sleep 100
send s
sleep 500
}
StringReplace,warnungen,warnungen,`r`n`r`n,X,All
warnungen := RegExReplace(warnungen, "\r\n|\r|\n", " / ")
aktFehler := RegExReplace(aktFehler, "\r\n|\r|\n", " / ")
;msgbox %aktFehler%
FormatTime, Timestamp,A_Now, dd.MM.yyyy HH:mm:ss tt
;msgbox %Timestamp%
mqtt = "
(
{
\"Timestamp\": \"%Timestamp%\",
\"T_SP3_unten\": \"%T_SP3_unten%\",
\"T_SP2_mitte\": \"%T_SP2_mitte%\",
\"T_RL_BHKW\": \"%T_RL_BHKW%\",
\"Kuehlfluessigkeit\": \"%Kuehlfluessigkeit%\",
\"Betriebsmodus\": \"%Betriebsmodus%\",
\"ThermLeistung\": \"%ThermLeistung%\",
\"dzsoll\": \"%dzsoll%\",
\"T_SP1_WW\": \"%T_SP1_WW%\",
\"GasMotor\": \"%GasMotor%\",
\"GasSteuerung\": \"%GasSteuerung%\",
\"DzSollMotor\": \"%DzSollMotor%\",
\"DzSollWechsel\": \"%DzSollWechsel%\",
\"DzSollSteuerung\": \"%DzSollSteuerung%\",
\"DzIstMotor\": \"%DzIstMotor%\",
\"DzIstWechsel\": \"%DzIstWechsel%\",
\"DzIstSteuerung\": \"%DzIstSteuerung%\",
\"Warnungen\": \"%Warnungen%\",
\"Motorelektronik\": \"%Motorelektronik%\",
\"Wechselrichter\": \"%Wechselrichter%\",
\"Steuerung\": \"%Steuerung%\",
\"BHKWFehler\": \"%BHKWFehler%\",
\"ElLeistung\": \"%ElLeistung%\",
\"RaumTemp2\": \"%RaumTemp2%\",
\"VorlaufTemp2\": \"%VorlaufTemp2%\",
\"AussenTemp\": \"%AussenTemp%\",
\"AussenTempMid\": \"%AussenTempMid%\",
\"VorlaufTemp1\": \"%VorlaufTemp1%\",
\"RaumTemp1\": \"%RaumTemp1%\",
\"BetriebsStunden\": \"%BetriebsStunden%\",
\"ElEnergie\": \"%ElEnergie%\"
}
)"
run, C:\Users\weichelt\Desktop\mqtt-cli.exe pub -h 192.168.1.2 -u geheim -pw geheim -t sensors/keller/bhkw -m %mqtt%,,Min
sleep 30000
}Danke lieber Thomas.
Was lange währt...
Habe mal was Ähnliches, direkt vom Bildschirm lesen, versucht, hat aber nicht funktioniert.
Werden das aber jetzt noch einmal versuchen....
lG Jörg
Danke für den Hinweis. Ich werde mich mal durchwühlen...
Schade. Ist das Protokoll denn "geheim". Nach 10 Jahren ist doch mit der Software kein Geld mehr zu verdienen - die Windows-Soft wird ja auch nicht mehr gepflegt...
Hallo Tobi!
Ich suche auch: EcoPower 4.7 - Daten auslesen - serielle Schnittstelle
Wenn Du was hörst....
Mit freundlichen Grüßen
Jörg
Ich würde mich nach wie vor über Eure Unterstützung hierzu freuen.
Jeder kleine Hinweis ist mehr als willkommen...
lG Jörg
Hallo BHKW-Freunde!
Mein EcoPower 4.7 ist jetzt über 10 Jahre alt - läuft aber seit dem Motortausch gut.
Der Besuch mit dem Notebook im Keller um die Daten auszulesen hat mich immer genervt - da musste eine andere Lösung her.
Mit Hilfe einses RaspberryPi, eines seriel-to-usb-Adapters und etwas Software habe ich die serielle Schnittstelle über unser WLAN bis zum Notebook im Wohnzimmer verlängert.
Hier läuft die EcoServ-Software unter Windows.
Da ich meine Daten aber in einer Datenbank sammele, muss ich diese in EcoServ exportieren, konvertieren und dann in die DB einspielen - nervige manuelle Arbeit...
Ich würde also gerne die Daten direkt an der seriellen Schnittstelle abholen und in die DB einspielen.
Leider habe ich keinerlei Info über das verwendete Protokoll an dieser Stelle..
Auch keinen Hersteller-Kontakt - Vaillant kann dazu nix sagen.
Kann vielleicht jemand von Euch helfen?
lG aus Münster
Jörg