Sistema De ScreenShots

Fecha de inscripción : 09/05/2011

Explicación:
El codigo consiste que cuando aprestas la tecla "F" le saca una foto a la pantalla y la guarda en la carpeta ScreenShots
Con el codigo explicado, empesemos.

Todo en el cliente.

1-Buscamos:

Código:: Select Case KeyCode

Y abajo ponemos:

Código:: Dim s As Integer
For s = 1 To 1000
If Not FileExist(App.Path & "\ScreenShots\ScreenShot" & s & ".bmp", vbNormal) Then Exit For
Next
Call Capturar_Guardar(App.Path & "/ScreenShots/ScreenShot" & s & ".bmp")
Call AddtoRichTextBox(frmMain.RecTxt, "ScreenShot" & s & ".bmp guardada en la carpeta ScreenShots.", 255, 255, 255, False, False, False)

2-Al final del Frmmain poner:

Código:: Private Sub Capturar_Guardar(Path As String)
Clipboard.Clear
keybd_event VK_SNAPSHOT, 1, 0, 0
DoEvents
If Clipboard.GetFormat(vbCFBitmap) Then
SavePicture Clipboard.GetData(vbCFBitmap), Path
'MsgBox " Captura generada en: " & Path, vbInformation
'Picture1.Picture = Clipboard.GetData(vbCFBitmap)
Else
MsgBox " Error ", vbCritical
End If
End Sub

3-En el mismo formulario declarar:

Código:: Private Const VK_SNAPSHOT = &H2C
Private Declare Sub keybd_event Lib "User32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

4-En la carpeta del cliente crear una carpeta con el nombre de ScreenShots

Espero que les sirva .

PD: Testeado para la 11.5

Fuente : Servers - Argentum

Fecha de inscripción : 14/05/2011

Buen aporte ~Odnucaff~, ¡seguí así!, ¡suerte!.

Saludos.

Fecha de inscripción : 04/05/2011

Bien Facu !

Fecha de inscripción : 09/05/2011

Gracias a todos !!!!

Voy a seguir posteando estas cosas...

Fecha de inscripción : 08/05/2011

¡Buen Aporte!

Seguí así que vas por buen camino!