Capturar ip de um site

[H43CK3L 0]

Vo ensinar a vocês como criar um programa para capturar ip de um site pelo delphi...

 

Componentes:

2 labels

1 edit

1 memo

3 botoes

 

Modifique:

*label1

caption = Site:

 

*label2

caption = Endereços

 

*button1

caption = Capturar IP

 

*button2

caption = Limpar

 

*button3

caption = Sair

 

Organize como a imagem abaixo:

 

 

Insira o Codigo:

 

Declarar Uses Winsock

 

Function CapturarIP(WebHostName:string):string;

var

WSAData: TWSAData;

HostEnt: PHostEnt;

begin

WSAStartup(2, WSAData);

HostEnt := gethostbyname(PChar(WebHostName));

with HostEnt^ do

begin

Result := Format('%d.%d.%d.%d',

[byte(h_addr^[0]),Byte(h_addr^[1]),

Byte(h_addr^[2]),Byte(h_addr^[3])]);

end;

WSACleanup;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

memo1.Lines.Add(edit1.Text +' - '+ CapturarIP(edit1.Text));

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

Memo1.Clear;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

Pronto agora é só compilar e rodar!

 

SOURCE DO PROGRAMA

 

[DOWN]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/DOWN]

 

SCAN

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

ABRAÇÃO...

DÚVIDAS POSTEM AI...

 

[bidoow 0]

legal, quando der tempo eu baixo e testo, agora vou dormir.

mais não seria mais facil abrir o CMD e digitar ping dai o site?

ex: ping

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

vlww!

[H43CK3L 0]

mais fácil é, só to demonstrando como se faz em delphi...

[Ryokusei 21]

Legal o tópico, mas esqueceu de dizer pra declarar a uses "WinSock".

[H43CK3L 0]

Ryokusei obrigado por me lembrar, tinha esquecido de citar isso, ja corrigi o topico...

[DarkSj 0]

Bem legal, melhor do qe ficar digitanto no CMD ^^