Sacar fotos

Estado
Cerrado para nuevas respuestas.

Locura

Newbie Lvl 1
[CLIENTE]Sacar fotos

Bueno despues de un par de dias y hacer MEJORAS para mi que eso no lo voy a dar:$

Bueno esto se puede usar en todas la versiones=),
100% echo por mi:$

Al final del Mod_General agregar esto.

Código:
'LocuriTa 11/09/2006 06:18hs
 
Public Sub CapturarPantalla()
    Dim FreeImage1 As Long
    Dim bOK As Long
    Dim strFName As String
    Dim strFTemp As String
    strFTemp = App.path & "\fotos\screen.bmp"
   
 
    DoEvents
   
    Clipboard.Clear
   
 
    keybd_event vbKeySnapshot, 0, 0, 0
    DoEvents
 
 
    keybd_event vbKeySnapshot, 0, &H2, 0
    DoEvents
    DoEvents
 
 
    frmMain.ScreenCapture.Picture = Clipboard.GetData(vbCFBitmap)
    DoEvents
    DoEvents
 
 
    Screen.MousePointer = vbHourglass
   
 
    SavePicture frmMain.ScreenCapture.Picture, strFTemp
    DoEvents
   
 
    FreeImage1 = FreeImage_Load(FIF_BMP, strFTemp, 0)
   
   'Bueno aca les explico lo basico el modo al guardar la foto 
   'YYYY=Año | MM = Mes |DD = Dia |HH = Hora |MM = Minutos | SS=Segundos
   
    strFName = format(Now, "yyyy/mm/dd/hh/mm/ss")
   
    'Donde dice TuServer cambialo con el nombre de tu servidor.
   
    strFName = App.path & "\Fotos\TuServer-" & strFName & ".jpg"
    bOK = FreeImage_Save(FIF_JPEG, FreeImage1, strFName, &H80)
   
   
    FreeImage_Unload (FreeImage1)
 
   
    Screen.MousePointer = vbNormal
   
    Kill strFTemp
   
    Call AddtoRichTextBox(frmMain.RecTxt, "Guardado: " & strFName, 255, 128, 1, False, False, False)
End Sub
 
'LocuriTa
Despues crear un PirectureBox en el frmMain bajo el nombre ScreenCapture

Luegue en el Private Sub Form_KeyUp pongas esto
Código:
            Case vbKeyF12:
              Call CapturarPantalla
Luego crear un Modulo nuevo con el nombre FreeImage con esto adentro[Lo hago en un txt por que sino tengo que hacer como 4 post:p]
http://www.subelo.net/files/SacarFotos.rar

Y por ultimo crear una carpeta del cliente con el nomnbre Fotos, Y poner este DLL
http://www.subelo.net/files/FreeImage.zip

Espero que les sirva
Totalmente echo por mi:)
Anda perfectamente



Saludos,
LocuriTa.
 

CHOTS

Director LapsusAO
No es q reviva post pero Khalem lo subiste a "INDICE DE PROGRAMACION" sin siquiera testearlo ¬¬

Ninguno de los links andan, y el code tampoco, yo lo tengo de antes...

Suerte
 

Khalem

Mica
Colaborador
Ex-Staff
Disculpá Chots, yo miro los códigos pero no los pruebo, sino no llego con nada, y como decia que estaba todo ok, pensé que así era... Ahora lo saco.

Gracias
 
Estado
Cerrado para nuevas respuestas.
Arriba