Hallo zusammen,
Mit diesem kleinen Powershellscript kann das neueste IR Satbild von Europa huntergeladen werden. Das Script kann mit einem "Windows Aufgabenplanung" Job z.B. im 5 Minten takt aufgerufen werden um damit das aktuelle Bild in einen bestimmten Ordner lokal herunterzuladen, dieses loakle Bild kann dann als Hintergrundbild definiert werden. Die UTC Zeit des SAT-Bildes wird vom Script ebenfalls oben rechts eingeblendet, das ist im original Bild nicht vorhanden. Wie stabil das läuft weiss ich noch nicht. Mal kucken.
Gruss
Stefan
Powershell Script:
$rootpath="C:\Users\Administrator\Documents\temp\meteo_sat_2\"
$filepath_working=$rootpath+'last.jpg'
$info_url="https://imn-api.meteoplaza.com/v4/nowca ... -infrared/"
#$pic_url
$response = Invoke-WebRequest -Uri $info_url
$infoC=$response.Content
$infoJ=$infoC | ConvertFrom-Json
$lasturl=$infoJ.layers | Select-Object -Last 1
$lasturl
$lastAbsurl="https://imn-api.meteoplaza.com/v4/nowca ... ttype=jpeg"
$lastAbsurl
$datum = $lasturl.time.ToString()
$textToAdd=[datetime]::ParseExact($datum, 'yyyy-MM-ddTHH:mm:ssZ', $null).ToString("dd.MM.yyyy HH:mm 'UTC'")
$savedImagePath=$filepath_working
$webrequest=Invoke-WebRequest -Uri $lastAbsurl
[System.Drawing.Image]$image=$webrequest.content
$graphics = [System.Drawing.Graphics]::FromImage($image)
# Schriftart und Größe für den Text
$font = New-Object System.Drawing.Font("Arial", 20)
# Farbe des Textes
$brush = New-Object System.Drawing.SolidBrush([System.Drawing.Color]::Black)
# Berechnen Sie die Position für den Text
$textWidth = $graphics.MeasureString($textToAdd, $font).Width
#$positionX = [Math]::Max($image.Width - $textWidth - 10, 0)
$positionX=10
$point = New-Object System.Drawing.PointF($positionX, 10)
# Text zum Bild hinzufügen
$graphics.DrawString($textToAdd, $font, $brush, $point)
# Bild speichern
$image.Save($savedImagePath)
# Ressourcen freigeben
$graphics.Dispose()
$image.Dispose()
Werbung
sat24.com erneuert
-
- Beiträge: 100
- Registriert: Do 24. Jun 2004, 23:31
- Wohnort: 8843 Oberiberg
- Danksagung erhalten: 2 Mal
- Kontaktdaten:
Re: sat24.com erneuert
Zuletzt geändert von marty am Mi 24. Jan 2024, 19:54, insgesamt 2-mal geändert.
-
- Beiträge: 849
- Registriert: Do 20. Jun 2002, 09:47
- Wohnort: 4434 Hölstein
- Hat sich bedankt: 1488 Mal
- Danksagung erhalten: 174 Mal
- Kontaktdaten:
Re: sat24.com erneuert
Hello Marty,
Super Sache Dein PS Script. Vielen Dank dafür. Habe vor das am WE auszuprobieren.
Hast Du eigentlich auch den Layer mit den Grenzen der Länder der Europa-Karte über das akt. Sat.Img gelegt? Sehe das gerade nicht in Deinem Code.
Hab es mir etwas umständlicher gemacht und eine vb.NET EXE dafür geproggt (Code auf PN Anfrage) VIS oder IR je nach Uhrzeit, mit EU Länder Overlay, UTC Timestamp und automatischem Update des Desktop-Hintergrundbilds - Win.-Scheduler (Aufgabenplanung) alle 5min.
Und festgestellt, dass die die Leutchen von der sat24 eine Stunde - oder mehr? - hinterher sind - oder einfach UTC nicht im Griff haben. Z.B. um 16:30h ist es in der CH nicht schon längst stockdunkel.
Welche Zeit verwenden die eigentlich? Man kann das v.a. morgens gut sehen.
Sat24 VIS zeigt z.B. 08:30h immer noch stockdunkle CH, ist es aber nicht.
Happy computing.
Grüsse Mat
Super Sache Dein PS Script. Vielen Dank dafür. Habe vor das am WE auszuprobieren.
Hast Du eigentlich auch den Layer mit den Grenzen der Länder der Europa-Karte über das akt. Sat.Img gelegt? Sehe das gerade nicht in Deinem Code.
Hab es mir etwas umständlicher gemacht und eine vb.NET EXE dafür geproggt (Code auf PN Anfrage) VIS oder IR je nach Uhrzeit, mit EU Länder Overlay, UTC Timestamp und automatischem Update des Desktop-Hintergrundbilds - Win.-Scheduler (Aufgabenplanung) alle 5min.
Und festgestellt, dass die die Leutchen von der sat24 eine Stunde - oder mehr? - hinterher sind - oder einfach UTC nicht im Griff haben. Z.B. um 16:30h ist es in der CH nicht schon längst stockdunkel.
Welche Zeit verwenden die eigentlich? Man kann das v.a. morgens gut sehen.
Sat24 VIS zeigt z.B. 08:30h immer noch stockdunkle CH, ist es aber nicht.
Happy computing.
Grüsse Mat
-
- Beiträge: 100
- Registriert: Do 24. Jun 2004, 23:31
- Wohnort: 8843 Oberiberg
- Danksagung erhalten: 2 Mal
- Kontaktdaten:
Re: sat24.com erneuert
Hallo Mat,
Danke für den Hinweis wegen der Zeit
Momentan scheint es wieder zu stimmen (Dunkel/Hell):
Ich habe bei meinem Script ein Fehler bei der Zeitumrechnung
[datetime]::ParseExact($datum, 'yyyy-MM-ddTHH:mm:ssZ', $null).ToString("dd.MM.yyyy HH:mm 'UTC'")
Das ergibt die lokale Zeit und nicht UTC
Das gibt UTC:
[datetime]::ParseExact($datum, 'yyyy-MM-ddTHH:mm:ssZ', $null).ToUniversalTime().ToString("dd.MM.yyyy HH:mm 'UTC'")
Ich haben gestern das Infra Bild mit einer anderen Quelle verglichen betreffend Zeitangabe scheint es bei SAT24 zu stimmen.
Mit dem Grenzen Layer habe ich herumprobiert. Bin aber noch nicht zufrieden. Schicke später eine PN-Anfrage, nimmt mich wunder wie du das in deinem Code gelöst hast.
Gruss Stefan Marty
Danke für den Hinweis wegen der Zeit
Momentan scheint es wieder zu stimmen (Dunkel/Hell):
Ich habe bei meinem Script ein Fehler bei der Zeitumrechnung
[datetime]::ParseExact($datum, 'yyyy-MM-ddTHH:mm:ssZ', $null).ToString("dd.MM.yyyy HH:mm 'UTC'")
Das ergibt die lokale Zeit und nicht UTC
Das gibt UTC:
[datetime]::ParseExact($datum, 'yyyy-MM-ddTHH:mm:ssZ', $null).ToUniversalTime().ToString("dd.MM.yyyy HH:mm 'UTC'")
Ich haben gestern das Infra Bild mit einer anderen Quelle verglichen betreffend Zeitangabe scheint es bei SAT24 zu stimmen.
Mit dem Grenzen Layer habe ich herumprobiert. Bin aber noch nicht zufrieden. Schicke später eine PN-Anfrage, nimmt mich wunder wie du das in deinem Code gelöst hast.
Gruss Stefan Marty
- Bernhard Oker
- Moderator
- Beiträge: 6258
- Registriert: Do 16. Aug 2001, 11:02
- Geschlecht: männlich
- Wohnort: 8902 Urdorf
- Hat sich bedankt: 1596 Mal
- Danksagung erhalten: 2612 Mal
Re: sat24.com erneuert
Anscheinend seit kurzem wieder mit 5min loop.
https://www.sat24.com/de-de/country/ch/ ... =euVisible
https://www.sat24.com/de-de/country/ch/ ... =euVisible
Bernhard Oker - Urdorf (ZH/CH) - Meine Webseiten "Never Stop Chasing!"