Screenshot + Guardar Imagenes sin sobrescribir

Iniciado por GonzaFz, 9 Agosto 2011, 03:52 AM

0 Miembros y 1 Visitante están viendo este tema.

GonzaFz

Bueno lo que sucede es que quiero hacer que mi programa saque un screenshot (de solo la ventana del programa) y que vaya guardando imagenes, es decir, que guarde 1 y cuando saque otra le ponga 2, 3 , 4, 5, etc y así infinitamente.
Mi codigo hasta ahora es:
Código (vbnet) [Seleccionar]
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.

x64core

#1
 :P :P :P :P :P :P

declara una variable a nivel formulario para llevar la cuenta:

Código (vb) [Seleccionar]
dim account as integer

...
Código (vb) [Seleccionar]
Private Sub screenshot_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles screenshot.Click
       'Captura la ventana activa
account = account + 1
....
oImgObj.Save("c:\Galaxy Pictures\Img" & cstr(account)  & ".jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)
....


se hiran guardando
img1.jpeg
img2.jpeg
img3.jpeg
...


PD:
:xD :xD :xD :xD me confundi crei que era VB :xD noce si te sirve el codigo :P

GonzaFz

#2
Siiiiiiiii! Muchisimas gracias. La verdad recien me inicio en el mundo del visual basic, empeze el domingo a hacer un programa para un juego (mejor dicho es solo una forma mas facil de acceder donde podes abrir multi cuentas y tenes accesos directos a unos recursos muy utilizados) y bueno con indexar la pagina no tuve problemas pero luego un amigo me planteo que le ponga para sacar screenshot y bueno intente, busque en internet, combine codigos y mucho mas, pero vos me salvaste! Muchisimas gracias =).

Y porfa si me podes dar alguna forma facil de contactarte porque tambien quiero hacer que si no encuentra la carpeta Galaxy Pictures la cree xd! Porfa y muchas gracias.
Lei que era algo de MkDir pero no la crea no se porque, me da error. (Todo va con el boton de sacar screenshot porque es para no molestar al usuario)


EDITO:
Y otro de los problemas que tengo es que saco la foto pero no se guarda todavia, tengo que apretar de nuevo y ahi se guarda en la carpeta seleccionada. Osea digo que vos apretas una vez y no se guarda y despues apretas de nuevo y se guarda la anterior, y asi se va guardando una foto anterior a la que sacas..