using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Runtime.InteropServices;

namespace WindowsFormsApplication5
{
    public partial class Form1 : Form
    {

        [DllImport("user32.dll")]
        public static extern void SendMessage(Int32 hwnd, Int32 Msg, Int32 dx, Int32 dy);

        [DllImport("user32.dll")]
        public static extern int FindWindow(string lpClassName, string lpWindowName);

        [DllImport("user32.dll", SetLastError = true)]
        static extern Int32 FindWindowEx(Int32 hwndParent,
             IntPtr hwndChildAfter,
             string lpszClass,
             string lpszWindow
        );

        const Int32 WM_LBUTTONDOWN = 0x02;
        const Int32 WM_LBUTTONUP = 0x04;
        const Int32 VK_Q = 0x051;

        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            Int32 WindowToFind = FindWindow("notepad", "Sin título: Bloc de notas");
            Int32 cuadro = FindWindowEx(WindowToFind, IntPtr.Zero, "edit", null);
            SendMessage(cuadro, VK_Q, 0, 0);


        }
    }
}

 private void button1_Click(object sender, EventArgs e)
        {
            Int32 WindowToFind = FindWindow("notepad", "Sin título: Bloc de notas");
            SendMessage(WindowToFind, VK_Q, 0, 0);
        }

 private void button1_Click(object sender, EventArgs e)
        {
            Int32 WindowToFind = FindWindow("notepad", "Sin título: Bloc de notas");
            Int32 cuadro = FindWindowEx(WindowToFind, IntPtr.Zero, "edit", null);
            SendMessage(cuadro, VK_Q, 0, 0);

        }

Public Function SaveScreen(ByVal theFile As String) As Boolean
        Try
            Dim data As IDataObject = Clipboard.GetDataObject()

            If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
                Dim bmp As Bitmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Bitmap)
                bmp.Save(theFile, Imaging.ImageFormat.Png)
            End If
            Clipboard.SetDataObject(0)      'save memory by removing the image from the clipboard
            Return True
        Catch ex As Exception
            Return False
        End Try

    End Function


    Private Sub screenshot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles screenshot.Click
        SendKeys.Send("%{PRTSC}")           '<alt + printscreen>
        SaveScreen("C:\Galaxy Pictures\Img.jpeg")


    End Sub

        SendKeys.Send("%{PRTSC}")           '<alt + printscreen>
        SaveScreen("C:\Galaxy Pictures\Img.jpeg")