VB.net yardim Multi Screen Capture

[katimur94]

Merhaba Arkadaslar

VB.net ile ScreenShot Projesi basladim

Bi konuda devam edemiorum.

2.Monitor dan Screenshot yapmak istiorum

misal

Formload da 2. veya daha Fazla Monitor tariorum ve oluyor

 If Screen.AllScreens.Length > 1 Then

            monitorvarcheck.Enabled = True
        Else
            monitorvarcheck.Enabled = False


        End If

2.Formu 2.Monitorda aciorum buda oluyor

Dim ekran As Screen
            ekran = Screen.AllScreens(1)
            Form2.StartPosition = FormStartPosition.Manual
            Form2.WindowState = FormWindowState.Maximized
            Form2.Location = ekran.Bounds.Location

Simdi 2. Formda Görünmez bir Form var ve Paint ile o Formun üstünde Mouse Event ile bir Rectangle
olusturuyorum ve bu Rectangle icerigini Screenshotlamak istiorum
bana sadece 1. Monitorda yaptigim Rectanle posisyonun icerigini gösterior

1.Monitor da hic bir SIkIntI yok

Private Function MakeScreenShot() As Bitmap
     
        Dim Bmp As Bitmap = New Bitmap(rect1.Width, rect1.Height)

        Using Gra As Graphics = Graphics.FromImage(Bmp)  
            Gra.CopyFromScreen(rect1.Location, New Point(0, 0), rect1.Size)
        End Using
        ' Bitmap an Funktion übergeben
        Return Bmp


Private Sub Bereich_Makieren_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp


' Mouse sol click birakildiginda Rectangle icerigini yani karenin icerigini Pictureboxa gönderiror
        IsMouseDown = False

            Dim shot As Bitmap

            Me.Hide()
            Threading.Thread.CurrentThread.Sleep(500)

            shot = MakeScreenShot()

            Me.Close()
            Form1.Show()


            Form1.PictureBox1.Image = shot

evet Arkadaslar

Sorunum Ikinci Monitor dan ayni 1.Monitordaki gibi Olusturdum Rectangle icerini Form1 deki Picturebox a yapistirmasi.


Simdiden Yardim lariniz icin Tessekkürler

Türkcem icin kusura bakmayin

 

[akif3838]

mports System.IO
Imports System.Drawing
Imports System.Drawing.Imaging
Public Class Form1

    Private Sub screenCapture()
        Dim userName As String = Environment.UserName
        Dim savePath As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
        Dim dateString As String = Date.Now.ToString("yyyyMMddHHmmss")
        Dim captureSavePath As String = String.Format("{0}\WM\{1}\capture_{2}.png", savePath, userName, dateString)


        ' Burası ikinci monitör için farklı çözünürlüğü ayarlamak için. Tek monitör ise kaldırınız.
        Dim bmp As Bitmap = New Bitmap( _
                            Screen.AllScreens.Sum(Function(s As Screen) s.Bounds.Width),
                            Screen.AllScreens.Max(Function(s As Screen) s.Bounds.Height))
        Dim gfx As Graphics = Graphics.FromImage(bmp)
        ' This line is modified to take everything based on the size of the bitmap
        gfx.CopyFromScreen(SystemInformation.VirtualScreen.X,
                           SystemInformation.VirtualScreen.Y,
                           0, 0, SystemInformation.VirtualScreen.Size)



        Panel1.BackgroundImage = bmp.Clone

        gfx.Dispose()
        bmp.Dispose()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        updateScreen.Start()
    End Sub

    Private Sub updateScreen_Tick(sender As Object, e As EventArgs) Handles updateScreen.Tick
        screenCapture()
    End Sub
End Class

İyi forumlar.

 

[katimur94]

mports System.IO
Imports System.Drawing
Imports System.Drawing.Imaging
Public Class Form1

    Private Sub screenCapture()
        Dim userName As String = Environment.UserName
        Dim savePath As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
        Dim dateString As String = Date.Now.ToString("yyyyMMddHHmmss")
        Dim captureSavePath As String = String.Format("{0}\WM\{1}\capture_{2}.png", savePath, userName, dateString)


        ' Burası ikinci monitör için farklı çözünürlüğü ayarlamak için. Tek monitör ise kaldırınız.
        Dim bmp As Bitmap = New Bitmap( _
                            Screen.AllScreens.Sum(Function(s As Screen) s.Bounds.Width),
                            Screen.AllScreens.Max(Function(s As Screen) s.Bounds.Height))
        Dim gfx As Graphics = Graphics.FromImage(bmp)
        ' This line is modified to take everything based on the size of the bitmap
        gfx.CopyFromScreen(SystemInformation.VirtualScreen.X,
                           SystemInformation.VirtualScreen.Y,
                           0, 0, SystemInformation.VirtualScreen.Size)



        Panel1.BackgroundImage = bmp.Clone

        gfx.Dispose()
        bmp.Dispose()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        updateScreen.Start()
    End Sub

    Private Sub updateScreen_Tick(sender As Object, e As EventArgs) Handles updateScreen.Tick
        screenCapture()
    End Sub
End Class

İyi forumlar.

knka verdigin kodla 2. monitordan scrennshot yapior ancak

Monitorun Tümünden yapior benim problemim

actigim 2.Form 2.Monitorde acildiginda üzerinde Paint ile Boyadigim Kare icerigini Screenshot lamak istiorum

gfx.CopyFromScreen(Kare.Location.X,

                           Kare.Location.Y,

                           0, 0, Kare.Size)

Bu sekilde 1. Monitorda sorunsuz oluyor
ama ikinci 2. Monitorda yaptigim Kare icerigini almior
1.Monitor dan alior bunu beceremedim

yardim icin saol

 

[omertrans156]

Pencere ekran görüntüsü yakalamak mi istiyorsun yoksa monitör ekran görüntüsü yakalamak mi istiyorsun.

 

[katimur94]

Pencere ekran görüntüsü yakalamak mi istiyorsun yoksa monitör ekran görüntüsü yakalamak mi istiyorsun.

2. Monitor da olusturdugum Transparent Form un Paintle Kare nin icerigini yakalamak istiorum

 

[berkaygrg0]

ben hiç öyle bişey denemedim capture olmasına rağmen

 

[katimur94]

sol taraf 2. Monitor oluyor ve sag taraf 1. Monitor

2. Monitor da Boyadigim Kare icerigi yerine kareyi Monitorun üstünde yani X , Y, 0 daymis gibi aliyor

 

[Seçkin Gözel]

merhabalar hile hakında bilgi vericek varmı

 

[akif3838]

Ekli dosyayı görüntüle 73870


sol taraf 2. Monitor oluyor ve sag taraf 1. Monitor

2. Monitor da Boyadigim Kare icerigi yerine kareyi Monitorun üstünde yani X , Y, 0 daymis gibi aliyor

X,Y değerlerini ikinci monitörün çözünürlüğünüde hesaplayıp ekleseniz sorun olmaz sanki.

 

[ilkeakyx]

çözebildin mi hacı?

 

[katimur94]

X,Y değerlerini ikinci monitörün çözünürlüğünüde hesaplayıp ekleseniz sorun olmaz sanki.

peki nasil yapabilirim onu söyleyebilirmisin

Gra.CopyFromScreen(kare.Location.X, kare.Location.Y, 0, 0, Bmp.Size)

olmuyor

Post automatically merged: 4 Mar 2022

çözebildin mi hacı?

malesef daha cözemedim kesin ufak bi hata yada bisey unuttum ama nedir Bilemedim

 

[omertrans156]

2. Monitor da olusturdugum Transparent Form un Paintle Kare nin icerigini yakalamak istiorum

x ve y yerine istediğin sayı değiştirebilirsin.

'yukarda yeni oluştur
Dim BMP As New Drawing.Bitmap(640, 480)
Dim GFX As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(BMP)

'Fonksiyonu
GFX.CopyFromScreen(New Drawing.Point(x,y))
New Drawing.Point(0,0, BMP.Size)
PictureBox1.Image = BMP

Post automatically merged: 4 Mar 2022

Ne amaçlı yapmak istiyorsun? onuna göre yardımcı olabilirim. Pencere odaklanmadan ekran görüntüsü yakalamana ihtiyacın varsa

 

[katimur94]

x ve y yerine istediğin sayı değiştirebilirsin.

'yukarda yeni oluştur
Dim BMP As New Drawing.Bitmap(640, 480)
Dim GFX As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(BMP)

'Fonksiyonu
GFX.CopyFromScreen(New Drawing.Point(x,y))
New Drawing.Point(0,0, BMP.Size)
PictureBox1.Image = BMP

evet

saol kanka PointTo Screen tamamen unutmusum aklima getirdigin icin saol

Dim PScreen As Point = Me.PointToScreen(kare.Location)


Gra.CopyFromScreen(PScreen.X, PScreen.Y, 0, 0, Bmp.Size)

Sorun Cözüldü Herkese Tesekkürler