Ir para conteúdo
Fórum Script Brasil

LuloNet

Membros
  • Total de itens

    49
  • Registro em

  • Última visita

Tudo que LuloNet postou

  1. Estou testando por conta própria. [Tópico RESOLVIDO]
  2. Olá, pessoal. Gostaria de saber se alguém tem alguma função/DLL/bibioteca que possa identificar as mensagems enviada pela API do Windows dentro de um programa em delphi. Desde já, obrigado pelas dicas e ajuda.
  3. Olá pessoal. No site: http://www.sefaz.rs.gov.br/asp/SEF_root/in...gra_entrada.asp após digitar o código anti-robô errado recebo uma mensagem de retorno através do componente EmbeddedWB dentro do programa. Como faço para controlar está mensagem? Desde já obrigado pelas dicas e ajuda.
  4. Olá pessoal. Tenho um campo dentro de um frame em HTML num site que não consigo localizar o nome do mesmo porque não possui ID. Exemplo código html: ... <div class="pFrameConteudo"> <input class="pa" type="text"> -----> Campo que preciso informar os dados é este "pa". </div> e da mesma mateira possui um botão que deve ser clicado após informar os dados do campo acima, segue o código HTML: <div class="pFrameButtom"> <a class="pButtom" href="#">Continuar</a> -----> Botão para clicar. </div> DUVIDA: como posso fazer isso? Desde já obrigado pela ajuda e dicas.
  5. Amigo Jhonas. Agradeço pelas dicas e ajuda, abraço. [Tópico RESOLVIDO]
  6. Amigo Jhonas. Gostaria de pedir para você se pudesse ne explicar melhor (com mais detalhes) como usa a rotina abaixo: procedure SetFieldValue(theForm: IHTMLFormElement; const fieldName: string; const newValue: string; const instance: integer=0); var field: IHTMLElement; inputField: IHTMLInputElement; selectField: IHTMLSelectElement; textField: IHTMLTextAreaElement; begin field := theForm.Item(fieldName,instance) as IHTMLElement; //---> Quando rodo da erro aqui <--- // if Assigned(field) then begin if field.tagName = 'INPUT' then begin inputField := field as IHTMLInputElement; if (inputField.type_ <> 'radio') and (inputField.type_ <> 'checkbox') then inputField.value := newValue else inputField.checked := (newValue = 'checked'); end else if field.tagName = 'SELECT' then begin selectField := field as IHTMLSelectElement; selectField.value := newValue; end else if field.tagName = 'TEXTAREA' then begin textField := field as IHTMLTextAreaElement; textField.value := newValue; end; end; end; para poder implementar no meu programa, desde já muito obrigado pela atenção e pelas dicas. Abraço.
  7. Caro amigo Jhonas, fiz uma pesquisa pelo link como foi solicitado. Testei o progrma abaixo: procedure SetFieldValue(theForm: IHTMLFormElement; const fieldName: string; const newValue: string; const instance: integer=0); var field: IHTMLElement; inputField: IHTMLInputElement; selectField: IHTMLSelectElement; textField: IHTMLTextAreaElement; begin field := theForm.Item(fieldName,instance) as IHTMLElement; if Assigned(field) then begin if field.tagName = 'INPUT' then begin inputField := field as IHTMLInputElement; if (inputField.type_ <> 'radio') and (inputField.type_ <> 'checkbox') then inputField.value := newValue else inputField.checked := (newValue = 'checked'); end else if field.tagName = 'SELECT' then begin selectField := field as IHTMLSelectElement; selectField.value := newValue; end else if field.tagName = 'TEXTAREA' then begin textField := field as IHTMLTextAreaElement; textField.value := newValue; end; end; end; procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var document : IHTMLDocument2; theForm : IHTMLFormElement; begin try document := WebBrowser1.Document as IHTMLDocument2; theForm := GetFormByNumber(document,0); SetFieldValue(theForm,'pa', '032010'); //--- Onde pa é o campo e o 032010 o seu valor. theForm.submit; except end; end; Não funcionou, o que deve estar errado neste código? PS. Obrigado pela ajuda.
  8. Olá pessoal. Gostaria de localizar e informar dados para um campo dentro de um Frame numa pagina e depois cliclar no botão abaixo do mesmo. O Campo será informado MMAAAA (Mês/Ano), e no Botão Continuar será dado o clique. Segue o exemplo do frame e html abaixo: <html xmlsn='"http//www.w3.org/1999/xhtml"> <head> <body style=""> <div style="display: nome;"> <div id="container"> <div id="logo"> ... <div id="menu"> ... <div id="areatrabalho"> <div id="pFrameEmpresa" class="pFrame"> <div id="pFramePA" class="pFrame"> <div class="pFrameTitulo">Informe o Período de Apuração (MMAAAA) </div> <div class="pFrameConteudo"> <input class="pa" type="text"> OBS: Este é o campo que recebe os dados MMAAAA, como informo os mesmos? </div> <div class="pFrameButtom"> <a class="pButtom" href="#">Continuar </a> OBS: Este é o botão onde tenho que simular o clique. </div> </div> </div> <div id="caminho"> ... </div> </body> </html> Desde já agradeço pela ajuda e pelas dicas, URGENTE.
  9. Obrigado pela dica Amigo Jhonas, já vou colocar em prática. Abraço.
  10. Obrigado pela dica Amigo Jhonas. Vou testar, agora. Abraço.
  11. Olá pessoal. Alguém sabe como posso Simular ou Forçar o uso da tecla TAB ou ENTER dentro do componente TWebBrowser / TEmbeddedWB. Desde já obrigado pela ajuda.
  12. Olá. Pessoal. Aguém sabe que alguma função ou uma forma pela qual se possa simular um clique num Menu tipo CSS num site carregado pelo componente WebBrowser ou EmbeddedWB. Desde já agradeço pela dica.
  13. Obrigado pela dica amigo. Mas o componente ainda não funciona direito no Delphi 2009.
  14. Caros amigos. O exemplo do Dougla_Soares funcionou em partes, mas não 100%. Tem um detalhe ainda: No site da Receita Federal na Declaração do Simples Anual, depois que informo CNPJ, CPF, Código Acesso e abro uma janela para pedir o Código-Robô, caso digitado correto vai para o site correspondente da variável urlNova mas se erro ele parece que não recarrega a página do componente em Delphi mas sim no site e dai mostra na tela em Vermelho negrito "Caracteres anti-robô inválidos. Tente novamente.", pesquiso com a função abaixo, mas não encontra nada, no evento DownloadComplete, só vai realmente achar ser passo o mouse em algum menu do site, dai parece que atuliza o componente do EmbadedWB e mostra que está no mesmo site: function TfDASN.SearchString(Webbrowser: TEmbeddedWB; const strText: string): Boolean; var tr : IHTMLTxtRange; begin // Wait(WebBrowser); --- Desabilitei porque não localizaou Wait. Result := False; try if Assigned(Webbrowser.Document) then begin tr := ((Webbrowser.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange; Result := tr.findText(strText, 1, 0); end; except on e: Exception do ; end; end; Exemplo de uso da função: OBS: ------ Quando entra no programa o vControla é igual a Zero (0) e quando digito o código-robô dai simulo um clíque no botão ENVIAR do site dai após isso atualiza o site da Receita Federal, dai troco para vControle igual a Um (1). Mas parece que o mesmo não atualizou, só atualiza quando passo o mouse em algum memu do site, como já foi dito acima. procedure TfDASN.ewbDadosIniciaisDownloadComplete(Sender: TObject); begin if vControla = 1 then if (SearchString(ewbDadosIniciais,'Caracteres anti-robô inválidos. Tente novamente.')) then ShowMessage('Achou.') else ShowMessage('Não Achou.'); end; end; Muito obrigado pela ajuda até agora pessoal.
  15. Olá. Pessoal. Além de instalar o Componente: Mozilla Control 1.7.12 no Delphi 7, que seria o Arquive X do navegador Mozilla. Preciso sabre se alguém sabe de alguma verão do mesmo para Delphi 2009 e também preciso do componente TMozillaBrowser para download. Desde já obrigado pela Ajuda.
  16. Gostaria de saber se alguém no Forum posue alguma dica sobre como comunicar o Delphi com a porta RS232 de algum equipamento eletrônico. Por exemplo enviar ou receber dados da mesma pelo Delphi. Desde já gratos pela Atenção e a Ajuda.
  17. Olá pessoal. Como posso verificar se o componente EmbeddedWB mudou/carregou site que estava para um novo. Exemplo: 1) Estava no site: https://www8.receita.fazenda.gov.br/Simples...ntica.aspx?id=8 2) Depois de informar os dados cliquei no botão CONFIRMAR 3) Se correto ele mudou para site: https://www8.receita.fazenda.gov.br/Simples...pp/default.aspx 4) Caso contrário ficou no site onde iniciou. DÚVIDA: Que método, função ou evento do componente EmbeddedWB verifico isto? Agradeço desde de já a todos pela ajuda e obrigado. U R G E N T E !!!
  18. Obrigado pela dica amigo Jhonas, fico no aguardo esperando liberar o site.
  19. Alguém por favor tem alguma coisa de como funciona os eventos do componete EmbeddedWB. Porque o site da empresa que o criou esta sempre fora do ar: www.bsalsa.com ou bsalsa.com Desejá obrigado pela AJUDA pessoal. U R G E N T E.
  20. Amigo Jhonas obrigado consegui fazer o download e já instalei no Delphi 2009 tudo beleza. Outra coisa, depois que informo os campos CNPJ, CPF, Código de Acesso e confirmo o Código-Robo, entra numa nova página do Simples e dai tem que clicar num dos 3 (tres) radio buttons dos anos que aparece na tela, so que dentro do código fonte do site não consigo localizar os buttons e fazer isso via Delphi, você tem alguma idéia de alguma rotina de como posso fazer para localizar e clicar num deles via Delphi? Obrigado pela atenção Amigo Jhonas.
  21. Caro amigo Jhonas obirgado por sua atenção, tentei fazer download EmbeddedWB no link http://pt.softpicks.net/software/Programac...er_pt-31671.htm mas não deu certo acho que ele esta fora. Se você poderia por gentileza mandar o arquivo do EmbeddedWB zipado para o meu email. ficaria grato desde já Amigo. lulonet@gmail.com Obrigado, fico no aguardo. ps. Desculpe pela demora estava de Férias.
  22. Olá, Pessoal. Gostaria de saber se alquem tem alguma dica de como preencher os campos do site: https://www8.receita.fazenda.gov.br/Simples...ntica.aspx?id=8 Consigo carregar o site com o componente TWebBrowser do Delphi 7 e agora instaleir o Delphi 2009. Quando entra no site do Simples Nacional, pede para preencher os campos: CNPJ, CPF, Código de Acesso - Neste consegui localizá-los no site e preencher e depois o Código Robo, solicito uma janela para informar os carcteres, até ai tudo certo, quando carrega a próxima página, solicita para selecionar um ano atráves de um Rádio Button e depois o Botão Confirmar ou Sair. Não sei como emular um clique no Rádio Button, por não achar um INPUT do nome do campo o por ser diferente o código. Desde já, agradeço pela ajuda, muito obrigado. U R G E N T E !!!
×
×
  • Criar Novo...