Preencher Campos do Formulário HTML Automaticamente
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
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
Curtidas 0
Respostas
Rjun
23/08/2005
Utilize TWebBrowser. Use como base as dicas dessa link
http://www.swissdelphicenter.ch/en/internet.php
http://www.swissdelphicenter.ch/en/internet.php
GOSTEI 0
Steve_narancic
23/08/2005
Preciso fazer algo semelhante mas o link indicato está quebrado
GOSTEI 0
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.
Valeu T+
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
23/08/2005
Valeu cara esse tópico me ajudou um monte.
GOSTEI 0