Gabriel10101

Obrigado novamente...Em em casos igual esse exemplo: <span id="primary_cta" class="button_css"> <a href="javascript: eventbriteCheckout();" style="text-decoration:none;color:#fff;"> Order Now </a> </span> como faço para clicar?

Deu certo sim,ultima dúvida prometo kk Codigo: if not Continuar then break; [Error] Unit1.pas(232): BREAK or CONTINUE outside of loop Não entendi porque ta dando esse erro,a variável "continuar" muda para falsa caso o cliente pressione botão PARAR.

Tentei fazer isso no tagName econtrou: "FIELDSET",e nos outros 2 deu erro porque não encontrou nada...Tentei utulizar FIELDSET e o type,value usei os mesmo mas não deu certo.

Está certo,já tentei colocar exatamente igual e não clica..Olha as linhas acima: <p class="grp bts"> <input type="button" data-id="endereco_cadastro_cancelar" value="Cancelar" class="bt btCancelar"> <input type="submit" data-id="endereco_cadastro_salvar" value="Continuar" class="bt btContinuar"> </p>

Valeu Jhonas,e venho com uma outra dúvida agora (ta virando rotina já) kkk <a data-id="endereco_cadastrar" href="" title="Cadastrar um novo endereço" class="bt btCadastrar">Cadastrar um novo endereço</a> <input type="submit" data-id="endereco_cadastro_salvar" value="Continuar" class="bt btContinuar"> Não consigo fazer ele clicar nesses 2 botões,pode me ajudar? Já tentei: Elements := WebBrowser1.OleObject.Document.forms.item(0).elements; for i := 0 to (Elements.Length - 1) do begin if (Elements.item(i).tagName = 'INPUT') and (Elements.item(i).type = 'submit') and (Elements.item(i).Value = 'Continuar') then Elements.item(i).Click; end;

Não posso dar ctrl + u no momento que aparece a mensagem porém creio que seja dessa fuction pois a mensagem é parecida... function cardReturned(){ if(ajaxRequest.readyState == 4){ if(ajaxRequest.responseText == "Win"){ document.form1.action = "donate3.php?c="; document.form1.submit(); return false; }else{ document.getElementById("theImage").style.display = "none"; alert(ajaxRequest.responseText + ". Please fix the information and try again. If you think this is in error, please contact the Food Bank of Lincoln at 402-466-8170."); return false; } } } function openWin(whatPage){ window.open(whatPage, "Help", "width=450, height=375, resizable=0, status=0, dependent=1"); }

Consegui,agora estou com outro problema Jhonas.Depois do click o site abre uma mensagem dentro de uma box e eu queria fazer ele fechar a mesma sozinho para continuar o processo... Imagem: Já tentei o codigo de simular a tecla enter porém ele não fecha essa box

Estou com dificuldades para trabalhar com Webbrowser do delphi 7,queria saber se eu migrasse o projeito para um delphi mais novo,o webbrowser iria melhorar? Quando digo melhorar me refiro a executar melhor as paginas,javascript e algumas animações de adobe flash...

Fala galera to com um probleminha aqui,não consigo fazer o WebBrowser clicar em uma certa checkbox. Já tentei fazer todos os métodos que conhecia e nenhum funciono...Estou usando delphi 7 Pagina: <div class="agreement"> <div class="checkbox-small error"> <div class="checkbox-v checked" style="display: none;"></div> <input type="checkbox" name="agreement">

Ok agora deu certo,porém no edit não tem nenhum valor fica em branco,e no memo está ficando um codigo gigante(codigo da pagina),poderia me explicar um pouco mais sobre essa parte aqui? Buscar(WebBrowser1,'pass');

Deu uns erros aqui que não entendi: Linha: procedure TForm1.Buscar(WB: TWebBrowser; Text: string); Erro: [Error] Unit1.pas(127): ';' expected but '.' found Linha: if Assigned(WB.Document) then Erro: [Error] Unit1.pas(145): Undeclared identifier: 'WB' Linha: theForm := GetFormByNumber(document, 0); Erro: [Error] Unit1.pas(275): Undeclared identifier: 'GetFormByNumber'

Entendi o processo,porém não sei como fazer agora,criei um memo e deixei ele invisível agora preciso jogar o código no memo4 e buscar as partes igual você falou,como faço isso? A parte de buscar achei um código que seria parecido com o que você já citou no tópico: if pos('http://',memo4.lines.text)> 0 then begin s := copy(memo4.lines.text,pos('http://',memo4.lines.text),pos('loginForm.password',memo4.lines.text)-1); s := copy(s,pos('http://',s),pos('.doc?',s)+3); end; showmessage(s);

A sim foi bobeira minha consegui,agora falando novamente sobre plataforma americanas que sempre vem com um ID e NAME diferentes. Como posso fazer para pegar o valor depois do "input"? <input id="431e3896-10b3-47b9-bc1d-647e8084c40b.loginForm.username" maxlength="50" name="431e3896-10b3-47b9-bc1d-647e8084c40b:username" value="" tabindex="1" class="mail required email" type="text" crmwa_forminfo="e-mail|"> No caso: 431e3896-10b3-47b9-bc1d-647e8084c40b.loginForm.username To com uma ideia de salvar o que vem depois da ID em uma variável,e depois chamar ela para preencher o campo...Já tente todos os jeito que eu sei usando OleObject.All.Tags ou Item e não deu certo.

Consegui usando o exemplo,agora usando esse exemplo aqui: http://robsonmagno.wordpress.com/2011/12/16/manipular-web-forms-usando-o-twebbrowser/ Preciso preencher um campo,porém quero que ele procure pelo name <input id="ap_email" name="email" value="" type="email" size="30" maxlength="128" tabindex="1" autocorrect="off" autocapitalize="off" /> Tipo pelo "email",mas não to conseguindo,pode me explicar um pouco como usar?

Deu certo,Jhonas e em um caso igual esse: Pagina: <body> <div id="wrapper"> <h1>Warning!</h1> <p>The site you are attempting to browse is on a secure connection. This proxy is not on a secure connection.</p> <p>The target site may send sensitive data, which may be intercepted when the proxy sends it back to you.</p> <form action="includes/process.php" method="get"> <input type="hidden" name="action" value="sslagree"> <input type="submit" value="Continue anyway..."> <input type="button" value="Return to index" onclick="window.location='.';"> </form> <p><b>Note:</b> this warning will not appear again.</p> </div> </body> Eu precisava dar um click nesse submit: <input type="submit" value="Continue anyway..."> Como faço?

Entendi por partes,mas não deu certo,bom vou mostrar o que fiz: Pagina <p> <strong>Atenção: </strong> Nenhum pedido foi encontrado </p> 1 Tentativa usando POS: erro2:= WebBrowser1.OleObject.Document.All.Tags('p').Item(1).InnerText; s := trim(erro2); Res2:= AnsiCompareText(s,'Atenção:Nenhum pedido foi encontrado'); if pos('Atenção',erro2) > 0 then 2 Tentativa usando Ansi: erro2:= WebBrowser1.OleObject.Document.All.Tags('p').Item(1).InnerText; s := trim(erro2); Res2:= AnsiCompareText(s,'Atenção:Nenhum pedido foi encontrado'); if Res2 = 0 then Nenhuma das 2 ele reconhece que a mensagem estava igual.

O que fiz de errado nessa verificação? erro2:= WebBrowser1.OleObject.Document.All.Tags('p').Item(1).InnerText; Res2:= AnsiCompareText(Erro2,'Atenção:+#13+Nenhum pedido foi encontrado'); Coloquei um showmessage no OleObject ele retorna a mensagem igual da imagem,o erro está no Res2 mas não sei o porque...

Cara muito obrigado pelo suporte,estou aprendendo muito com você.Mais uma dúvida hehe http://prntscr.com/4p0yu4 Quando vem assim "quebrado" como posso fazer?

Certo entendi,no caso agora eu me expliquei um pouco mal também,desculpe.Mas no caso ele só ta retornando a mensagem sem o <strong>,coloquei um showmessage ficou assim: http://prntscr.com/4or3ad E to usando assim: erro2:= WebBrowser1.OleObject.Document.All.Tags('p').Item(1).InnerText; Res2:= AnsiCompareText(Erro2,'Clique aqui para consultar pedidos anteriores.'); if Res2=0 then Mas mesmo assim ele não reconhece que está certo....

Certo vou olhar os links,e sobre minha segunda dúvida,como posso arrumar a comparação? Pagina <strong>Clique aqui para consultar pedidos anteriores. </strong> No dephi: erro2:= WebBrowser1.OleObject.Document.All.Tags('p').Item(1).InnerText; Res2:= AnsiCompareText(Erro2,'Clique aqui para consultar pedidos anteriores.'); if Res2=0 then

Estou tentando nessa plataforma: https://carrinho.americanas.com.br/CustomerWeb/pages/LoginMinhaConta Uma dúvida rápida,to usando AnsiCompareText para comprar,a pagina retorna isso: <strong>Clique aqui para consultar pedidos anteriores. </strong> No dephi: erro2:= WebBrowser1.OleObject.Document.All.Tags('p').Item(1).InnerText; Res2:= AnsiCompareText(Erro2,'Clique aqui para consultar pedidos anteriores.'); if Res2=0 then

Desculpa a demora pra responder...Meu problema é que no id vem numeros e letras random: id=c2f2ea0e-7e33-403d-b1d1-a31770577ece.loginForm.username Todo <input id="c2f2ea0e-7e33-403d-b1d1-a31770577ece.loginForm.username" maxlength="50" name="c2f2ea0e-7e33-403d-b1d1-a31770577ece:username" value="" tabindex="1" class="mail required email" type="text" crmwa_forminfo="e-mail|"> Por isso eu precisava pegar a class que é fixo,e fazer ele preencher.

Tentei todas e não consegui,no exemplo o cara usa: elem.setAttribute('value','meulogin',0) Com base no exemplo pensei algo tipo: doc := WebBrowser1.document as IHTMLdocument2; elem := doc.all.item('mail required email',0) as IHTMLElement; elem.setAttribute('value','loginnnn',0); Porém não deu certo,não completou :/

<script type='text/javascript'>window.mod_pagespeed_start = Number(new Date());</script> Declarei tudo e ainda da o erro: [Error] Unit1.pas(193): Undeclared identifier: 'value' Tentei adaptar para: doc := WebBrowser1.document as IHTMLdocument2; elem := doc.all.item('mail required email',0) as IHTMLElement; elem.innerHTML := 'my text';

Entendi,porém ele ta Elem.Click e eu queria usar tipo Elem.value := email Erro: [Error] Unit1.pas(193): Undeclared identifier: 'value' É possível?