Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   click en boton (https://www.clubdelphi.com/foros/showthread.php?t=68054)

titomigue 21-05-2010 16:21:59

click en boton
 
Hola buenas, tengo una pagina web abierta en mi twebbrowser. Trato de hacer un autologin en dicha pagina, los inputs de usuario y contraseña los e rellenado automaticamente y lo que pretendo tambien es que haga click sobre el boton login automaticamente.

El boton en cuestion tiene este formato:
<input value="Login" type="submit">

si tuviese id o name si que sabria hacerlo, pero asi no se...

¿alguna idea?

Edito: se me a olvidado mencionar que no es el unico boton de la pagina, hay mas botones type "submit" con otros values...

droguerman 21-05-2010 17:30:08

trata llamando al método submit del formulario

titomigue 21-05-2010 18:05:14

al final e conseguido solucionarlo de esta manera:

procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
FormItem: Variant;
begin
//Result := False;
//no form on document
if WebBrowser1.OleObject.Document.all.tags('FORM').Length = 0 then
begin
Exit;
end;
//count forms on document
for I := 0 to WebBrowser1.OleObject.Document.forms.Length - 1 do
begin
FormItem := WebBrowser1.OleObject.Document.forms.Item(I);
for j := 0 to FormItem.Length - 1 do
begin
try
//when the fieldname is found, try to fill out
if FormItem.Item(j).Value = 'Login' then
begin
FormItem.Item(j).Click;
//Result := True;
end;
except
Exit;
end;
end;
end;
end;


Gracias de todos modos!!!


La franja horaria es GMT +2. Ahora son las 04:50:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi