Duvida Campos da Web

[gorilas00]

entaum estou com mais uma duvida estou criando um programa de gerador de link premiuns para megaupload e tenho duas duvidas :

1- na pagina que gera o codigo tem um lugar que vc coloca o link e clicka no button até ai consegui faze emula o click e inserir o link so que dai ele vai para uma pagina e aparece resultado do link na pagina gostaria que o resultado aparece no meu edit2 (resultado seria o link premiun)

2- Como emular um click dos sites de servidor proxy no ok pq eu consigo colocar a url mas nao consigo emular o click ex de site >>>> Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar... e Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...



até mais e obrigado pelas respostas dos outros topicos

[Ŀεŋαмστε]

Gorilas aconselho vivamente a aprenderes JavascriptInjection procura por isso aqui no forum
tens neste link uma pequena referencia do que podes fazer =)
Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...

Ralativamente a primeira duvida assim sem ver o site que gera o premium nao vejo muitas soluçoes a nao ser fazer o delphi retornar o source e procurar por uma string que começe em http:// e depois acabe em "espaço" , claro que tem que ser melhor filtrado procurando por uma cadeia de caracteres obrigatorios dentro dessa string etc etc para nao pegar o link errado


Ralativamente a 2a duvida la esta.. aprende javascript injection =)
Podes fazer algo do genero..
Num Twebbrowser novamente..

Twebbrowser1.Navigate('javascript:void(document.fo rms[0].u.value="http://www.megaupload.com/?d=26nht5ke");document.forms[0].submit();')

E ele entra logo na pagina =)
Calculo que ja saibas como fazer o download =)

Cumprimentos

[Ŀεŋαмστε]

Ups nao da para editar agora...
Esquecime de referir que essa injection e referente ao site Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
Mas o esquema e o mesmo para o outro... Javascript Injection =)

Um fica sempre bem ne?

No outro topico agradeceram mais pessoas que o propiro que colocou a duvida loool

[gorilas00]

desculpe tava corrido aqui com uns projetos da escola mas agora com calma coloquei obrigado vc realmente mereçe por me ajudar !

[gorilas00]

o não entendi a função

Twebbrowser1.Navigate('javascript:void(document.fo rms[0].u.value="http://www.megaupload.com/?d=26nht5ke");document.forms[0].submit();')

vc poderia me esplicar detalhadamente o que cada coisa faz e no final ao clickar o button na web oq vai aconteçe aqui deu pagina erro tipow offline

[Ŀεŋαмστε]

affff... tira o espaço no forms kkk
e forms e nao fo rms... meti um espaço sem querer
basicamente void permite e ascrita no script document.forms[] procura o form pelo numero u = nome do item a ser alterado e setamos o seu valor (value) para o link que queremos
o submit() submete os dados do form como se clicassemos no botao =)

claro que o link vc tem que criar uma variavel para ele e concatenar tudo =)

Qualquer duvida posta =)

[Ŀεŋαмστε]

[COLOR="rgb(0, 191, 255)"]Admins se puderem editem ai....
o site estava a filtrar a injection =)
esquecime de meter a tags code

faltou isto aqui hehe
ficava algo assim :

 Twebbrowser1.Navigate('javascript:void(document.forms[0].u.value=" ' + variavel_para_o_link + ' " );document.forms[0].submit();')

[/COLOR]

[gorilas00]

valeu lenamote agora consigo burlar o sistema de ip do site que gera o link mas agora aparte final que é a duvida 1 o site que eu estou usando é o Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar... consigue fazer com que o usuario insira o link e clicke o botão download dai ele vai pra a pagina que exibi o link esse link que que ele seja mostrado em um edit qualquer entendeu mas não tenho noção de como capturar o link

[Ŀεŋαмστε]

valeu lenamote agora consigo burlar o sistema de ip do site que gera o link mas agora aparte final que é a duvida 1 o site que eu estou usando é o Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar... consigue fazer com que o usuario insira o link e clicke o botão download dai ele vai pra a pagina que exibi o link esse link que que ele seja mostrado em um edit qualquer entendeu mas não tenho noção de como capturar o link

Infelizmente nao esta a dar para gerar links =/
quando conseguir eu testo.. tenho ja uma ideia de como da para fazer =)
depois eu posto aqui =)

[Ŀεŋαмστε]

Ok aqui esta =) e so colocar o link do megaupload no edit1 que ele gera o link do megaez =)

procedure TForm1.Button1Click(Sender: TObject);
begin
net.Navigate('http://megaez.com');
while net.readystate <> readystate_complete do application.ProcessMessages;
net.Navigate('javascript:void(document.dlform.url.value=' + edit1.Text + ');document.dlform.submit();');
while net.readystate <> readystate_complete do application.ProcessMessages;
memo1.Text:= net.OleObject.Document.documentElement.innerHTML;
edit2.Text:= copy(memo1.Text, pos('http://megaez.com', memo1.text), (pos('" readOnly', memo1.text)) - (pos('http://megaez.com', memo1.text))  );
end;

[gorilas00]

não entendi o codigo se vc poder me explicar como funciona

[Ŀεŋαмστε]

procedure TForm1.Button1Click(Sender: TObject);
begin
net.Navigate('http://megaez.com'); // net = twebbrowser , navega no site
while net.readystate <> readystate_complete do application.ProcessMessages; // enquanto o site nao estiver totalmente carregado ele espera que esteja
net.Navigate('javascript:void(document.dlform.url. value=' + edit1.Text + ');document.dlform.submit();'); // Javascript injection onde edit1.text = link do megaupload
while net.readystate <> readystate_complete do application.ProcessMessages; // enquanto site nao carregar totalmente ele espera q
memo1.Text:= net.OleObject.Document.documentElement.innerHTML;
edit2.Text:= copy(memo1.Text, pos('http://megaez.com', memo1.text), (pos('" readOnly', memo1.text)) - (pos('http://megaez.com', memo1.text)) );
end;

[Ŀεŋαмστε]

Mods apaguem o topico de cima sff

procedure TForm1.Button1Click(Sender: TObject);
begin
net.Navigate('http://megaez.com'); // net = twebbrowser , navega no site
while net.readystate <> readystate_complete do application.ProcessMessages; // enquanto o site nao estiver totalmente carregado ele espera que esteja 
net.Navigate('javascript:void(document.dlform.url. value=' + edit1.Text + ');document.dlform.submit();'); // Javascript injection onde edit1.text = link do megaupload
while net.readystate <> readystate_complete do application.ProcessMessages; // enquanto site nao carregar totalmente ele espera que ele carregue
memo1.Text:= net.OleObject.Document.documentElement.innerHTML;  // mostra o codigo fonte da pagina num memo1
edit2.Text:= copy(memo1.Text, pos('http://megaez.com', memo1.text), (pos('" readOnly', memo1.text)) - (pos('http://megaez.com', memo1.text)) );    //   copia para um edit2 a palavra que se encontra desde o inicio "http://megaez.com" ate " " readOnly "   , se procurar vai ver que no fonte esse valor é igual ao link gerado pelo site =)   se tiver duvidas em relaçao a sintase procure no google pela funçao copy() e pela funçao pos()
end;

Abraço =)