Fórum Como por login e senha automáticamente no WebBrowser #356570

Já procurou no forum?
Vê se este tópico lhe ajuda http://forum.devmedia.com.br/viewtopic.php?t=52365

Fico Feliz Pela Sua Atenção...Mas Teria Como vc Mim Mostrar a Direção Do Código Usando o Site...(https://dsfpro.timbrasil.com.br:6061/International/dsfw/Login/html/login.html)...Ja Peço Disculpas Antercipada Pelo Meus Poucos Conhecimentos em Programação Delphi...Mas Minha Finalidade e Melhorar...

Cara o link http://www.swissdelphicenter.ch/en/showcode.php?id=262 que está no tópico que lhe passei tem todo o exemplo, é só copiar e trocar no evento do botão a página de exemplo pela sua página e no evento WebBrowser1DocumentComplete o campo e o texto que você quer preencher no site. Tenta aí.

Obrigado Novamente Pela Atenção... Vou Tentar Aqui e Darei um Retorno Para falar a Conclusão...

Karo e Atencioso Amigo...Infelizmente eu usei suas instruções citada a cima mas não deu certo ...

Utilizei as alterações assim.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
Label1: TLabel;
procedure WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
i, j: Integer;
FormItem: Variant;
begin
Result := False;
//no form on document
if WebBrowser.OleObject.Document.all.tags(´FORM´).Length = 0 then
begin
Exit;
end;
//count forms on document
for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
begin
FormItem := WebBrowser.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).Name = FieldName then
begin
FormItem.Item(j).Value := Value;
Result := True;
end;
except
Exit;
end;
end;
end;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if FillForm(WebBrowser1, ´user´, ´Freecabo´) = False then
ShowMessage(´Não Deu Certo.´);
end;

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin
if ProgressMax = 0 then
begin
label1.Caption := ´´;
Exit;
end;
try
if (Progress <> -1) and (Progress <= ProgressMax) then
label1.Caption := IntToStr((Progress * 100) div ProgressMax) + ´¬ loaded...´
else
label1.Caption := ´´;
except
on EDivByZero do Exit;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate(´https://dsfpro.timbrasil.com.br:6061/International/dsfw/Login/html/login.html´);
// Show the Titel of the currently active Webpage in the titlebar
// Den Titel der aktuellen Webseite in der Titeleiste anzeigen
Caption := Webbrowser1.OleObject.Document.Title;
end;

end.


Fico no aguardo sa sua preciosa ajuda ...Pela Atenção Obrigado

Infelismente eu não trabalho mais com Delphi para poder testar o seu código. Nem tenho aqui na empresa acesso ao site da Tim. Aparentemente o código está correto. Espero que alguém que tenha Delphi possa lhe ajudar.

Mas gostaria de dar outra dica. Desta vez relacionada ao forum. Quando postar um código, coloque ele entre as tags CODE para assim não perder a identação, facilitando o entendimento do código à quem vai lhe ajudar. Veja o exemplo:
[/code]

Muito Obrigado Pela sua Atenção e Tentaiva de Ajuda...Fico Gratissimo mesmo ....Fico aqui na Peleja e aguardo de alguem q queira Mim ajudar tmb em relação a esse Problema...Estou nas pesquizas mas os Codigos de exemplos q axei na internet não funciona creio q tenha algo haver com os ´JS´...q impeça o preenchimento ...Aguardo alguem q mim possa ajudar e tmb continuo na pesquiza eu axando algo Postarei aqui para q Ajudem outros com a mesmas duvidas....Pela Atenção Obrigado a Todos.