Screenshot!

Found this on the bowels of my hard drive, change stream to file name/path if you want, i had it as a memory stream because i was using the screenshot function to upload a screenshot to a SQL server (Old anti-cheat project of mine)

have fun

Code:

Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenGrab)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)
        Dim stream As New MemoryStream
        screenGrab.Save(stream, ImageFormat.Jpeg)

 

http://www.daniweb.com/forums/thread94348.html

You know, I'm starting to wonder why your code is almost exactly the same as anything I can find online. I'm starting to think you might be trying to earn respect with code that isn't yours.

Only a hypothesis, feel free to prove me wrong.

 

Its a valid argument, but this I wrote myself