Homeputer Studio und Pushnachrichten

Programmierung der FHZ-Zentralen mit contronics homeputer Standard / homeputer Studio & WEB-Server

Moderator: Co-Administratoren

Antworten
m.jansen
Beiträge: 219
Registriert: 16.03.2011, 16:30
Wohnort: Aachen

Homeputer Studio und Pushnachrichten

Beitrag von m.jansen » 28.02.2014, 15:41

Hallo,

ich haben nun mehrfach hier in Verbindung mit der CCU dazu lesen können.

Ich habe aber keine nur Homeputer Studio,und wollte damit Nachrichten senden.
Hat das schon einer gemacht?
Gibt es da beispiele für?

Oder kann ich denn das doch aus den CCU Beispielen für mich irgendwie nutzen?

Besitze schon das Konto und die App von Pushover!

Danke vorab,

Mfg.
m.jansen
Nach oben
Benutzeravatar
Herbert_Testmann
Beiträge: 11062
Registriert: 17.01.2009, 11:30
Danksagung erhalten: 7 Mal

Re: Homeputer Studio und Pushnachrichten

Beitrag von Herbert_Testmann » 28.02.2014, 17:18

Hallo

hast Du HP für FHZ, oder hast Du HP Studio CL auf einem PC ? Odre CL Box?

Evtl. kann man das Makro kürzen, ich habe es aber bei der Erweiterung auf 2 Personen nicht anders hin bekommen.

Code: Alles auswählen

// senden aus einem anderen Makro mit
//
//    PROWL_SEND.Empfaenger:="Person1"
//    PROWL_SEND.Betreff:="Warnung xy"
//    PROWL_SEND.Text:="Achtung! xy äöü geht auch"
//    PROWL_SEND.Dringlichkeit:="-2"
//    Aufrufen(PROWL_SEND)
//
//Variablen
//API_Person1 [Zeichen]
//Empfaenger [Zeichen]
//Betreff [Zeichen]
//Anweisung_Person1 [Zeichen]
//Text [Zeichen]
//Counter_ZW [Zahl]
//Dringlichkeit [Zeichen]
//Zeile [Zeichen]
//Antwort [Zeichen]
//Gesendet [Schalter]
//
    API_Person1:="0126..."
    API_Person2:="96b..."
//
Wenn Empfaenger = "Person1" dann
Empfaenger:="X_"+Empfaenger
//
    Wenn Dringlichkeit < -2 oder Dringlichkeit > 2 dann
       Dringlichkeit:=0
    endewenn
    wenn Betreff= "" dann
     Betreff:="Es wurde kein Thema eingegeben"
    endewenn
    wenn Text= "" dann
     Betreff:="Es wurde kein Text definiert."
    endewenn
//
Betreff:=Ersetzen(Betreff," ","%20")
Betreff:=Ersetzen(Betreff,"ä","%C3%A4")
Betreff:=Ersetzen(Betreff,"ö","%C3%B6")
Betreff:=Ersetzen(Betreff,"ü","%C3%BC")
Betreff:=Ersetzen(Betreff,"Ä","%C3%84")
Betreff:=Ersetzen(Betreff,"Ö","%C3%96")
Betreff:=Ersetzen(Betreff,"Ü","%C3%9C")
Betreff:=Ersetzen(Betreff,"ß","%C3%9F")
Betreff:=Ersetzen(Betreff,"#","%23")
Betreff:=Ersetzen(Betreff,"+","%2B")
Betreff:=Ersetzen(Betreff,"&","%26")
Betreff:=Ersetzen(Betreff,"Sonne_","%E2%98%BC")
Betreff:=Ersetzen(Betreff,"Smiley2","%E2%98%BB")
Betreff:=Ersetzen(Betreff,"Smiley","%E2%98%BA")
Betreff:=Ersetzen(Betreff,"Bullet","%E2%80%A2")
Betreff:=Ersetzen(Betreff,"Promille","%E2%80%B0")
Betreff:=Ersetzen(Betreff,"~","%CB%9C")
Betreff:=Ersetzen(Betreff,"Doppelpfeil_rechts","%E2%87%92")
Betreff:=Ersetzen(Betreff,"(C)","%C2%A9")
Betreff:=Ersetzen(Betreff,"(R)","%C2%AE")
Betreff:=Ersetzen(Betreff,"<<","%0A")
Betreff:=Ersetzen(Betreff,"°","%C2%B0")
Text:=Ersetzen(Text," ","%20")
Text:=Ersetzen(Text,"ä","%C3%A4")
Text:=Ersetzen(Text,"ö","%C3%B6")
Text:=Ersetzen(Text,"ü","%C3%BC")
Text:=Ersetzen(Text,"Ä","%C3%84")
Text:=Ersetzen(Text,"Ö","%C3%96")
Text:=Ersetzen(Text,"Ü","%C3%9C")
Text:=Ersetzen(Text,"ß","%C3%9F")
Text:=Ersetzen(Text,"#","%23")
Text:=Ersetzen(Text,"+","%2B")
Text:=Ersetzen(Text,"&","%26")
Text:=Ersetzen(Text,"Sonne_","%E2%98%BC")
Text:=Ersetzen(Text,"Smiley2","%E2%98%BB")
Text:=Ersetzen(Text,"Smiley","%E2%98%BA")
Text:=Ersetzen(Text,"Bullet","%E2%80%A2")
Text:=Ersetzen(Text,"Promille","%E2%80%B0")
Text:=Ersetzen(Text,"~","%CB%9C")
Text:=Ersetzen(Text,"Doppelpfeil_rechts","%E2%87%92")
Text:=Ersetzen(Text,"(C)","%C2%A9")
Text:=Ersetzen(Text,"(R)","%C2%AE")
Text:=Ersetzen(Text,"<<","%0A")
Text:=Ersetzen(Text,"°","%C2%B0")
//
    Anweisung_Person1 := "http://prowl.weks.net/publicapi/add?apikey="+API_Person1+"&application=CCU&event="+Betreff+"&priority="+Dringlichkeit+"\&description="+Text
//
counterZW1:=counterZW1+1
    wenn counterZW1 < 20 oder Dringlichkeit > 0 dann
             GetSite(Anweisung_Person1,80,Antwort)
             Gesendet:=1
    endewenn
//
    wenn counterZW1 = 20 dann
       warte("00:00:10")
       Betreff:="Systemhinweis"
    Text:="Innerhalb%20der%20letzten%20Stunde%20wurden%20"+counterZW1+"%20Nachrichten%20verschickt.%20Da%20scheint%20etwas%20gehoerig%20daneben%20zu%20gehen.%20Bis%20zur%20naechsten%20Stunde%20werden%20nur%20noch%20dringende%20Nachrichten%20geschickt."
       Dringlichkeit:=0
       Anweisung_Person1 := "http://prowl.weks.net/publicapi/add?apikey="+API_Person1+"&application=CCU&event="+Betreff+"&priority="+Dringlichkeit+"\&description="+Text
       GetSite(Anweisung_Person1,80,Antwort)
    endewenn
//
wenn NICHT DATEIVORHANDEN("Prowl_Log.txt") dann
          Zeile := "Uhrzeit;Empfaenger;Betreff;Text;Dringlichkeit;"
          Schreibedatei("Prowl_Log.txt",Zeile,2)
          SCHLIESSEDATEIEN
    endewenn
//
    Zeile:=Uhrzeit+";"+Empfaenger+";"+Betreff+";"+Text+";"+Dringlichkeit+";"
    SCHREIBEDATEI("Prowl_Log.txt",Zeile,2)
    Betreff:=""
    Text:=""
    Empfaenger:=""
    Dringlichkeit:=0
    Gesendet:=0
endewenn
//
// Person 2
//
Wenn Empfaenger = "Person2" dann
Empfaenger:="X_"+Empfaenger
//
    Wenn Dringlichkeit < -2 oder Dringlichkeit > 2 dann
       Dringlichkeit:=0
    endewenn
    wenn Betreff= "" dann
     Betreff:="Es wurde kein Thema eingegeben"
    endewenn
    wenn Text= "" dann
     Betreff:="Es wurde kein Text definiert."
    endewenn
//
Betreff:=Ersetzen(Betreff," ","%20")
Betreff:=Ersetzen(Betreff,"ä","%C3%A4")
Betreff:=Ersetzen(Betreff,"ö","%C3%B6")
Betreff:=Ersetzen(Betreff,"ü","%C3%BC")
Betreff:=Ersetzen(Betreff,"Ä","%C3%84")
Betreff:=Ersetzen(Betreff,"Ö","%C3%96")
Betreff:=Ersetzen(Betreff,"Ü","%C3%9C")
Betreff:=Ersetzen(Betreff,"ß","%C3%9F")
Betreff:=Ersetzen(Betreff,"#","%23")
Betreff:=Ersetzen(Betreff,"+","%2B")
Betreff:=Ersetzen(Betreff,"&","%26")
Betreff:=Ersetzen(Betreff,"Sonne_","%E2%98%BC")
Betreff:=Ersetzen(Betreff,"Smiley2","%E2%98%BB")
Betreff:=Ersetzen(Betreff,"Smiley","%E2%98%BA")
Betreff:=Ersetzen(Betreff,"Bullet","%E2%80%A2")
Betreff:=Ersetzen(Betreff,"Promille","%E2%80%B0")
Betreff:=Ersetzen(Betreff,"~","%CB%9C")
Betreff:=Ersetzen(Betreff,"Doppelpfeil_rechts","%E2%87%92")
Betreff:=Ersetzen(Betreff,"(C)","%C2%A9")
Betreff:=Ersetzen(Betreff,"(R)","%C2%AE")
Betreff:=Ersetzen(Betreff,"<<","%0A")
Betreff:=Ersetzen(Betreff,"°","%C2%B0")
Text:=Ersetzen(Text," ","%20")
Text:=Ersetzen(Text,"ä","%C3%A4")
Text:=Ersetzen(Text,"ö","%C3%B6")
Text:=Ersetzen(Text,"ü","%C3%BC")
Text:=Ersetzen(Text,"Ä","%C3%84")
Text:=Ersetzen(Text,"Ö","%C3%96")
Text:=Ersetzen(Text,"Ü","%C3%9C")
Text:=Ersetzen(Text,"ß","%C3%9F")
Text:=Ersetzen(Text,"#","%23")
Text:=Ersetzen(Text,"+","%2B")
Text:=Ersetzen(Text,"&","%26")
Text:=Ersetzen(Text,"Sonne_","%E2%98%BC")
Text:=Ersetzen(Text,"Smiley2","%E2%98%BB")
Text:=Ersetzen(Text,"Smiley","%E2%98%BA")
Text:=Ersetzen(Text,"Bullet","%E2%80%A2")
Text:=Ersetzen(Text,"Promille","%E2%80%B0")
Text:=Ersetzen(Text,"~","%CB%9C")
Text:=Ersetzen(Text,"Doppelpfeil_rechts","%E2%87%92")
Text:=Ersetzen(Text,"(C)","%C2%A9")
Text:=Ersetzen(Text,"(R)","%C2%AE")
Text:=Ersetzen(Text,"<<","%0A")
Text:=Ersetzen(Text,"°","%C2%B0")
//
    Anweisung_Person2 := "http://prowl.weks.net/publicapi/add?apikey="+API_Person2+"&application=CCU&event="+Betreff+"&priority="+Dringlichkeit+"\&description="+Text
//
counterZW2:=counterZW2+1
    wenn counterZW2 < 20 oder Dringlichkeit > 0 dann
             GetSite(Anweisung_Person2,80,Antwort)
             Gesendet:=1
    endewenn
//
    wenn counterZW2 = 20 dann
       warte("00:00:10")
       Betreff:="Systemhinweis"
    Text:="Innerhalb%20der%20letzten%20Stunde%20wurden%20"+counterZW2+"%20Nachrichten%20verschickt.%20Da%20scheint%20etwas%20gehoerig%20daneben%20zu%20gehen.%20Bis%20zur%20naechsten%20Stunde%20werden%20nur%20noch%20dringende%20Nachrichten%20geschickt."
       Dringlichkeit:=0
       Anweisung_Person2 := "http://prowl.weks.net/publicapi/add?apikey="+API_Person2+"&application=CCU&event="+Betreff+"&priority="+Dringlichkeit+"\&description="+Text
       GetSite(Anweisung_Person2,80,Antwort)
    endewenn
//
wenn NICHT DATEIVORHANDEN("Prowl_Log.txt") dann
          Zeile := "Uhrzeit;Empfaenger;Betreff;Text;Dringlichkeit;"
          Schreibedatei("Prowl_Log.txt",Zeile,2)
          SCHLIESSEDATEIEN
    endewenn
//
    Zeile:=Uhrzeit+";"+Empfaenger+";"+Betreff+";"+Text+";"+Dringlichkeit+";"
    SCHREIBEDATEI("Prowl_Log.txt",Zeile,2)
    Betreff:=""
    Text:=""
    Empfaenger:=""
    Dringlichkeit:=0
    Gesendet:=0
endewenn
---
Dieses Schreiben wurde maschinell erstellt und ist ohne Unterschrift gültig
Nach oben
m.jansen
Beiträge: 219
Registriert: 16.03.2011, 16:30
Wohnort: Aachen

Re: Homeputer Studio und Pushnachrichten

Beitrag von m.jansen » 28.02.2014, 17:56

Hi,
ja ich habe die FHZ 1300 PC mit Homeputer Studio,sorry hab vergessen :-(

Besten Dank ich versuche das mal direkt :-)
Nach oben
m.jansen
Beiträge: 219
Registriert: 16.03.2011, 16:30
Wohnort: Aachen

Re: Homeputer Studio und Pushnachrichten

Beitrag von m.jansen » 28.02.2014, 18:37

Hmm,
also hab jetzt fogendes gemacht.

1.) objekt typ Makro namens " PROWL_SEND"
- In dem makro dann den code rein von dir

Code: Alles auswählen

API_Person1:="0126..."
    API_Person2:="96b..."
//
Wenn Empfaenger = "Person1" dann
Empfaenger:="X_"+Empfaenger
//
    Wenn Dringlichkeit < -2 oder Dringlichkeit > 2 dann
       Dringlichkeit:=0
    endewenn
    wenn Betreff= "" dann
     Betreff:="Es wurde kein Thema eingegeben"
    endewenn
    wenn Text= "" dann
     Betreff:="Es wurde kein Text definiert."
    endewenn
//
Betreff:=Ersetzen(Betreff," ","%20")
Betreff:=Ersetzen(Betreff,"ä","%C3%A4")
Betreff:=Ersetzen(Betreff,"ö","%C3%B6")
Betreff:=Ersetzen(Betreff,"ü","%C3%BC")
Betreff:=Ersetzen(Betreff,"Ä","%C3%84")
Betreff:=Ersetzen(Betreff,"Ö","%C3%96")
Betreff:=Ersetzen(Betreff,"Ü","%C3%9C")
Betreff:=Ersetzen(Betreff,"ß","%C3%9F")
Betreff:=Ersetzen(Betreff,"#","%23")
Betreff:=Ersetzen(Betreff,"+","%2B")
Betreff:=Ersetzen(Betreff,"&","%26")
Betreff:=Ersetzen(Betreff,"Sonne_","%E2%98%BC")
Betreff:=Ersetzen(Betreff,"Smiley2","%E2%98%BB")
Betreff:=Ersetzen(Betreff,"Smiley","%E2%98%BA")
Betreff:=Ersetzen(Betreff,"Bullet","%E2%80%A2")
Betreff:=Ersetzen(Betreff,"Promille","%E2%80%B0")
Betreff:=Ersetzen(Betreff,"~","%CB%9C")
Betreff:=Ersetzen(Betreff,"Doppelpfeil_rechts","%E2%87%92")
Betreff:=Ersetzen(Betreff,"(C)","%C2%A9")
Betreff:=Ersetzen(Betreff,"(R)","%C2%AE")
Betreff:=Ersetzen(Betreff,"<<","%0A")
Betreff:=Ersetzen(Betreff,"°","%C2%B0")
Text:=Ersetzen(Text," ","%20")
Text:=Ersetzen(Text,"ä","%C3%A4")
Text:=Ersetzen(Text,"ö","%C3%B6")
Text:=Ersetzen(Text,"ü","%C3%BC")
Text:=Ersetzen(Text,"Ä","%C3%84")
Text:=Ersetzen(Text,"Ö","%C3%96")
Text:=Ersetzen(Text,"Ü","%C3%9C")
Text:=Ersetzen(Text,"ß","%C3%9F")
Text:=Ersetzen(Text,"#","%23")
Text:=Ersetzen(Text,"+","%2B")
Text:=Ersetzen(Text,"&","%26")
Text:=Ersetzen(Text,"Sonne_","%E2%98%BC")
Text:=Ersetzen(Text,"Smiley2","%E2%98%BB")
Text:=Ersetzen(Text,"Smiley","%E2%98%BA")
Text:=Ersetzen(Text,"Bullet","%E2%80%A2")
Text:=Ersetzen(Text,"Promille","%E2%80%B0")
Text:=Ersetzen(Text,"~","%CB%9C")
Text:=Ersetzen(Text,"Doppelpfeil_rechts","%E2%87%92")
Text:=Ersetzen(Text,"(C)","%C2%A9")
Text:=Ersetzen(Text,"(R)","%C2%AE")
Text:=Ersetzen(Text,"<<","%0A")
Text:=Ersetzen(Text,"°","%C2%B0")
//
    Anweisung_Person1 := "http://prowl.weks.net/publicapi/add?apikey="+API_Person1+"&application=CCU&event="+Betreff+"&priority="+Dringlichkeit+"\&description="+Text
//
counterZW1:=counterZW1+1
    wenn counterZW1 < 20 oder Dringlichkeit > 0 dann
             GetSite(Anweisung_Person1,80,Antwort)
             Gesendet:=1
    endewenn
//
    wenn counterZW1 = 20 dann
       warte("00:00:10")
       Betreff:="Systemhinweis"
    Text:="Innerhalb%20der%20letzten%20Stunde%20wurden%20"+counterZW1+"%20Nachrichten%20verschickt.%20Da%20scheint%20etwas%20gehoerig%20daneben%20zu%20gehen.%20Bis%20zur%20naechsten%20Stunde%20werden%20nur%20noch%20dringende%20Nachrichten%20geschickt."
       Dringlichkeit:=0
       Anweisung_Person1 := "http://prowl.weks.net/publicapi/add?apikey="+API_Person1+"&application=CCU&event="+Betreff+"&priority="+Dringlichkeit+"\&description="+Text
       GetSite(Anweisung_Person1,80,Antwort)
    endewenn
//
wenn NICHT DATEIVORHANDEN("Prowl_Log.txt") dann
          Zeile := "Uhrzeit;Empfaenger;Betreff;Text;Dringlichkeit;"
          Schreibedatei("Prowl_Log.txt",Zeile,2)
          SCHLIESSEDATEIEN
    endewenn
//
    Zeile:=Uhrzeit+";"+Empfaenger+";"+Betreff+";"+Text+";"+Dringlichkeit+";"
    SCHREIBEDATEI("Prowl_Log.txt",Zeile,2)
    Betreff:=""
    Text:=""
    Empfaenger:=""
    Dringlichkeit:=0
    Gesendet:=0
endewenn
//
// Person 2
//
Wenn Empfaenger = "Person2" dann
Empfaenger:="X_"+Empfaenger
//
    Wenn Dringlichkeit < -2 oder Dringlichkeit > 2 dann
       Dringlichkeit:=0
    endewenn
    wenn Betreff= "" dann
     Betreff:="Es wurde kein Thema eingegeben"
    endewenn
    wenn Text= "" dann
     Betreff:="Es wurde kein Text definiert."
    endewenn
//
Betreff:=Ersetzen(Betreff," ","%20")
Betreff:=Ersetzen(Betreff,"ä","%C3%A4")
Betreff:=Ersetzen(Betreff,"ö","%C3%B6")
Betreff:=Ersetzen(Betreff,"ü","%C3%BC")
Betreff:=Ersetzen(Betreff,"Ä","%C3%84")
Betreff:=Ersetzen(Betreff,"Ö","%C3%96")
Betreff:=Ersetzen(Betreff,"Ü","%C3%9C")
Betreff:=Ersetzen(Betreff,"ß","%C3%9F")
Betreff:=Ersetzen(Betreff,"#","%23")
Betreff:=Ersetzen(Betreff,"+","%2B")
Betreff:=Ersetzen(Betreff,"&","%26")
Betreff:=Ersetzen(Betreff,"Sonne_","%E2%98%BC")
Betreff:=Ersetzen(Betreff,"Smiley2","%E2%98%BB")
Betreff:=Ersetzen(Betreff,"Smiley","%E2%98%BA")
Betreff:=Ersetzen(Betreff,"Bullet","%E2%80%A2")
Betreff:=Ersetzen(Betreff,"Promille","%E2%80%B0")
Betreff:=Ersetzen(Betreff,"~","%CB%9C")
Betreff:=Ersetzen(Betreff,"Doppelpfeil_rechts","%E2%87%92")
Betreff:=Ersetzen(Betreff,"(C)","%C2%A9")
Betreff:=Ersetzen(Betreff,"(R)","%C2%AE")
Betreff:=Ersetzen(Betreff,"<<","%0A")
Betreff:=Ersetzen(Betreff,"°","%C2%B0")
Text:=Ersetzen(Text," ","%20")
Text:=Ersetzen(Text,"ä","%C3%A4")
Text:=Ersetzen(Text,"ö","%C3%B6")
Text:=Ersetzen(Text,"ü","%C3%BC")
Text:=Ersetzen(Text,"Ä","%C3%84")
Text:=Ersetzen(Text,"Ö","%C3%96")
Text:=Ersetzen(Text,"Ü","%C3%9C")
Text:=Ersetzen(Text,"ß","%C3%9F")
Text:=Ersetzen(Text,"#","%23")
Text:=Ersetzen(Text,"+","%2B")
Text:=Ersetzen(Text,"&","%26")
Text:=Ersetzen(Text,"Sonne_","%E2%98%BC")
Text:=Ersetzen(Text,"Smiley2","%E2%98%BB")
Text:=Ersetzen(Text,"Smiley","%E2%98%BA")
Text:=Ersetzen(Text,"Bullet","%E2%80%A2")
Text:=Ersetzen(Text,"Promille","%E2%80%B0")
Text:=Ersetzen(Text,"~","%CB%9C")
Text:=Ersetzen(Text,"Doppelpfeil_rechts","%E2%87%92")
Text:=Ersetzen(Text,"(C)","%C2%A9")
Text:=Ersetzen(Text,"(R)","%C2%AE")
Text:=Ersetzen(Text,"<<","%0A")
Text:=Ersetzen(Text,"°","%C2%B0")
//
    Anweisung_Person2 := "http://prowl.weks.net/publicapi/add?apikey="+API_Person2+"&application=CCU&event="+Betreff+"&priority="+Dringlichkeit+"\&description="+Text
//
counterZW2:=counterZW2+1
    wenn counterZW2 < 20 oder Dringlichkeit > 0 dann
             GetSite(Anweisung_Person2,80,Antwort)
             Gesendet:=1
    endewenn
//
    wenn counterZW2 = 20 dann
       warte("00:00:10")
       Betreff:="Systemhinweis"
    Text:="Innerhalb%20der%20letzten%20Stunde%20wurden%20"+counterZW2+"%20Nachrichten%20verschickt.%20Da%20scheint%20etwas%20gehoerig%20daneben%20zu%20gehen.%20Bis%20zur%20naechsten%20Stunde%20werden%20nur%20noch%20dringende%20Nachrichten%20geschickt."
       Dringlichkeit:=0
       Anweisung_Person2 := "http://prowl.weks.net/publicapi/add?apikey="+API_Person2+"&application=CCU&event="+Betreff+"&priority="+Dringlichkeit+"\&description="+Text
       GetSite(Anweisung_Person2,80,Antwort)
    endewenn
//
wenn NICHT DATEIVORHANDEN("Prowl_Log.txt") dann
          Zeile := "Uhrzeit;Empfaenger;Betreff;Text;Dringlichkeit;"
          Schreibedatei("Prowl_Log.txt",Zeile,2)
          SCHLIESSEDATEIEN
    endewenn
//
    Zeile:=Uhrzeit+";"+Empfaenger+";"+Betreff+";"+Text+";"+Dringlichkeit+";"
    SCHREIBEDATEI("Prowl_Log.txt",Zeile,2)
    Betreff:=""
    Text:=""
    Empfaenger:=""
    Dringlichkeit:=0
    Gesendet:=0
endewenn
- Folgende Variablen angelegt:

Code: Alles auswählen

API_Person1 [Zeichen]
API_Person2 [Zeichen]
Counter_ZW1 [Zahl]
Counter_ZW2 [Zahl]
Anweisung_Person1 [Zeichen]
Anweisung_Person2 [Zeichen]
Empfaenger [Zeichen]
Betreff [Zeichen]
Text [Zeichen]
Dringlichkeit [Zeichen]
Zeile [Zeichen]
Antwort [Zeichen]
Gesendet [Schalter]
Sobald ich homeputer starte kommt ein Fehler:
Bereichsüberschreitung bei Zahl ??????

Kanntste mir da nochmal nachhelfen bitte?
Nach oben
Benutzeravatar
Herbert_Testmann
Beiträge: 11062
Registriert: 17.01.2009, 11:30
Danksagung erhalten: 7 Mal

Re: Homeputer Studio und Pushnachrichten

Beitrag von Herbert_Testmann » 28.02.2014, 19:17

m.jansen hat geschrieben:Hmm,
also hab jetzt fogendes gemacht.

Sobald ich homeputer starte kommt ein Fehler:
Bereichsüberschreitung bei Zahl ??????

Kanntste mir da nochmal nachhelfen bitte?
Das Makro ist für HP Studio CL.
Es gibt Unterschiede zu der FHZ Version, die ich nicht kenne. Die Unterschiede musst Du selbst finden, oder Buempi muss helfen :)
---
Dieses Schreiben wurde maschinell erstellt und ist ohne Unterschrift gültig
Nach oben
buempi
Ehrenmitglied
Beiträge: 12194
Registriert: 29.07.2006, 15:58
Wohnort: Schweiz
Danksagung erhalten: 5 Mal

Re: Homeputer Studio und Pushnachrichten

Beitrag von buempi » 28.02.2014, 19:19

Hallo m.jansen

Du arbeitest doch mit Homeputer für die FHZ auf dem PC? Da geht dieses Makro für Homeputer CL nicht. Nur schon, dass die Kommentarzeilen nicht mit // eingeleitet werden und es die Anweisung ERSETZEN() nicht gibt. Auch ein GETSITE() gibt es nicht.

Du könntest dir WGET.EXE auf den PC downloaden und dann versuchen, die entsprechende Anweisung über STARTWIN() auszuführen. Leider habe ich aber keine Erfahrung und keine Testmöglichkeiten mit PROWL um dir detailliert weiterhelfen zu können.

Viele Grüsse
Bümpi
Nach oben
m.jansen
Beiträge: 219
Registriert: 16.03.2011, 16:30
Wohnort: Aachen

Re: Homeputer Studio und Pushnachrichten

Beitrag von m.jansen » 28.02.2014, 19:22

ok Danke,hoffe der Retter macht´s ;-)

Aber generell ist das dann die Syntax ja?
Also:
http://prowl.weks.net/publicapi/add?api ... ion="+Text
Nach oben
m.jansen
Beiträge: 219
Registriert: 16.03.2011, 16:30
Wohnort: Aachen

Re: Homeputer Studio und Pushnachrichten

Beitrag von m.jansen » 28.02.2014, 19:26

Ha ha da ist er ja :-)

Trotzdem Danke an euch beide.
ich werde mal mir die wget.exe ansehen

Mfg.
m.jansen
Nach oben
m.jansen
Beiträge: 219
Registriert: 16.03.2011, 16:30
Wohnort: Aachen

Re: Homeputer Studio und Pushnachrichten

Beitrag von m.jansen » 01.03.2014, 17:44

Hallo nochmal,

Hab hier was gefunden,könnte man damit was anfangen?

Code: Alles auswählen

<?php
	// This is a sample php script on how to integrate the http POST request interface for the Geofency app on iOS.
	// This is only a short demo and not a productive script.
	// Feel free to modify this script according to your wishes.

    // Extract json encoded parameters from http POST request.
    $data = json_decode(file_get_contents('php://input'));
    
    // Incoming POST parameters provided by Geofency.
    // $date is a rfc3339 formatted date in the form: yyyy-MM-ddTHH:mm:ssZ
    $date=$data->{"date"};
    $isEntry=($data->{"entry"} == "1");
    $locationName=$data->{"name"};
    $locationID=$data->{"id"};
    $latitude=$data->{"latitude"};
    $longitude=$data->{"longitude"};
    $radius=$data->{"radius"};
    $beaconUUID=$data->{"beaconUUID"};
    $major=$data->{"major"};
    $minor=$data->{"minor"};
    $deviceID=$data->{"device"};

    if ($isEntry)
        $out = date('Y-m-d H:i:s') . " entryDate: " . $date . ", entered at " . $locationName . "\n";
    else
        $out = date('Y-m-d H:i:s') . "  exitDate: " . $date . ", exited  at " . $locationName . "\n";

    echo $out;

    $filename = "geofency.log";
    file_put_contents($filename, $out, FILE_APPEND | LOCK_EX);


    // Example condition:
    // Send http request if it's later than 8pm (20:00).
    $hour=substr($date, 8, 2);

    if ($hour > '20' && $isEntry) {
        echo "It’s time to eat <After Eight> and switch on lights.\n";
        // Integrate your e.g. house automation system here ...
        // http_get("http://www.mypage.com/switchOnLights.html”);
    }
?>
Nach oben
m.jansen
Beiträge: 219
Registriert: 16.03.2011, 16:30
Wohnort: Aachen

Re: Homeputer Studio und Pushnachrichten

Beitrag von m.jansen » 01.03.2014, 18:01

Die Syntax sollte so aussehen denk ich mal:

http.request("https:// api.pushover.net/1/messages.json", "token=<myapptoken>&user=<myuserkey1>&message=Hier der text"
Nach oben
Antworten

Zurück zu „homeputer Studio / Standard: Programmierbeispiele“