Se podra hacer esto en VFP???

Claro que puedes hacerlo . mira esta función api que hace justo lo que
quieres


CLEA DLLS
DECLARE INTEGER FindWindowEx IN "user32" INTEGER, INTEGER, STRING, STRING
DECLARE INTEGER SendMessage IN "user32" INTEGER, INTEGER, INTEGER, STRING

#DEFINE wm_gettext 13
#DEFINE wm_gettextlength 14
hclass = "IEFrame"
ecaption = .NULL.
HWND = findwindowex(0, 0, hclass, ecaption)
hclass = ("WorkerA")
HWND = findwindowex(HWND, 0, hclass, ecaption)
hclass = ("ReBarWindow32")
HWND = findwindowex(HWND, 0, hclass, ecaption)
hclass = ("ComboBoxEx32")
HWND = findwindowex(HWND, 0, hclass, ecaption)
hclass = ("ComboBox")
HWND = findwindowex(HWND, 0, hclass, ecaption)
hclass = ("Edit")
HWND = findwindowex(HWND, 0, hclass, ecaption)
ntext = sendmessage(HWND, wm_gettextlength, 0, "")
BUFFER = SPACE(ntext)
sendmessage(HWND, wm_gettext, ntext + 1, @BUFFER)
IF EMPTY(ALLT(BUFFER)) then
MESSAGEBOX("Microsoft Internet Explorer no esta activo..." +SPACE(8),0 +
64,"Atención")
RETU
ELSE
MESSAGEBOX("La Url es: " + BUFFER + SPACE(8),0 + 64,"Atención")
ENDIF
CLEAR ALL
CLEAR DLLS
RETURN

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.cjb.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523


"Heberto Villavicencio" escribió en el mensaje
news:

Necesito capturar la direccion de internet que el usuario escribe en el

IE,

se que para IE se pueden escribir plugsin, pero no se si esto se podra

hacer

en VFP, en especifico, necesito capturar la direccion y guardarla en una
tabla, pense hacerlo revisando el historial que maneja IE, pero este
historial puede ser borrado en cualquier momento por el usuario, esto no

me

serviria,alguna idea para hacer esto?????

Gracias David, ahora otra pregunta como puedo hacer para que cada vez que IE
valla abajar una pagina se active mi aplicacion y esta consulte a IE la
pasina que esta bajando, otra cosa, como se comporta esta funcion cuando
existen varias ventanas de IE. Gracias

"David Amador (Davphantom)" escribió en el mensaje
news:##

Claro que puedes hacerlo . mira esta función api que hace justo lo que
quieres


CLEA DLLS
DECLARE INTEGER FindWindowEx IN "user32" INTEGER, INTEGER, STRING, STRING
DECLARE INTEGER SendMessage IN "user32" INTEGER, INTEGER, INTEGER, STRING

#DEFINE wm_gettext 13
#DEFINE wm_gettextlength 14
hclass = "IEFrame"
ecaption = .NULL.
HWND = findwindowex(0, 0, hclass, ecaption)
hclass = ("WorkerA")
HWND = findwindowex(HWND, 0, hclass, ecaption)
hclass = ("ReBarWindow32")
HWND = findwindowex(HWND, 0, hclass, ecaption)
hclass = ("ComboBoxEx32")
HWND = findwindowex(HWND, 0, hclass, ecaption)
hclass = ("ComboBox")
HWND = findwindowex(HWND, 0, hclass, ecaption)
hclass = ("Edit")
HWND = findwindowex(HWND, 0, hclass, ecaption)
ntext = sendmessage(HWND, wm_gettextlength, 0, "")
BUFFER = SPACE(ntext)
sendmessage(HWND, wm_gettext, ntext + 1, @BUFFER)
IF EMPTY(ALLT(BUFFER)) then
MESSAGEBOX("Microsoft Internet Explorer no esta activo..." +SPACE(8),0

+

64,"Atención")
RETU
ELSE
MESSAGEBOX("La Url es: " + BUFFER + SPACE(8),0 + 64,"Atención")
ENDIF
CLEAR ALL
CLEAR DLLS
RETURN

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.cjb.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523


"Heberto Villavicencio" escribió en el mensaje
news:
> Necesito capturar la direccion de internet que el usuario escribe en el
IE,
> se que para IE se pueden escribir plugsin, pero no se si esto se podra
hacer
> en VFP, en especifico, necesito capturar la direccion y guardarla en una
> tabla, pense hacerlo revisando el historial que maneja IE, pero este
> historial puede ser borrado en cualquier momento por el usuario, esto no
me
> serviria,alguna idea para hacer esto?????
>
>
>