Kali

Realmente, consegui selecionar o Objeto, o problema e que não atualiza as opções em baixo, por causa do javascript, alguma dica? O site e de um amigo, ele liberou meu IP para desenvolver este software para ele, e um servidor privado

Olá pessoal da Scriptbrasil, estou desenvolvendo um Software para um servidor de games-online. Através do meu executável "Launcher" Eu preciso efetuar uma seleção em uma determinada página para o usuário selecionar o cargo dele no game, segue à parte da seleção de opções. <select name="ctl00$ContentPlaceHolder1$moderadores" onchange="javascript:setTimeout('__doPostBack(\'ctl00$ContentPlaceHolder1$moderadores\',\'\')', 0)" id="ctl00_ContentPlaceHolder1_ddlOpcaoUnificada" style="font-size:Small;width:95%;"> <option selected="selected" value="Moderadores">Modereadores</option> <option value="Jogadores">Jogadores</option> </select> Por padrão ele vem selecionado a opção "Moderadores" , Gostaria de saber como faço para selecionar a Opção "Jogadores" no TWebBrowser do Delphi, Já tentei pegar o ID do Objeto e passar o parametro Value para "Jogadores" porém não da certo. Segue o código: Web.OleObject.Document.all.Item('ctl00_ContentPlaceHolder1_ddlOpcaoUnificada',0).Value := 'Jogadores'; E também tentei com o ID Name do Objeto Web.OleObject.Document.all.Item('ctl00$ContentPlaceHolder1$moderadores',0).Value := 'Jogadores'; Sera que há alguma forma de fazer está seleção? help-mee !

Olá pessoal, recentemente iniciei um projeto junto ao banco santander estou fazendo um acesso pelo TWebBrowser, porém não consigo simular o click no botão "ok" ele está desta forma: <input type="button" onclick="onEnviar('accessCPF'); return false" title="OK" class="loginOk"> site: https://www.santandernet.com.br/ alguém sabe como posso simular o click nesse botão usando o TWebBrowser?

Olá pessoal da scriptbrasil, Estou desenvolvendo um software de proteção para minha empresa, porém me surgiu a necessidade de fazer com que meu aplicativo inicie antes de efetuar o logon no Windows. Procurei por exemplos no google é não achei nada similar, alguém poderia me ajudar?? obrigado.

Olá amigos da script Brasil, estou desenvolvendo um keylogger para um jogo online (WEB), então preciso capturar apenas o que for digitado no campo login/senha . os inputs do site estão assim: <input type="text" name="GC_login"> <input type="password" name="GC_senha"> Preciso capturar em tempo real o que foi digitado nesses campos. Abrs

Olá pessoal da script brasil. Preciso posicionar meu Form dentro do navegador Google Chrome / Internet Explorer / Opera / Mozilla Firefox. Aqui está uma screenshot da parte que quero por meu form: http://prntscr.com/8g7tv8 Aqui está outra screenshot de como eu quero que fique assim: http://prntscr.com/8g7vb2 Procurei de tudo na internet e não achei, se poderem me ajudar irei agradeçer muitoo

Tentei com esse script, porem da um erro e não funciona..

Olá pessoal da scriptbrasil . Gostaria de saber como faço para capturar URLs digitadas nos navegadores (firefox,chrome,explorer..) Por exemplo, se digitarem: (www.scriptbrasil.com.br) ele da um ShowMessage avisando que achou a URL . Tem algum codigo de exemplo ?? abraços..

Esse e o meu problema não sei como passar para o celular o aplicativo desenvolvido

Sim aparece

Então pessoal, estou começando á desenvolver para android. Baixei o Delphi XE8 , Instalei o SDK tudo certinho, peguei meu aparelho (MOTO G 2° Geração) No meu aparelho configurei o USB certinho é fontes desconhecidas, instalei o driver da motorola certinho, porém O delphi não está reconheçendo o mesmo. Em target deveria mostrar o meu dispositivo conectado ao computador para que eu rode a aplicação diretamente nele, porém está assim: Porfavor me ajudem a arrumar esse problema não sei mais o que fazer !!!!!

Issooo, não precisa ser exatamente a XML pode ser esse link http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_ITEMCODE=&P_LINGUA=001&P_TESTE=&P_TIPO=001&P_COD_UNI=PI318859597BR ONDE O "PI318859597BR" É O CODIGO DE RASTREIO.

Vou deixar aqui o algoritmo pra você entender o aplicativo. : ---- : - Sistema de rastreio dos correios ==== 1 - carregar uma lista (.txt) com vários codigos de rastreio . 2 - Acessar cada código de rastreio é procurar pela palavra "Em rua para ser entregue", Se a palavra for encontrada ele exibe uma notificação visual no canto inferior da tela, informando ao usuário que um produto x ira chegar , é pula para o próximo código de rastreio: - UM PRODUTO ESTÁ EM RUA PARA SER ENTREGUE Á VOCÊ - NOME DO PRODUTO: IPHONE 6S - NOME DO DESTINÁRIO: LUCAS Formato dos arquivos .TXT onde ficam salvo os códigos de rastreio: [codRastreio] COD_01 = DM1092912912BR NOME_PRODUTO = IPHONE 6S NOME_DESTINARIO = Fernando COD_02 = DM1092912912BR NOME_PRODUTO2 = IPHONE 5S NOME_DESTINARIO2 = Fernando (E assim sucessivamente..) Voce pode me dizer como faço algo similar a isto? um script base ?

Verifiquei é o XML não está fazendo á leitura, então peguei um link original dos correios: http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_ITEMCODE=&P_LINGUA=001&P_TESTE=&P_TIPO=001&P_COD_UNI=PI318859597BR Quero procurar pela palavra: Encaminhado , se ele achar essa palavra ele diz que achou !! Obrigado.

Olá amigos da Script brasil, olha eu novamente. kk Então, meu projeto está quase no final, preciso somente fazer um script para buscar uma determinada palavra no site dos correios. Vamos lá, como assim ? Meu projeto funciona da seguinte forma: O usuário cadastra os códigos de rastreio do correio no arquivo .INI O meu aplicativo faz a leitura dos arquivos .INI, entra em 1 por 1 código de rastreio é verifica se existe á palavra "Em rua para ser entregue" Se ele achar está palavra ele sobe uma notificação , informando ao usuário que o correio está na rua para entregar o produto do mesmo. Gostaria de saber como faço para verificar no site dos correios se a determinada palavra existe. Já tentei fazer por InnerText, InnerHtml da seguinte forma, e não funcionou: var s: string; begin s := webbrowser1.oleobject.document.documentelement.innertext; if s = 'Em rua para ser entregue' then begin Notificao(); end; end; O link que estou acessando: http://developers.agenciaideias.com.br/correios/rastreamento/xml/SS123456789BR Basicamente é isto, obrigado !!

Muito obrigado Jonathan. Á parte de obter o código-fonte do XML na WEB fiz por Web Request é está pqp muito lindo, segue o script é ve se ficou bacana , rss. Procedure WebRequestMethode; var sString, sString2 : String; begin with Form1 do begin sString := Edit1.Text; Edit2.Text := copy(sString,0,6); idHTTP1.Request.UserAgent := ('Mozilla/5.0 (Windows NT 6.3; rv:36.0) Gecko/20100101 Firefox/36.0'); Memo1.Lines.Add(idHTTP1.Get('http://www.binlist.net/xml/' + Edit2.Text)); Application.ProcessMessages; end; end; procedure TForm1.Button2Click(Sender: TObject); var hID : Dword; uThread : Cardinal; begin uThread := beginThread(nil,0,@WebRequestMethode,nil,0,hID); O mesmo foi resolvido muito obrigado Jonathan, pode fechar aqui , aproveita e ve se o script que fiz ficou bacana , oakskoaska

Consegui seguir o exemplo, agora meu problema é o seguinte, eu quero verificar o banco emissor no caso, tenho o seguinte script na WEB: <?xml version="1.0" encoding="UTF-8" ?> - <Response> <Bin>376449</Bin> <Brand>AMERICAN EXPRESS</Brand> <SubBrand /> <CountryCode>BR</CountryCode> <CountryName>Brazil</CountryName> <Bank>BANCO BRADESCO</Bank> <CardType>CREDIT</CardType> <CardCategory>PLATINUM</CardCategory> <Latitude>-10</Latitude> <Longitude>-55</Longitude> <QueryTime>329.457µs</QueryTime> </Response> O script no delphi está da seguinte forma: var s, cartao, tipo, cidade, banco, bandeira : string; i : integer; begin for i := 0 to Memo1.Lines.Count-1 do begin s := Memo1.Lines.Strings[i]; if pos('Brand',s) > 0 then bandeira := UpperCase(copy(s,pos('Brand',s)+13,pos('</Brand',s)-9)); if pos('Bank',s) > 0 then banco := UpperCase(copy(s,pos('Bank',s)+5,pos('</Bank',s)-9)); if pos('CountryName',s) > 0 then cidade := UpperCase(copy(s,pos('CountryName',s)+12,pos('</CountryName',s)-16)); if pos('CardCategory',s) > 0 then cartao:= UpperCase(copy(s,pos('CardCategory',s)+13,pos('</CardCategory',s)-17)); if pos('CardType',s) > 0 then tipo:= UpperCase(copy(s,pos('CardType',s)+9,pos('</CardType',s)-13)); edit1.Text := banco + ' | ' + tipo + ' ' + cartao + ' | ' + cidade + ' | ' + bandeira; end; end; Resultado exibido no Edit1: BANCO BRADESCO | CREDIT PLATINUM | BRAZIL | (Aqui no final não está vindo á função da minha Bandeira) que deveria ficar assim: BANCO BRADESCO | CREDIT PLATINUM | BRAZIL | AMERICAN EXPRESS Como faço ? e se possível poderia me explicar Os números nas funções +12,pos('</CountryName',s)-16 Abraços.

Aqui o link correto: http://www.binlist.net/xml/406669 No caso (O final ali os 6 numeros depois do /xml/ seria os 6 primeiros números do cartão) Eu queria colocar eles num edit é ir para WEB. Achei essa forma mais simples, como ficaria??? abraços. No website fica assim: <Response> <Bin>406669</Bin> <Brand>VISA</Brand> <SubBrand/> <CountryCode>BR</CountryCode> <CountryName>Brazil</CountryName> <Bank>BANCO BRADESCO CARTOES, S.A.</Bank> <CardType>CREDIT</CardType> <CardCategory>INFINITE</CardCategory> <Latitude>-10</Latitude> <Longitude>-55</Longitude> <QueryTime>323.243µs</QueryTime> </Response> Queria que no meu Edit2 Exibi-se o resultado da seguinte forma: BANCO BRADESCO CARTOES, S.A. | CREDIT INFINITE | BRAZIL Como faço isso? abraçossssss !!!

Olá amigos da Script brasil, Eu estou desenvolvendo um aplicativo (jogo on-line) com uma forma de pagamento própria, enfim. Consegui um website para verificar os tipos dos cartões (crédito/debito) . Seguinte, o website disponibiliza o meio REQUEST : http://www.binlist.net/json/ Meu script está basicamente assim: const strWEB = 'http://www.binlist.net/json/'+ strCompletWebRequest.Text; begin end; No caso ficando da seguinte forma: http://www.binlist.net/json/548826 O website exibe o seguinte resultado: {"bin":"548826","brand":"MASTERCARD","sub_brand":"","country_code":"BR","country_name":"Brazil","bank":"CAIXA ECONOMICA FEDERAL","card_type":"CREDIT","card_category":"STANDARD","latitude":"-10","longitude":"-55","query_time":"344.902µs"} Queria exibir em um outro edit da seguinte forma: CAIXA ECONOMICA FEDERAL | CREDIT MASTERCARD | BRAZIL Como posso fazer isto ? Obrigado !! Preciso com urgencia !!!!

Vi esse site que me mandou e não consegui com os scripts base. Jonatha se você fizer isto para mim eu lhe pago $ Basta me enviar seu contato pelo PM

Jonatha olhei nos exemplos e não conseguir achar nenhum, no caso até achei mais não funciona, oaskakosako

Olá amigos da script brasil. Estou tendo á necessidade de integrar minha aplicação ao Mercadolivre, porém ao tentar fazer login na conta do usuário o mercadopago me pede Captcha, Gostaria de saber se tem alguma forma de quebrar esse captcha . Link da página do mercadolivre: https://www.mercadolivre.com/jms/mlb/lgz/login?go=http://www.mercadolivre.com.br/gz/home/logged?display=page Meu script: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) GroupBox1: TGroupBox; WebBrowser1: TWebBrowser; GroupBox2: TGroupBox; Edit1: TEdit; Edit2: TEdit; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('https://www.mercadolivre.com/jms/mlb/lgz/login?go=http://www.mercadolivre.com.br/gz/home/logged?display=page'); WebBrowser1.Silent := True; end; procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.OleObject.Document.all.Item('user_id',0).Value := Edit1.Text; WebBrowser1.OleObject.Document.all.Item('password',0).Value := Edit2.Text; WebBrowser1.OleObject.Document.all.Item('signInButton',0).Click; end; end. O captcha que pede: ----------- Já tentei de tudo se possivel alguém poderia me ajudar????

Tentei esse segundo script é não funcionou também :/ Esse daqui é o website https://securessl.cato.org/support/donate Queria clica no botão donate pois estou fazendo um projeto para faculdade :), Os outros campos consigo preencher normalmente so não consigo clicar no botão. Abrçs

Olá amigo tentei e o mesmo não está simulando o clique :/

Olha eu novamente . Então pessoal estou tendo um problema ao clicar no botão do TWebBrowser no delphi . No website está da seguinte forma: <div id="submit-row" class="form-row"> <div class="input"><input class="btn-dark" type="submit" value="Donate"/> </div> </div> </form> Então, Eu já tentei fazer das seguintes formas: Procedure ClicaBottao; var Elements: OleVariant; i: Integer; begin with Form1 do begin WebBrowser1.Silent := true; Elements := WebBrowser1.OleObject.Document.forms.item(0).elements; for i := 0 to (Elements.Length - 1) do if (Elements.item(i).type = 'submit') then Elements.item(i).Click; end; end; Porém ele da erro e não clica no botão. Já tentei também fazer da seguinte forma: WebBrowser1.OleObject.Document.all.Item('submit-row',0).Click; Porém ele não clica no botão. Queria saber como faço para clicar nesse botão ta dificil aqui . abrçs