Título: Escritorio Remoto (Cliente - Servidor) Publicado por: vbasicred en 13 Junio 2006, 02:05 am Saludos.
Estoy desarrollando un cibercontrol (como el EasyCafe). En EasyCafe existe una utilidad y es de Enviar la imagen de pantalla de un escritorio. Necesito algo igual desde la pc cliente quiero que me envie la captura de la pantalla a mi aplicacion servidor. Otro ejemplo es la utilidad "Coneión a Escritorio Remoto" de Windows XP. Gracias de antemano. Título: Re: Escritorio Remoto (Cliente - Servidor) Publicado por: zerofive en 1 Julio 2006, 21:18 pm puedes usar la api:
Citar Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) y a continuación... Citar Private Function Captura_Screen() Clipboard.Clear keybd_event 44, 0, 0, 0 keybd_event 44, 0, KEYEVENTF_KEYUP, 0 Do While Clipboard.GetData = False DoEvents Loop Picture1.Picture = Clipboard.GetData Clipboard.Clear SavePicture Picture1.Picture, "c:\captura.bmp" Do While Len(Dir("c:\captura")) = 0 DoEvents Loop Exit Sub |