Screenshots

[Fat_N_Furry]

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

[Lethal]

Sure..

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);		
}

[Lethal]

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

[Fat_N_Furry]

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

Gracias Muy Mucho!
Furry

[Fat_N_Furry]

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


Thanks again!

[Lethal]

Here you go...

    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

[Fat_N_Furry]

OMG that is sweetness. Thankyou so much, Lethal!

[Lethal]

No prob...

[Fat_N_Furry]

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:

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

Thanks again for your help.

[Lethal]

try this:

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");
	}
}

[Fat_N_Furry]

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

[Fat_N_Furry]

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

Thanks

[hellswraith]

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.

[Fat_N_Furry]

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.

[Jeremy Martin]

I think this should be about right.

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

[Fat_N_Furry]

Thanks, dudes. Much appreciated, all of you.

Bug ya later!
Furry