VB.NET la Fenêtre de Capture d'Écran (ALT+impr écran)

J'ai trouvé ce code quelque part et je trouve qu'il est très utile, mais j'aimerais trouver un moyen de le faire fonctionner afin de capturer uniquement la fenêtre cible. Peut-être avec un processID ou le Nom de la Fenêtre. Même si cette fenêtre n'est pas active.

Je ne veux pas rendre la fenêtre active, mais souhaitez obtenir une capture d'écran comme si je faisais Alt+impr écran.

Voici le code qui fonctionne pour plein de Capture d'Écran

    Private bmpScreenShot As Bitmap
    Private gfxScreenshot As Graphics

    bmpScreenShot = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, PixelFormat.Format32bppArgb)

    gfxScreenshot = Graphics.FromImage(bmpScreenShot)
    gfxScreenshot.CopyFromScreen(Screen.PrimaryScreen.Bounds.X, Screen.PrimaryScreen.Bounds.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)

    bmpScreenShot.Save(fileName, ImageFormat.Png)

- Je utiliser le Visual Basic 2008 Express

Vous en remercie d'avance!

double possible de Capture capture d'écran de la fenêtre active?

OriginalL'auteur Steve Thomas | 2010-04-01

  1. 1

    Regardez cette Prendre des captures d'écran de la fenêtre active?
    Au lieu de this.Handle (fenêtre active) vous pouvez insérer une poignée de n'importe quelle autre fenêtre (à l'aide de WinAPI fonctions comme FindWindow)

    OriginalL'auteur Nagg

  2. 1

    Cela fonctionne dans vb.net2.0. Je l'ai peu utilisé.
    Voici le code source.

        Dim SC As New ScreenShot.ScreenCapture

    'captures entire desktop straight to file
    SC.CaptureScreenToFile("c:\accops\test\desktop2.jpg", Imaging.ImageFormat.Jpeg)

    OriginalL'auteur

  3. 1

    Cela vous donnera la Alt + Printscreen, ne montrant que l'avant de la plupart des applications.

    SendKeys.Send("%{PRTSC}")

    Puis continuer le chemin normal:

    Dim Screenshot As Image = Clipboard.GetImage()
Screenshot.Save("c:\ScreenShot.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

    OriginalL'auteur Nitro

  4. 0

    La façon la plus simple de le faire, même si c'est un hack, c'est ceci:

    SendKeys.Send("{PRTSC}")
Dim Screenshot As Image = Clipboard.GetImage()
Screenshot.Save("c:\ScreenShot.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

    OriginalL'auteur Crash Matrix

  5. 0

    La Capture de l'actif-forme.

    Private Sub tsbCamera_Click(sender As Object, e As EventArgs) Handles tsbCamera.Click
    Dim bm As New Bitmap(Width, Height)
    DrawToBitmap(bm, New Rectangle(0, 0, Width, Height))
    Dim name As String = InputBox("Name it:")
    bm.Save(Application.StartupPath & "\ScreenShot\" & name & ".png", System.Drawing.Imaging.ImageFormat.Png)
End Sub

    OriginalL'auteur Tứ Hùng Phạm