Mi codigo hasta ahora es:
Código
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub screenshot_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles screenshot.Click 'Captura la ventana activa keybd_event(44, 1, 0&, 0&) If Not System.Windows.Forms.Clipboard.GetDataObject() Is Nothing Then Dim oDataObj As IDataObject = System.Windows.Forms.Clipboard.GetDataObject() If oDataObj.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then Dim oImgObj As System.Drawing.Image = oDataObj.GetData(DataFormats.Bitmap, True) 'To Save as Jpeg oImgObj.Save("c:\Galaxy Pictures\Img.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg) End If End If End Sub
Este codigo funciona para sacar la foto y enviarla a la carpeta seleccionada pero no puedo sacar muchsa y que vayan guardandose como 1, 2, 3, etc.
Porfavor espero que me puedan ayudar lo antes posible.