Screenshot des Desktophintergrundes

  • VB.NET

Es gibt 47 Antworten in diesem Thema. Der letzte Beitrag () ist von BjöNi.

    Screenshot des Desktophintergrundes

    Hallo Leute,

    ich brauche bitte Hilfe.
    Ziel ist es, einen Screenshot zu machen, der ausschließlich den Desktop zeigt - also ohne bereits geöffnete Fenster etc. - sozusagen das "Windows-Hintergrundbild".
    Ein Projekt habe ich mal drangehängt (kompilierte EXE ist auch dabei im Release-Ordner).

    Erster Ansatz war, über Shell32 den Desktop zu togglen, dann den Screenshot zu machen und wieder zu togglen.
    Das geht auch, aber ich hätte sehr gern eine Variante ohne togglen.

    Wie komme ich bitte direkt an den Desktop heran (ohne togglen), wenn Programmfenster darüber liegen?
    Ein weiterer Versuch über die API mit "GetDesktopWindow" brachte mir auch nicht das Desktopfenster ;( ..
    Hilfe...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Function CaptureDesktopImage() As Image
    2. ' Verweis auf Shell32 muss bestehen
    3. Dim ShellReference As Shell32.Shell = Nothing
    5. Dim WorkingImage As Bitmap = Nothing
    6. Dim WorkingGraphics As Graphics = Nothing
    7. Dim TargetArea As Rectangle = Screen.PrimaryScreen.WorkingArea
    9. ShellReference = New Shell32.Shell()
    10. ShellReference.ToggleDesktop()
    11. System.Threading.Thread.Sleep(200)
    13. WorkingImage = New Bitmap(TargetArea.Width, TargetArea.Height)
    14. WorkingGraphics = Graphics.FromImage(WorkingImage)
    15. WorkingGraphics.CopyFromScreen(TargetArea.X, TargetArea.X, 0, 0, TargetArea.Size)
    17. ShellReference.ToggleDesktop()
    19. Return DirectCast(WorkingImage.Clone(), Image)
    20. End Function



    LG,
    Bruno
    Dateien

    • DeskShot.zip

      (100,39 kB, 86 mal heruntergeladen, zuletzt: )

    Ich denke mal, das geht nicht, und wenn, dann nur mit massivem API-Aufwand.
    Was Du könntest:
    Du könntest Dir das Bildschirm-Hintergrundbild holen.
    Du könntest Dir die TaskBar holen,
    Du könntest Dir die Icons der Desktop-Symbole holen (deren Position ggf. auch)
    und daraus Dein Bild zusammensetzen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    Du könntest Dir das Bildschirm-Hintergrundbild holen.

    Danke erstmal!

    Weitere Informationen, die vielleicht wichtig sind:
    Ich habe eine Methode, die den Mittelwert aller Farben (als RGB-Kanäle) einer Bitmap bildet (funktioniert schon).
    Als Vorlage für die Mittelwertbildung brauche ich entweder den Bildschirmhintergrund oder eben die Farbe - falls der Anwender kein Hintergrundbild verwendet und nur einfarbig darstellt.

    LG,
    Bruno

    diylab schrieb:

    die vielleicht wichtig sind:
    Was hat das eine mit dem anderen zu tun?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    diylab schrieb:

    die vielleicht wichtig sind:
    Was hat das eine mit dem anderen zu tun?

    Na ich brauche eben den Windows-Hintergrund zum ermitteln der Durchschnittsfarben :) .
    Darum die Idee mit dem Screenshot.

    Aber nun probiere ich die API 'SystemParametersInfo // SPI_GETDESKWALLPAPER'.
    Geht. Zumindest unter Win7 gibt er mir den Pfad zum Hintergrundbild.
    Ob es unter XP auch geht? Habe ich leider nicht.

    Nun brauche ich nur noch die Hintergrundfarbe, falls der User kein Hintergrundbild verwendet und alle Probleme wären gelöst.
    Mal gucken, ob 'SystemParametersInfo' das auch hergibt...

    LG,
    Bruno

    diylab schrieb:

    Pfad zum Hintergrundbild
    Vielleicht suchst Du mal gezielt in der Registry.
    Setze ein Bild, das Du kennst, und suche dessen Name / Pfad (getrennt(!!!)) in der Registry.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    diylab schrieb:

    Pfad zum Hintergrundbild
    Vielleicht suchst Du mal gezielt in der Registry.
    Setze ein Bild, das Du kennst, und suche dessen Name / Pfad (getrennt(!!!)) in der Registry.

    Joooo :P !

    Ok - bei Win7 habe ich nun alle Infos, die ich brauche:

    VB.NET-Quellcode

    1. Private Function GetCurrentWallpaper() As String
    2. Dim rkWallPaper As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", False)
    3. Dim WallpaperPath As String = rkWallPaper.GetValue("WallPaper").ToString()
    4. rkWallPaper.Close()
    5. Return WallpaperPath
    6. End Function
    8. Private Function GetCurrentBackColor() As String
    9. Dim rkBackColor As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Colors", False)
    10. Dim BackColorPath As String = rkBackColor.GetValue("Background").ToString()
    11. rkBackColor.Close()
    12. Return BackColorPath
    13. End Function


    Ob das auch bei XP, Vista & Win8 so ist - keine Ahnung - muss man probieren..
    Also alles chic - Problem gelöst - danke für den Denkanstoß Rod!

    Der im Eingangspost beschriebene Desktop-Screenshot funktioniert gut, vielleicht kann der Thread so bestehen bleiben, irgend jemand kanns vielleicht gebrauchen?

    LG,
    Bruno

    Bei Win8 ist es so, habs gerade ausprobiert.

    Wenn man allerdings mehrere Bilder als Diashow auswählt, dann ist dort ein Pfad zu einem Theme (bei mir unter "C:\Users\Niklas\AppData\Roaming\Microsoft\Windows\Themes" eine Datei namens "TranscodedWallpaper" ohne Dateiendung). Weiß aber nicht, wie die aufgebaut ist.

    BjöNi schrieb:

    Wenn man allerdings mehrere Bilder als Diashow auswählt, dann ist dort ein Pfad zu einem Theme (bei mir unter "C:\Users\Niklas\AppData\Roaming\Microsoft\Windows\Themes" eine Datei namens "TranscodedWallpaper" ohne Dateiendung). Weiß aber nicht, wie die aufgebaut ist.

    Ooops :S ..
    Jemand eine Idee?

    LG,
    Bruno

    PS: Danke für Ausprobieren unter Win8!


    Done :D .

    Macht was es soll - zumindest unter Win7.
    Screenshot vom Testprogramm anbei. Die .EXE auch.
    Wenn Jemand netter weise mal unter XP, Vista und Win8 probieren würde?



    LG,
    Bruno


    Edit by Manschula: Programmdownloads außerhalb des Showrooms sind nicht zulässig --> Anhang entfernt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Manschula“ ()

    nafets3646 schrieb:

    Poste doch einfach deinen Code, dann können wir es testen ;).


    Klaro - warum nicht!

    Hier mein Original:
    Spoiler anzeigen

    Quellcode

    1. using Microsoft.Win32;
    2. using System;
    3. using System.Collections.Generic;
    4. using System.Drawing;
    5. using System.Drawing.Drawing2D;
    6. using System.Linq;
    7. using System.Windows.Forms;
    9. namespace AverageColor
    10. {
    11. public partial class Form1 : Form
    12. {
    13. public Form1()
    14. {
    15. InitializeComponent();
    17. label1.Text = GetCurrentWallpaperPath();
    18. panel1.BackColor = GetCurrentBackColor();
    20. // Gibt es ein Hintergrundbild?
    21. if (GetCurrentWallpaper() != null)
    22. {
    23. panel2.BackColor = AVGColor(GetCurrentWallpaper());
    24. }
    25. else
    26. {
    27. panel2.BackColor = GetCurrentBackColor();
    28. }
    30. pictureBox1.BackgroundImage = GetCurrentWallpaper();
    31. }
    33. /// <summary>
    34. /// Wallpaper Pfad
    35. /// </summary>
    36. /// <returns></returns>
    37. private String GetCurrentWallpaperPath()
    38. {
    39. RegistryKey rkWallPaper = Registry.CurrentUser.OpenSubKey("Control Panel\\Desktop", false);
    40. string WallpaperPath = rkWallPaper.GetValue("WallPaper").ToString();
    41. rkWallPaper.Close();
    43. return WallpaperPath;
    44. }
    46. /// <summary>
    47. /// Wallpaper
    48. /// </summary>
    49. /// <returns></returns>
    50. private Image GetCurrentWallpaper()
    51. {
    52. RegistryKey rkWallPaper = Registry.CurrentUser.OpenSubKey("Control Panel\\Desktop", false);
    53. string WallpaperPath = rkWallPaper.GetValue("WallPaper").ToString();
    54. rkWallPaper.Close();
    56. try
    57. {
    58. Image img = Image.FromFile(WallpaperPath);
    59. return img;
    60. }
    61. catch
    62. {
    63. return null;
    64. }
    65. }
    67. /// <summary>
    68. /// Desktop Hintergrundfarbe
    69. /// </summary>
    70. /// <returns></returns>
    71. private Color GetCurrentBackColor()
    72. {
    73. RegistryKey rkBackColor = Registry.CurrentUser.OpenSubKey("Control Panel\\Colors", false);
    74. string BackColorString = rkBackColor.GetValue("Background").ToString();
    75. rkBackColor.Close();
    77. List<int> RGB = BackColorString.Split(' ').ToList().ConvertAll<int>(s => Convert.ToInt32(s));
    78. return Color.FromArgb(RGB[0], RGB[1], RGB[2]);
    79. }
    81. /// <summary>
    82. /// Durchschnittsfarbe einer Bitmap
    83. /// </summary>
    84. /// <param name="Wallpaper"></param>
    85. /// <returns></returns>
    86. private Color AVGColor(Image Wallpaper)
    87. {
    88. using (Bitmap bm = new Bitmap(Wallpaper))
    89. {
    90. Bitmap bmp = new Bitmap(1, 1);
    92. using (Graphics g = Graphics.FromImage(bmp))
    93. {
    94. g.InterpolationMode = InterpolationMode.HighQualityBicubic;
    95. g.DrawImage(bm, new Rectangle(0, 0, 1, 1));
    96. }
    98. Color pixel = bmp.GetPixel(0, 0);
    99. return Color.FromArgb(pixel.R, pixel.G, pixel.B);
    100. }
    101. }
    102. }
    103. }



    Und da die Übersetzung in VB.NET (über developerfusion.com):
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    2. Imports System.Collections.Generic
    3. Imports System.Drawing
    4. Imports System.Drawing.Drawing2D
    5. Imports System.Linq
    6. Imports System.Windows.Forms
    8. Namespace AverageColor
    9. Public Partial Class Form1
    10. Inherits Form
    11. Public Sub New()
    12. InitializeComponent()
    14. label1.Text = GetCurrentWallpaperPath()
    15. panel1.BackColor = GetCurrentBackColor()
    17. ' Gibt es ein Hintergrundbild?
    18. If GetCurrentWallpaper() IsNot Nothing Then
    19. panel2.BackColor = AVGColor(GetCurrentWallpaper())
    20. Else
    21. panel2.BackColor = GetCurrentBackColor()
    22. End If
    24. pictureBox1.BackgroundImage = GetCurrentWallpaper()
    25. End Sub
    27. ''' <summary>
    28. ''' Wallpaper Pfad
    29. ''' </summary>
    30. ''' <returns></returns>
    31. Private Function GetCurrentWallpaperPath() As [String]
    32. Dim rkWallPaper As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", False)
    33. Dim WallpaperPath As String = rkWallPaper.GetValue("WallPaper").ToString()
    34. rkWallPaper.Close()
    36. Return WallpaperPath
    37. End Function
    39. ''' <summary>
    40. ''' Wallpaper
    41. ''' </summary>
    42. ''' <returns></returns>
    43. Private Function GetCurrentWallpaper() As Image
    44. Dim rkWallPaper As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", False)
    45. Dim WallpaperPath As String = rkWallPaper.GetValue("WallPaper").ToString()
    46. rkWallPaper.Close()
    48. Try
    49. Dim img As Image = Image.FromFile(WallpaperPath)
    50. Return img
    51. Catch
    52. Return Nothing
    53. End Try
    54. End Function
    56. ''' <summary>
    57. ''' Desktop Hintergrundfarbe
    58. ''' </summary>
    59. ''' <returns></returns>
    60. Private Function GetCurrentBackColor() As Color
    61. Dim rkBackColor As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Colors", False)
    62. Dim BackColorString As String = rkBackColor.GetValue("Background").ToString()
    63. rkBackColor.Close()
    65. Dim RGB As List(Of Integer) = BackColorString.Split(" "C).ToList().ConvertAll(Of Integer)(Function(s) Convert.ToInt32(s))
    66. Return Color.FromArgb(RGB(0), RGB(1), RGB(2))
    67. End Function
    69. ''' <summary>
    70. ''' Durchschnittsfarbe einer Bitmap
    71. ''' </summary>
    72. ''' <param name="Wallpaper"></param>
    73. ''' <returns></returns>
    74. Private Function AVGColor(Wallpaper As Image) As Color
    75. Using bm As New Bitmap(Wallpaper)
    76. Dim bmp As New Bitmap(1, 1)
    78. Using g As Graphics = Graphics.FromImage(bmp)
    79. g.InterpolationMode = InterpolationMode.HighQualityBicubic
    80. g.DrawImage(bm, New Rectangle(0, 0, 1, 1))
    81. End Using
    83. Dim pixel As Color = bmp.GetPixel(0, 0)
    84. Return Color.FromArgb(pixel.R, pixel.G, pixel.B)
    85. End Using
    86. End Function
    87. End Class
    88. End Namespace



    Im Form braucht ihr ein Label, 2 Panele und eine PictureBox.


    LG,
    Bruno

    Ich habe gerade mal versucht, das alles möglichst übersichtlich in eine Methode zu gießen, jedoch kann man dann das Wallpaper solange nicht ändern, bis ich das Programm geschlossen habe. Weiß vielleicht jemand, woran das liegen könnte?
    Code:

    C-Quellcode

    1. public class WallpaperHelper
    2. {
    3. public static Boolean TryGetWallpaper(ref Image Wallpaper)
    4. {
    5. using (RegistryKey WallpaperKey = Registry.CurrentUser.OpenSubKey(@"Control Panel\Desktop", false))
    6. {
    7. FileInfo WallpaperFile = new FileInfo(WallpaperKey.GetValue("Wallpaper").ToString());
    8. WallpaperKey.Close();
    9. if (WallpaperFile.Exists)
    10. {
    11. Wallpaper = Image.FromFile(WallpaperFile.FullName);
    12. return true;
    13. }
    14. return false;
    15. }
    16. }
    17. }

    Hab hier mal was gefunden, was mit der WinAPI funktioniert. Gibt bei einem einfachen Wallpaper den Pfad der Quelldatei zurück, bei einer Diashow den Pfad zur TranscodedWallpaper.
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    nafets3646 schrieb:

    ..jedoch kann man dann das Wallpaper solange nicht ändern, bis ich das Programm geschlossen habe.

    Du müsstest m.M. nach das Bild per Stream lesen, dann kann es auch verändert werden.
    In meinem Fall geht es so:

    c#

    C-Quellcode

    1. /// <summary>
    2. /// Get Wallpaper Image
    3. /// </summary>
    4. /// <returns></returns>
    5. private Image GetCurrentWallpaper()
    6. {
    7. RegistryKey rkWallPaper = Registry.CurrentUser.OpenSubKey("Control Panel\\Desktop", false);
    8. string WallpaperPath = rkWallPaper.GetValue("WallPaper").ToString();
    9. rkWallPaper.Close();
    11. Image ReturnImage = null;
    12. if (File.Exists(WallpaperPath))
    13. {
    14. StreamReader reader = new StreamReader(WallpaperPath);
    15. ReturnImage = Image.FromStream(reader.BaseStream);
    16. reader.Close();
    17. }
    19. return ReturnImage;
    20. }


    VB

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Get Wallpaper Image
    3. ''' </summary>
    4. ''' <returns></returns>
    5. Private Function GetCurrentWallpaper() As Image
    6. Dim rkWallPaper As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", False)
    7. Dim WallpaperPath As String = rkWallPaper.GetValue("WallPaper").ToString()
    8. rkWallPaper.Close()
    10. Dim ReturnImage As Image = Nothing
    11. If File.Exists(WallpaperPath) Then
    12. Dim reader As New StreamReader(WallpaperPath)
    13. ReturnImage = Image.FromStream(reader.BaseStream)
    14. reader.Close()
    15. End If
    17. Return ReturnImage
    18. End Function


    LG,
    Bruno

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „diylab“ ()

    Ok, danke für den Tipp, das wusste ich noch gar nicht :D.
    Meine Methode sieht jetzt jedenfalls so aus, falls es noch jemanden interessiert:
    VB

    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    2. Imports System.IO
    4. Public Class WallpaperHelper
    5. ''' <summary>
    6. ''' Gibt das aktuelle Wallpaper des Systems aus.
    7. ''' Der Rückgabewert gibt an, ob ein Wallpaper gefunden wurde.
    8. ''' </summary>
    9. ''' <param name="Wallpaper">Dieser Wert gibt bei erfolgreicher Suche das Wallpaper aus.</param>
    10. Public Shared Function TryGetWallpaper(ByRef Wallpaper As Image) As Boolean
    11. Using WallpaperKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", False)
    12. Dim WallpaperFile As New FileInfo(WallpaperKey.GetValue("Wallpaper").ToString())
    13. WallpaperKey.Close()
    14. If WallpaperFile.Exists Then
    15. Using WallpaperStreamReader As New StreamReader(WallpaperFile.OpenRead())
    16. Wallpaper = Image.FromStream(WallpaperStreamReader.BaseStream)
    17. Return True
    18. End Using
    19. End If
    20. Wallpaper = Nothing
    21. Return False
    22. End Using
    23. End Function
    24. End Class
    C#

    C-Quellcode

    1. using Microsoft.Win32;
    2. using System.IO;
    4. public class WallpaperHelper
    5. {
    6. /// <summary>
    7. /// Gibt das aktuelle Wallpaper des Systems aus.
    8. /// Der Rückgabewert gibt an, ob ein Wallpaper gefunden wurde.
    9. /// </summary>
    10. /// <param name="Wallpaper">Dieser Wert gibt bei erfolgreicher Suche das Wallpaper aus.</param>
    11. public static Boolean TryGetWallpaper(out Image Wallpaper)
    12. {
    13. using (RegistryKey WallpaperKey = Registry.CurrentUser.OpenSubKey(@"Control Panel\Desktop", false))
    14. {
    15. FileInfo WallpaperFile = new FileInfo(WallpaperKey.GetValue("Wallpaper").ToString());
    16. WallpaperKey.Close();
    17. if (WallpaperFile.Exists)
    18. {
    19. using (StreamReader WallpaperStreamReader = new StreamReader(WallpaperFile.OpenRead()))
    20. {
    21. Wallpaper = Image.FromStream(WallpaperStreamReader.BaseStream);
    22. return true;
    23. }
    24. }
    25. Wallpaper = null;
    26. return false;
    27. }
    28. }
    29. }

    nafets3646 schrieb:

    Meine Methode sieht jetzt jedenfalls so aus, falls es noch jemanden interessiert

    Dieser Thread ist sicher für einige Leute interessant, die über Google kommen.
    Auf den ersten Blick sind einige Themen vorhanden, trotzdem hängt alles miteinander zusammen.
    Auch die Methode zum ermitteln der Durchschnittsfarbe ist recht ungewöhnlich und schnell ;).

    Jetzt brauche ich nur noch etwas gescheites zum ermitteln einer Komplementärfarbe (oder noch besser ausgedrückt, einer Kontrastfarbe zur einer vorhandenen Farbe).
    Solche Sachen wie "Xor &HFFFFFF" scheiden aus, das versagt bei grau.

    LG,
    Bruno

Facebook
Telefonspende