Screenshot von verdecken Programm (via Programmhandler)

    • VB.NET

      Screenshot von verdecken Programm (via Programmhandler)

      Hier ist ein Code um einen Screenshot von einem Programm zu machen, welches sich im Hintergrund befindet, heißt es muss nicht den Focus haben, so wie es z.B. bei CopyFromScreen() der fall sein muss.

      VB.NET-Quellcode

      1. Imports System.Runtime.InteropServices
      3. Public Class ScreenFromWindow
      4. <DllImport("user32.dll")> _
      5. Private Shared Function PrintWindow(ByVal hwnd As IntPtr, ByVal hdcBlt As IntPtr, ByVal nFlags As UInteger) As Boolean
      6. End Function
      7. <DllImport("user32.dll")> _
      8. Private Shared Function GetWindowRect(ByVal hwnd As IntPtr, ByRef rc As RECT) As Integer
      9. End Function
      11. Public Function GetFromRect(ByVal WindowProcess As Process, ByVal xPosition As Integer, ByVal yPosition As Integer, ByVal Width As Integer, ByVal Height As Integer) As Bitmap
      12. Dim b As New Bitmap(Width, Height)
      13. Dim gg As Graphics = Graphics.FromImage(b)
      14. Dim bm As Bitmap = GetFromAll(WindowProcess)
      16. gg.DrawImage(bm, New Rectangle(0, 0, Width, Height), xPosition, yPosition, Width, Height, GraphicsUnit.Pixel)
      18. Return b
      19. End Function
      21. Public Function GetFromAll(ByVal WindowProcess As Process) As Bitmap
      22. Dim p As IntPtr = WindowProcess.MainWindowHandle
      24. Dim rc As RECT
      25. GetWindowRect(p, rc)
      27. Dim bm As New Bitmap(rc.Right - rc.Left, rc.Bottom - rc.Top)
      28. Dim g As Graphics = Graphics.FromImage(bm)
      29. Dim hdc As IntPtr = g.GetHdc()
      31. PrintWindow(p, hdc, 0)
      33. g.ReleaseHdc(hdc)
      34. g.Flush()
      35. g.Dispose()
      37. Return bm
      38. End Function
      39. End Class
      42. <StructLayout(LayoutKind.Sequential)> _
      43. Public Structure RECT
      44. Public Left As Integer
      45. Public Top As Integer
      46. Public Right As Integer
      47. Public Bottom As Integer
      48. End Structure


      Anwendungsbeispiele:

      VB.NET-Quellcode

      1. Dim snap As New ScreenFromWindow
      3. ' Bild des gesamten Fensters
      4. PirctureBox1.Image = snap.GetFromAll(Process.GetProcessesByName("notepad")(0))
      6. ' Teilbereich des Fensters
      7. PirctureBox1.Image = snap.GetFromRect(Process.GetProcessesByName("notepad")(0), 212, 300, 50, 23)


      Die Parameter für den Teilbereich sind einfach xPosition (Pixelabstand von der linken Kante), yPosition (Pixelabstand von der Oberkante), Breite des Bereichs, Höhe des Bereichs.

      Das ganz funktioniert NICHT wenn das Fenster Minimiert ist und bei MDI Fenstern gibt es wohl auch probleme, konnte ich bisher noch nicht testen.

    Facebook
    Telefonspende