Screenshots

Hey is there any way to take a screenshot of whatever the user sees, and then send it to a location on the hard drive without him/her seeing it being done? I also want to include the mouse in the picture.

What I'm trying to do is create a program for movie creation (like if I wanted to create a movie to show someone, over the internet, how to do something on the computer).


Thanks in advance,
Furry

Sure..

Code:

---

private void btnSnapShop_Click(object sender, System.EventArgs e)
{
        SendKeys.SendWait("+{PRTSC}");  // take a snapshot of the client's desktop
        IDataObject iData = Clipboard.GetDataObject();
        Bitmap bSnapShot = (Bitmap)iData.GetData(DataFormats.Bitmap);
        this.BackgroundImage = bSnapShot;       
        bSnapShot.Save(@"c:\snapshot.bmp",System.Drawing.Imaging.ImageFormat.Bmp);               
}

---

If you need me to convert it to vb.net, let me know..:D

Yes - I will need you to do that please. :) I'm a complete newbie in .NET.

Gracias Muy Mucho!
Furry

Oh - I forgot to ask you - how do you keep it from being shown in the task manager?


Thanks again!

Here you go...

Code:

---

    Imports System.IO
    Private Sub btnSnapShot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSnapShot.Click
        SendKeys.SendWait("+{PRTSC}")
        Dim iData As IDataObject = Clipboard.GetDataObject()
        Dim bSnapShot As Bitmap = CType(iData.GetData(DataFormats.Bitmap), Bitmap)
        Me.BackgroundImage = bSnapShot
        bSnapShot.Save("c:\snapshot.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ShowInTaskbar = False
    End Sub

---

OMG that is sweetness. Thankyou so much, Lethal!

No prob...;)

Crap now I can't get around this user inconvenience - if they use the program, their clipboard data will be lost. :/ This is the code I'm trying to use, but it doesn't work:

VB Code:

Dim OldClipboard = Clipboard.GetDataObject()
'Take the pictures, put it in their hard drive, etc...
Clipboard.SetDataObject(OldClipboard)

Thanks again for your help.

try this:

Code:

---

private void btnSnapShop_Click(object sender, System.EventArgs e)
{       
        try
        {

                object oldData = null;
                IDataObject iOrgData = Clipboard.GetDataObject();
                if(iOrgData != null)
                {
                        oldData = (object)iOrgData.GetData(DataFormats.Text);
                }

                SendKeys.SendWait("+{PRTSC}");  // take a snapshot of the client's desktop                       
                IDataObject iData = Clipboard.GetDataObject();
                Bitmap bSnapShot = (Bitmap)iData.GetData(DataFormats.Bitmap);
                this.BackgroundImage = bSnapShot;
                bSnapShot.Save(@"c:\snapshot.bmp",System.Drawing.Imaging.ImageFormat.Bmp);       
                if(oldData !=null)
                {
                        Clipboard.SetDataObject(oldData, true);
                }
        }
        catch
        {
                MessageBox.Show("Error");
        }
}

---

Um - that doesn't look like VB - is it?

Yo! Dude! You there? Could you translate this to VB.NET for me please?

Thanks

It is in C#. Just look at the code, and convert it. The only things you have to convert are the if statements, the declaring objects statements, and take off the ';'s at the ends of the lines.

But I don't know any C#. I wouldn't know If statement from a declaration, if it weren't for the 'If' at the beginning of them. :( Telling me to translate C# to VB.NET is like picking some random guy off the street and telling him to make a replica of Microsoft Word. I don't even know most of the stuff he posted in VB.NET. I was planning on looking everything up in MSDN after this bit of code is done. I apologize for my complete ignorance. :(

I think this should be about right.

VB Code:

Try
 
            Dim oldData As Object = Nothing
            Dim iOrgData As IDataObject = Clipboard.GetDataObject()
 
            oldData = CType(iOrgData.GetData(DataFormats.Text), Object)
 
            SendKeys.SendWait("+{PRTSC}")
 
            Dim iData As IDataObject = Clipboard.GetDataObject()
            Dim bSnapShot As Bitmap = CType(iData.GetData(DataFormats.Bitmap), Bitmap)
 
            Me.BackgroundImage = bSnapShot
            bSnapShot.Save("c:\snapshot.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
 
            Clipboard.SetDataObject(oldData, True)
 
        Catch
            MessageBox.Show("Error")
        End Try

Jeremy

Thanks, dudes. Much appreciated, all of you. :D

Bug ya later! ;)
Furry