Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: GonzaFz en 9 Agosto 2011, 03:52 am



Título: Screenshot + Guardar Imagenes sin sobrescribir
Publicado por: GonzaFz en 9 Agosto 2011, 03:52 am
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
  1. Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
  2.    Private Sub screenshot_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles screenshot.Click
  3.        'Captura la ventana activa
  4.        keybd_event(44, 1, 0&, 0&)
  5.        If Not System.Windows.Forms.Clipboard.GetDataObject() Is Nothing Then
  6.            Dim oDataObj As IDataObject = System.Windows.Forms.Clipboard.GetDataObject()
  7.            If oDataObj.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then
  8.                Dim oImgObj As System.Drawing.Image = oDataObj.GetData(DataFormats.Bitmap, True)
  9.                'To Save as Jpeg
  10.                oImgObj.Save("c:\Galaxy Pictures\Img.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)
  11.            End If
  12.        End If
  13.    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.


Título: Re: Screenshot + Guardar Imagenes sin sobrescribir
Publicado por: x64core en 9 Agosto 2011, 04:12 am
 :P :P :P :P :P :P

declara una variable a nivel formulario para llevar la cuenta:

Código
  1. dim account as integer
  2.  
...
Código
  1. Private Sub screenshot_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles screenshot.Click
  2.        'Captura la ventana activa
  3. account = account + 1
  4. ....
  5. oImgObj.Save("c:\Galaxy Pictures\Img" & cstr(account)  & ".jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)
  6. ....
  7.  

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


Título: Re: Screenshot + Guardar Imagenes sin sobrescribir
Publicado por: GonzaFz en 9 Agosto 2011, 04:24 am
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..