Hallo Leute.
Habe seit längerem das Problem das mein Code unter Windows 10 nicht mehr funktioniert, unter ältere Windows Versionen tut es noch immer, z.b auch unter Windows 10 ohne Update.
Es geht darum Screenshot von einem Bestimmten Fenster zu machen, dieser konnte sich früher auch außerhalb des Bildschirm befinden, solange sie Maximiert war.
Weiß einer weshalb es nicht mehr geht?
Und wie man es umgehen könnte?
Mein Code:
Danke schon mal
Habe seit längerem das Problem das mein Code unter Windows 10 nicht mehr funktioniert, unter ältere Windows Versionen tut es noch immer, z.b auch unter Windows 10 ohne Update.
Es geht darum Screenshot von einem Bestimmten Fenster zu machen, dieser konnte sich früher auch außerhalb des Bildschirm befinden, solange sie Maximiert war.
Weiß einer weshalb es nicht mehr geht?
Und wie man es umgehen könnte?
Mein Code:
VB.NET-Quellcode
- Friend Function CreateBitmap(ByVal hWnd As IntPtr, ByVal BmpRect As Bitmap) As Bitmap
- Dim WinRect As RECT
- GetWindowRect(hWnd, WinRect)
- BmpRect = New Bitmap(WinRect.right - WinRect.left, WinRect.bottom - WinRect.top)
- Dim hdcFrom As IntPtr = GetDC(hWnd)
- Dim hdcTo As IntPtr = CreateCompatibleDC(hdcFrom)
- Dim hBitmap As IntPtr = CreateCompatibleBitmap(hdcFrom, BmpRect.Width, BmpRect.Height)
- If hBitmap <> IntPtr.Zero Then
- Dim hLocalBitmap As IntPtr = SelectObject(hdcTo, hBitmap)
- BitBlt(hdcTo, 0, 0, BmpRect.Width, BmpRect.Height, hdcFrom, 0, 0, SRCCOPY)
- SelectObject(hdcTo, hLocalBitmap)
- DeleteDC(hdcTo)
- ReleaseDC(hWnd, hdcFrom)
- BmpRect = Image.FromHbitmap(hBitmap)
- DeleteObject(hBitmap)
- End If
- Return BmpRect
- End Function
Danke schon mal
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „seby1302“ ()