[Pytanie] ScreenShoter

[bartek4175]

Witam mam pytanko , chciałbym stworzyć program typu screenshooter , i mam do was pytanko jak zrobić aby program robił zdjęcie całego pulpitu przykładowo a następnie wysyłał go na serwer , a gdy już go wyśle to label1 zmienia się na adres to zdjęcia i picture obieckt zmienia się na zdjęcie.

[Gość]

Robienie zrzutu ekranu to błahostka, więc sobie poradzisz, wysyłanie na serwer to zwykły httpwebrequest i wysyłanie tablicy bajtów obrazka, zmienianie tekstu na obiekcie typu Label to zmiana parametru Text.

[bartek4175]

Robienie zrzutu ekranu to błahostka, więc sobie poradzisz, wysyłanie na serwer to zwykły httpwebrequest i wysyłanie tablicy bajtów obrazka, zmienianie tekstu na obiekcie typu Label to zmiana parametru Text.

Jak dla mnie to łatwe nie jest więc może dasz jakąś podpowiedz ?

[tsdek]

 

Dim Rect As Rectangle
Rect.Width = Screen.PrimaryScreen.Bounds.Width
Rect.Height = Screen.PrimaryScreen.Bounds.Height
Rect.X = 0
Rect.Y = 0
CaptureScreen.Snapshot("My Documents\Test.bmp", Rect)

 

Ale można też tak:

 

 

Me.Opacity = 0 ' Hides the form. Can't use this!

Dim bounds As Rectangle = Me.Bounds
Dim screenshot As New Bitmap(bounds.Width, bounds.Height, Imaging.PixelFormat.Format32bppArgb)
Dim g As Graphics = Graphics.FromImage(screenshot)
g.CopyFromScreen(bounds.Location, New Point(0, 0), bounds.Size, CopyPixelOperation.SourceCopy)
' screenshot now holds the image of what's behind the form

Me.Opacity = 1 ' Shows the form. Can't use this!

 

źrodło:

http://social.msdn.microsoft.com/Forums/vstudio/en-US/88069ea6-e9cd-42a4-afdc-961146c6a516/visual-basic-how-to-take-screenshot-of-screen-behind-form

[Seba65439]

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' Create a new Bitmap object with the screen bounds
        Dim b As Bitmap = New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height, Imaging.PixelFormat.Format32bppArgb)
        ' Create a Graphics object that will process the screen shot
        Dim gfx As Graphics = Graphics.FromImage(
        ' Copy the screen contents
        gfx.CopyFromScreen(My.Computer.Screen.Bounds.X, My.Computer.Screen.Bounds.Y, 0, 0, Bounds.Size, CopyPixelOperation.SourceCopy)
        ' Save the resulting graphics
        b.Save("my2.jpg", Imaging.ImageFormat.Jpeg)


    End Sub
End Class

@edit

Tylko w tym kodzie screen ma wymiary Form