Preencher Campos do Formul�rio HTML Automaticamente

Question

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 ...

Rjun · Answer

Utilize TWebBrowser. Use como base as dicas dessa link//www.swissdelphicenter.ch/en/internet.php...

Steve_narancic · Answer

Preciso fazer algo semelhante mas o link indicato est� quebrado...

Janbaceiredo · Answer

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+

Diegotiemann · Answer

Valeu cara esse t�pico me ajudou um monte....