Autor
EL FORM QUE QUIERO QUE LA RECIVA:
Código:
Dim datos As String
ws.GetData datos
End Sub
Open "e:\captura.bmp" For Binary As #1
Put #1, , datos
Close #1
EL FORM QUE ENVIA LA CAPTURA
FUNCION QUE SAQUE DEL FORO:
Código:
Private Function Captura_Screen()
Clipboard.Clear
'capturamos
keybd_event 44, 0, 0, 0
keybd_event 44, 0, KEYEVENTF_KEYUP, 0
'mientras no se pueda cojer el contenido
Do While Clipboard.GetData = False
DoEvents
Loop
Picture1.Picture = Clipboard.GetData
'borramos el portapapeles
Clipboard.Clear
SavePicture Picture1.Picture, "e:\sht.bmp"
Do While Len(Dir("e:\sht.bmp")) = 0
DoEvents
Loop
'ya se ha guardado el archivo
End Function
Private Sub Command1_Click()
Call Captura_Screen
Dim imagen As String
Open "e:\sht.bmp" For Binary As #1
Get #1, , imagen
Close #1
ws.SendData imagen
End Sub
PD:se que es un tema comentado pero no se que pasa en teoria creo que me tendria que funcionar.
Gracias
En línea
