Cita:
Empezado por Neftali
Bueno, mi comentario es más una idea, no te puedo asegurar que funcione. Se trataría de enviar mensajes a ese handle. Revisa en los foros sobre envío de mensajes...
En cuanto a lo que comentas a Casimiro, si la idea es ir navegando a accediendo a páginas, ¿no podrías extraer la información de la página web y posteriormente acceder directamente a esas direcciones?
|
Ahora cuando tenga un ratito reviso eso.
Y en cuanto a lo de extraerla, si y no.
Resulta, que el programa funciona con un sistema de configuraciones.
Podria haber extraido toda la informacion, almacenarla en una base de datos, y obtener. Pero resulta, que tras analizar la informacion, son mas de 300 url a guardar, y las url a ser de paginas externas, pueden cambiar en cualquier momento.
En cambio, el algoritmo que yo he hecho, es bastante simple, trabaja con un bucle for, que segun la configuracion asignada, da mas o menos "vueltas". Y las vueltas son obtenidas de una pequeña formula que me he inventado. Es decir, es una solucion rapida, sin tener que andar accediendo a base de datos u otros medios parecidos.
Y funciona perfectamente, pero solo si esta activo el programa. En caso de tenerlo minimizado o algo, no hace nada, y eso es lo que quiero arreglar.
EDITO:
He probado a enviar mensajes al handle con: "PostMessage(Form1.WebBrowser1.handle,WM_KEYDOWN,VK_TAB,0);".
Basandome en el siguiente codigo de internet:
var
x,tecla:integer
begin
for x:=0 to ComponentCount-1 do
if (Componentes[x] is TEdit) and
(TEdit(Components[x]).Focused=True)then
PostMessage(TEdit(Components[x]).handle,WM_KEYDOWN,tecla,0);
Parece ser o que no uso bien la "conversion" que he hecho, o que no funciona:S