Preencher Campos do Formulário HTML Automaticamente

Delphi

23/08/2005

Galera,

estou necessitando fazer um robo no estilo do gator, onde tenho uma página WEB com campos e assim que a página é carregada, gostaria de preenche-los com as informações previamente guardadas de um banco de dados.

Deus Abençoe a Todos,

Adamo Buosi
adamosb@ig.com.br


Adamosb

Adamosb

Curtidas 0

Respostas

Rjun

Rjun

23/08/2005

Utilize TWebBrowser. Use como base as dicas dessa link

http://www.swissdelphicenter.ch/en/internet.php


GOSTEI 0
Steve_narancic

Steve_narancic

23/08/2005

Preciso fazer algo semelhante mas o link indicato está quebrado


GOSTEI 0
Janbaceiredo

Janbaceiredo

23/08/2005

Na verdade o link nao esta quebrado. Vc tem que procurar o que vc quer nos artigos mostrados.

Vou mostrar um exemplo bem simples de como logar aqui no forum do ClubeDelphi, depois vc melhora. Se vc procurar aqui no forum ira encotrar varios exemplos sobre esse assunto.
Vamos lá:

1º - Abra uma nova aplicação.
2º - Adicione um TPanel e coloque sua propriedade Align como AlBottom
3º - Adicione um componente TWebBrowser1 e coloque sua propriedade Align como AllClient
4º - Adicione dois Edit e um Botao
5º - No evento OnCreate do formulario adicione o comando:
[b:f50c574c62] WebBrowser1.Navigate(´http://forum.clubedelphi.net/login.php?sid=e54bcd4f9b62ef9b66a54c18fb80aeb9´);[/b:f50c574c62]
6º - De duplo clique no Botao e adicione o comando:
[b:f50c574c62] WebBrowser1.OleObject.Document.all.Item(´username´, 0).value := Edit1.text;
WebBrowser1.OleObject.Document.all.Item(´password´, 0).value := Edit2.text;
WebBrowser1.OleObject.Document.all.Item(´login´, 0).Click;[/b:f50c574c62]
7º - Execute a aplicacao e preencha o primeiro Edit com seu usuario e o segundo Edit com sua senha e clique no botao.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Panel1: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.OleObject.Document.all.Item(´username´, 0).value := Edit1.text;
  WebBrowser1.OleObject.Document.all.Item(´password´, 0).value := Edit2.text;
  WebBrowser1.OleObject.Document.all.Item(´login´, 0).Click;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate(´http://forum.clubedelphi.net/login.php?sid=e54bcd4f9b62ef9b66a54c18fb80aeb9´);
end;

end.


Valeu T+


GOSTEI 0
Diegotiemann

Diegotiemann

23/08/2005

Valeu cara esse tópico me ajudou um monte.


GOSTEI 0
POSTAR