Tutorial Criando um Mini Googler

['Lenneth 475]

Adicione ao seu projeto:

2 Buttons(Standart)

1 Edit(Standart)

1 WebBrowser(internet)

1 ListBox(standart)

1 SaveDialog(dialogs)

 

No evento onclick do button coloque:

var

googler: String;

begin

googler:= 'http://www.google.com.br/search?hl=pt-BR&q='+edit1.text+'&go=&****=QBLH';

WebBrowser1.navigate(googler);

 

Explicação:Ele fará uma busca no google com a tag do edit

 

No evento OnDocumentComplete do WebBrowser coloque:

var

listar: variant;

aboult: integer;

begin

for aboult := 0 to WebBrowser1.OleObject.document.links.length -1 do

begin

listar := WebBrowser1.OleObject.document.Links.Item(aboult);

ListBox1.Items.***(listar);

 

Explicação:Vai listar os sites achados na busca no listbox

 

Coloque no outro button:

 

begin

if SaveDialog1.Execute Then

begin

ListBox1.Items.SaveToFile(SaveDialog1.FileName);

 

Explicação:Ele salva a lista de sites

 

By:Before123

[iMelo~' 11]

é um tutorial bem util porq é apenas pra ser usado na forma de pesquisa , obrigado por compartilhar com a wc.

[TheKr4tosD 0]

Amigo ja existe esse post....e os creditos nao sao seus

 

http://www.webcheats.com.br/forum/delphi-vb/1464871-tutorial-mini-googler.html

[Inoxybel 39]

Aqui o tópico e code postado antes de você, com os créditos reais:

http://www.webcheats.com.br/forum/delphi-vb/1464871-tutorial-mini-googler.html

 

E agora, foi você também que 'criou' o code?

Reportado.

[Lf' 5]

Caro before123,

No fórum, recebemos uma grande quantidade de posts diariamente.

 

Antes de postar um conteúdo, utilize a ferramenta pesquisar, e veja se alguém já o postou antes.

 

Caso já exista,não crie o tópico.

Ajude a manter a WebCheats organizada e limpa.

 

Qualquer dúvida sobre as regras gerais do fórum, leia:

 

• Regras WebCheats
  

 

 

Tópico Trancado