VB.net yardim Multi Screen Capture

katimur94 · 4 Mar 2022

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

VB.Net:

 If Screen.AllScreens.Length > 1 Then

            monitorvarcheck.Enabled = True
        Else
            monitorvarcheck.Enabled = False


        End If

2.Formu 2.Monitorda aciorum buda oluyor

VB.Net:

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

VB.Net:

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 · 4 Mar 2022

Kod:

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 · 4 Mar 2022

akif3838' Alıntı:

Kod:

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

Kod:

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 · 4 Mar 2022

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

katimur94 · 4 Mar 2022

omertrans156' Alıntı:
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 · 4 Mar 2022

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

katimur94 · 4 Mar 2022

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 · 4 Mar 2022

merhabalar hile hakında bilgi vericek varmı

akif3838 · 4 Mar 2022

katimur94' Alıntı:
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 · 4 Mar 2022

çözebildin mi hacı?

katimur94 · 4 Mar 2022

akif3838' Alıntı:
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

Kod:

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

olmuyor

Post automatically merged: 4 Mar 2022

ilkeakyx' Alıntı:
çözebildin mi hacı?

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

omertrans156 · 4 Mar 2022

katimur94' Alıntı:
2. Monitor da olusturdugum Transparent Form un Paintle Kare nin icerigini yakalamak istiorum

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

Kod:

'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 · 4 Mar 2022

omertrans156' Alıntı:
x ve y yerine istediğin sayı değiştirebilirsin.

Kod:

'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

Kod:

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

VB.net yardim Multi Screen Capture

katimur94

akif3838

katimur94

omertrans156

omertrans505

katimur94

berkaygrg0

katimur94

Seçkin Gözel

akif3838

ilkeakyx

katimur94

omertrans156

omertrans505

katimur94

Benzer Konular

VB.net yardim Multi Screen Capture

omertrans505

omertrans505

Benzer Konular

Privacy & Transparency

Privacy & Transparency