Pequeña duda....

[Zaoner]

Hola tengo una duda.... estoy practicando ejemplos por que recien comienzo con Visual Basic y tengo problemas con esto.... con hacer un screen remotamente....Localmente anda perfecto pero tengo un par de dudas al hacerlo Remotamente....

el codigo para que funcione localmente es

en el FORM()

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir


'SCREEN CAPTURE
       Case "ty"
            CapturarScreen



y en un modulo aparte lo siguiente

Código [Seleccionar] Expandir


'*******************************************************************************************************************************************************************************************************
' 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? 

[ricardovinzo]

Una cosa, no lei todo el post, pero te recomiendo NO usar la API para simular el Impr-Pant-PetSis hay un modulo que hace eso y lo saca en .jpg... que es mejor