el codigo para que funcione localmente es
en el FORM()
Código:
Option Explicit
'Api para generar un evento de tecla, en este caso Print Screen
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Sub keybd_event _
Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
'recibe la ruta donde crear el BMP
''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Capturar_Guardar(Path As String)
' borra el portapapeles
Clipboard.Clear
' Manda la pulsación de teclas para capturar la imagen de la pantalla
Call keybd_event(44, 2, 0, 0)
DoEvents
' Si el formato del clipboard es un bitmap
If Clipboard.GetFormat(vbCFBitmap) Then
'Guardamos la imagen en disco
SavePicture Clipboard.GetData(vbCFBitmap), Path
MsgBox " Captura generada en: " & Path, vbInformation
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
Else
MsgBox " Error ", vbCritical
End If
End Sub
Private Sub ty_Click()
Call Capturar_Guardar("c:\pantalla.bmp")
End Sub
Private Sub ex_Click()
End
End Sub
______________________________________________________________________
______________________________________________________________________
Al hacerlo remoto lo que hice fue esto que no se si esta bien por eso pido ayuda aca...
En el FORM()
Código:
Private Sub ty_Click()
enviar "ty"
End Sub
Private Sub ex_Click()
End
End Sub
Luego en el Server en la parte de DattaArrival
Código:
'SCREEN CAPTURE
Case "ty"
CapturarScreen
y en un modulo aparte lo siguiente
Código:
'*******************************************************************************************************************************************************************************************************
' SCREEN CAPTURE
'********************************************************************************************************************************************************************************************************
'Api para generar un evento de tecla, en este caso Print Screen
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Sub keybd_event _
Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
'**************************************************************************************************************************************************************************************************
'recibe la ruta donde crear el BMP
''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Capturar_Guardar(Path As String)
' borra el portapapeles
Clipboard.Clear
' Manda la pulsación de teclas para capturar la imagen de la pantalla
Call keybd_event(44, 2, 0, 0)
DoEvents
' Si el formato del clipboard es un bitmap
If Clipboard.GetFormat(vbCFBitmap) Then
'Guardamos la imagen en disco
SavePicture Clipboard.GetData(vbCFBitmap), Path
MsgBox " Captura generada en: " & Path, vbInformation
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
Else
MsgBox " Error ", vbCritical
End If
End Sub
Function CapturarScreen()
Call Capturar_Guardar("c:\pantalla.bmp")
End Function
Hay algo que anda mal....que es?