[AJUDA]Logar no WC atraves de Edits

[RickKM 2]

[Resolvido]Logar no WC atraves de Edits

 

Bom eu estou tentando criar um programa que você coloque seu login nos edits e logue no site da WC. Minha base é essa.

 

procedure TForm1.Button1Click(Sender: TObject);

var

FormItem: Variant;

Field: Variant;

FieldName: String;

I,J: Integer;

Ini: TIniFile;

begin

if Web.OleObject.Document.all.tags('FORM').Length = 0 then

Exit;

 

for I := 0 to Web.OleObject.Document.forms.Length - 1 do

begin

FormItem := Web.OleObject.Document.forms.Item(I);

try

for j := 0 to FormItem.Length - 1 do

begin

 

Field := FormItem.Item(j);

FieldName := Field.Name;

 

if FieldName = 'vb_login_username' then

 

Field.Value := edit1.Text;

if FieldName = 'vb_login_password' then

Field.Value := edit2.Text;

if FieldName = '?' then

Field.Click;

end

except

ShowMessage('Não foi possível identificar os campos para atribuir os valores de Login e Senha');

end;

end;

end;

 

Eu não consigo achar o nome do Submit ( O botão 'Logar' ) no codigo-fonte:confused:. Só falta resolver isso para terminar o programa.

 

@Edit

 

Vlw pela atenção. Eu reli o codigo e consigui resolver, dessa maneira.

 

procedure TForm1.Button1Click(Sender: TObject);

var

FormItem: Variant;

Field: Variant;

FieldName: String;

FieldValue: String;

I,J: Integer;

Ini: TIniFile;

begin

if Web.OleObject.Document.all.tags('FORM').Length = 0 then

Exit;

 

for I := 0 to Web.OleObject.Document.forms.Length - 1 do

begin

FormItem := Web.OleObject.Document.forms.Item(I);

try

for j := 0 to FormItem.Length - 1 do

begin

 

Field := FormItem.Item(j);

FieldName := Field.Name;

FieldValue := Field.Value;

 

if FieldName = 'vb_login_username' then

Field.Value := edit1.Text;

 

if FieldName = 'vb_login_password' then

Field.Value := edit2.Text;

 

if FieldValue = 'Logar' then

Field.Click;

end

except

ShowMessage('Não foi possível identificar os campos para atribuir os valores de Login e Senha');

end;

end;

end;

 

Adicionei na variavel FieldValue como String, e adicionei dois comando destacados em vermelho.

 

Valeu Luxfer por ter me feito pensar :tong: Você tem meus Thanks

[luxfer 0]

eu já to logado e com preguiça de deslogar :tong:

mas tenta por na url do seu navegador:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Troque o x por 0;1;2;3;4 etc...

até voce achar o botão, se voce preferir troque a propriedade name para value, assim se a mensagem exibir "Logar", você troca para name denovo e verá o nome do componente.

 

Aliás, pode ser que nao tenha nome nenhum.

[horario222 0]

cara, vai pelo acesskey, não tem nome... se não quiser, tenta button,button1 seilá.

[RickKM 2]

Vlw luxfer vou testar se funcionar edito!

 

@Edit

 

Achei so é

javascript:alert(document.getElementsByTagName("input")[9].name)

so que não tem nome o input.