Mit AutoHotKey hatte ich noch nie zu tun...
Habe ein paar Werte angepasst und ergänzt.
Läuft bei mir jetzt im Probebetrieb...
#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
}
Alles anzeigen