Jo, vielen Dank. Hoffe halt, dass mir jemand antworten kann, da es wirklich sehr wichtig ist.

EDIT: Also nochmal, so weit bin ich bis jetzt gekommen (habe auch SlimDX installiert):

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168

Imports System Imports System.Collections.Generic Imports System.Text Imports System.Drawing Imports System.Runtime.InteropServices Imports System.ComponentModel Imports System.Data Imports System.Linq Imports System.Windows.Forms   Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click           Dim prcs As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("notepad")         For Each prc As System.Diagnostics.Process In prcs             Dim screenshot As Bitmap = Spazzarama.ScreenCapture.Direct3DCapture.CaptureWindow(prc.MainWindowHandle)                 screenshot.Save("C:\er.bmp", System.Drawing.Imaging.ImageFormat.Bmp)         Next       End Sub End Class       Namespace Spazzarama.ScreenCapture     Public Module Direct3DCapture         Sub New()         End Sub         Private _direct3D9 As New SlimDX.Direct3D9.Direct3D()         Private _direct3DDeviceCache As New Dictionary(Of IntPtr, SlimDX.Direct3D9.Device)()           ''' <summary>         ''' Capture the entire client area of a window         ''' </summary>         ''' <param name="hWnd"></param>         ''' <returns></returns>         Public Function CaptureWindow(ByVal hWnd As IntPtr) As Bitmap             Return CaptureRegionDirect3D(hWnd, NativeMethods.GetAbsoluteClientRect(hWnd))         End Function           ''' <summary>         ''' Capture a region of the screen using Direct3D         ''' </summary>         ''' <param name="handle">The handle of a window</param>         ''' <param name="region">The region to capture (in screen coordinates)</param>         ''' <returns>A bitmap containing the captured region, this should be disposed of appropriately when finished with it</returns>         Public Function CaptureRegionDirect3D(ByVal handle As IntPtr, ByVal region As Rectangle) As Bitmap             Dim hWnd As IntPtr = handle             Dim bitmap As Bitmap = Nothing               ' We are only supporting the primary display adapter for Direct3D mode             Dim adapterInfo As SlimDX.Direct3D9.AdapterInformation = _direct3D9.Adapters.DefaultAdapter             Dim device As SlimDX.Direct3D9.Device               '#Region "Get Direct3D Device"             ' Retrieve the existing Direct3D device if we already created one for the given handle             If _direct3DDeviceCache.ContainsKey(hWnd) Then                 device = _direct3DDeviceCache(hWnd)             Else                 ' We need to create a new device                 ' Setup the device creation parameters                 Dim parameters As New SlimDX.Direct3D9.PresentParameters()                 parameters.BackBufferFormat = adapterInfo.CurrentDisplayMode.Format                 Dim clientRect As Rectangle = NativeMethods.GetAbsoluteClientRect(hWnd)                 parameters.BackBufferHeight = clientRect.Height                 parameters.BackBufferWidth = clientRect.Width                 parameters.Multisample = SlimDX.Direct3D9.MultisampleType.None                 parameters.SwapEffect = SlimDX.Direct3D9.SwapEffect.Discard                 parameters.DeviceWindowHandle = hWnd                 parameters.PresentationInterval = SlimDX.Direct3D9.PresentInterval.[Default]                 parameters.FullScreenRefreshRateInHertz = 0                   ' Create the Direct3D device                 device = New SlimDX.Direct3D9.Device(_direct3D9, adapterInfo.Adapter, SlimDX.Direct3D9.DeviceType.Hardware, hWnd, SlimDX.Direct3D9.CreateFlags.SoftwareVertexProcessing, parameters)                 _direct3DDeviceCache.Add(hWnd, device)             End If             '#End Region               ' Capture the screen and copy the region into a Bitmap             Using surface As SlimDX.Direct3D9.Surface = SlimDX.Direct3D9.Surface.CreateOffscreenPlain(device, adapterInfo.CurrentDisplayMode.Width, adapterInfo.CurrentDisplayMode.Height, SlimDX.Direct3D9.Format.A8R8G8B8, SlimDX.Direct3D9.Pool.SystemMemory)                 device.GetFrontBufferData(0, surface)                   bitmap = New Bitmap(SlimDX.Direct3D9.Surface.ToStream(surface, SlimDX.Direct3D9.ImageFileFormat.Bmp, New Rectangle(region.Left, region.Top, region.Right, region.Bottom)))             End Using               Return bitmap         End Function     End Module   #Region "Native Win32 Interop"     ''' <summary>     ''' The RECT structure defines the coordinates of the upper-left and lower-right corners of a rectangle.     ''' </summary>     <Serializable(), StructLayout(LayoutKind.Sequential)> _     Friend Structure RECT         Public Left As Integer         Public Top As Integer         Public Right As Integer         Public Bottom As Integer           Public Sub New(ByVal left As Integer, ByVal top As Integer, ByVal right As Integer, ByVal bottom As Integer)             Me.Left = left             Me.Top = top             Me.Right = right             Me.Bottom = bottom         End Sub           Public ReadOnly Property AsRectangle() As Rectangle             Get                 Return New Rectangle(Me.Left, Me.Top, Me.Right - Me.Left, Me.Bottom - Me.Top)             End Get         End Property           Public Shared Function FromXYWH(ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer) As RECT             Return New RECT(x, y, x + width, y + height)         End Function           Public Shared Function FromRectangle(ByVal rect As Rectangle) As RECT             Return New RECT(rect.Left, rect.Top, rect.Right, rect.Bottom)         End Function     End Structure       <System.Security.SuppressUnmanagedCodeSecurity()> _     Friend NotInheritable Class NativeMethods         <DllImport("user32.dll")> _         Friend Shared Function GetClientRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Boolean         End Function           <DllImport("user32.dll")> _         Friend Shared Function GetWindowRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As <MarshalAs(UnmanagedType.Bool)> Boolean         End Function           ''' <summary>         ''' Get a windows client rectangle in a .NET structure         ''' </summary>         ''' <param name="hwnd">The window handle to look up</param>         ''' <returns>The rectangle</returns>         Friend Shared Function GetClientRect(ByVal hwnd As IntPtr) As Rectangle             Dim rect As New RECT()             GetClientRect(hwnd, rect)             Return rect.AsRectangle         End Function           ''' <summary>         ''' Get a windows rectangle in a .NET structure         ''' </summary>         ''' <param name="hwnd">The window handle to look up</param>         ''' <returns>The rectangle</returns>         Friend Shared Function GetWindowRect(ByVal hwnd As IntPtr) As Rectangle             Dim rect As New RECT()             GetWindowRect(hwnd, rect)             Return rect.AsRectangle         End Function           Friend Shared Function GetAbsoluteClientRect(ByVal hWnd As IntPtr) As Rectangle             Dim windowRect As Rectangle = NativeMethods.GetWindowRect(hWnd)             Dim clientRect As Rectangle = NativeMethods.GetClientRect(hWnd)               ' This gives us the width of the left, right and bottom chrome - we can then determine the top height             Dim chromeWidth As Integer = CInt(((windowRect.Width - clientRect.Width) / 2))               Return New Rectangle(New Point(windowRect.X + chromeWidth, windowRect.Y + (windowRect.Height - clientRect.Height - chromeWidth)), clientRect.Size)         End Function     End Class #End Region End Namespace

Aber leider erhalte ich folgenden Fehler (angehängtes Bild):

Push!

Kann ja nicht sein, dass das wirklich keiner weiß. Ein einfacher DirectX-Screenshot mit VB.NET, wie er zum Beispiel mit kostenlosen Programmen (Fraps) möglich ist.
Wenn das wirklich unmöglich ist, so möge mir das bitte jemand hier reinschreiben. Ich kann aber einfach nicht dran glauben!
Ich hab Google totgesucht. Anscheinend wurde noch in keinem anderen Forum eine passable und funktionierende Lösung für dieses Problem gefunden.

MfG
Markus

Hallo Afritus,

mit VB.NET allein wird das unmöglich gehen. Du wirst auf alle Fälle eine C++ DLL hinzuziehen müssen. Kleiner Tipp: http://www.gamedev.net/community/for...opic_id=359794

Zusätzlich würde ich nach "Shared Memory" für die Kommunikation zwischen DLL <-> VB.NET-Anwendung googlen. Habe mich selbst bis jetzt nur oberflächig damit beschäftigt, deshalb eher wage Informationen.

Grüße,

Marco

Danke für die Antwort!
Hab mir das von GameDev mal durchgelesen, das scheint ja tatsächlich zu funktionieren. Aber wie lautet denn da der Befehl fürs Screenshotmachen unter VB.NET?
Wieso genau brauche ich eine Shared Memory?
MfG