Este es un código para capturar la pantalla desde un programa en foxpro(lenguaje de programacion en base a objetos), esto ira en un botton:


DECLARE INTEGER keybd_event IN Win32API INTEGER, INTEGER, INTEGER, INTEGER

VK_SNAPSHOT = 44
VK_LMENU = 164
KEYEVENTF_KEYUP = 2
KEYEVENTF_EXTENDEDKEY = 1

DOEVENTS
keybd_event(VK_SNAPSHOT, 1, 0, 0 )
keybd_event(VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0 )
DOEVENTS
DOEVENTS
keybd_event( VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 )
keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0 )
keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0 )
keybd_event( VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0 )
DOEVENTS

oWord=CREATEOBJECT("Word.Application")
oWord.WindowState=2
oWord.Documents.Add.Content.Paste
oWord.Visible=.T.






Comentarios

Publicar un comentario

Entradas populares de este blog

uso de web cam en vfp

Este es un programa para usar la web-cam desde un formulario de visual foxpro (vfp). noesmio el codigo, me lo paso un amigo- Nexis Mejía. Espero les sirva y lo usen. ATT. luis lagos amaya LOCAL oForm oForm = CREATEOBJECT("Tform") oForm.show(1) return DEFINE CLASS Tform As Form #DEFINE WM_CAP_START 0x0400 #DEFINE WM_CAP_DRIVER_CONNECT (WM_CAP_START+10) #DEFINE WM_CAP_DRIVER_DISCONNECT (WM_CAP_START+11) #DEFINE WM_CAP_DRIVER_GET_CAPS (WM_CAP_START+14) #DEFINE WM_CAP_SET_PREVIEW (WM_CAP_START+50) #DEFINE WM_CAP_SET_OVERLAY (WM_CAP_START+51) #DEFINE WM_CAP_SET_PREVIEWRATE (WM_CAP_START+52) #DEFINE WM_CAP_GET_STATUS (WM_CAP_START+54) #DEFINE WM_CAP_GRAB_FRAME (WM_CAP_START+60) *Width=540 && para poner imagenes del click. Width=340 Height=310 Autocenter=.T. Caption="Captura de Foto del Interno" MinButton=.F. MaxButton=.F. hWindow=0 hCapture=0 capWidth=0 capHeight=0 capOverlay=0 ADD OBJECT cmdGetFrame As CommandButton WITH Def...
Leer más

Código convertir numero octal a decimal

Código convertir numero  octal a decimal -Utilizaran   una caja de texto para ingresar el número octal -una label para poner la respuesta Hecho para visual FoxPro Esto lo tendrán que poner en un botton: T1=val(thisform.octal.value) L=len(alltrim(thisform.octal.value) D=0 For x=L   to 1   strp -1                 De=0                 S=substr(alltrim(thisform.octal.value),x,1)                 De=s * 8 ^D                 D=D+1                 Thisform.decimal.caption=str(val(thisform.decimal.caption)+De) next  fin *si les gusto recuerden darle compartir y l...
Leer más