dark rogue

1º Você se considera "bom" e fez um código nojento.
2º Programar é um arte que exije tempo e dedicação, pra ser realmente um programador, no minimo você levará 10 anos.
3º Você não ensinou a programar, ensinou a fazer uma coisa, essa, muito mal feita (Minha opnião).
4º Um programador (No minimo) precisa saber organizar seus códigos e não fazer isso que foi feito.
5º Pegar códigos prontos de "trojans" e "Keyloggers" é fácil, não precisa fazer de conta que é O CARA, só por saber que se usa os sockets para esse tipo de "vírus".
 
Falta muito ainda para você ser considerado um programador, e muito mais para você "Ensinar Realmente o Delphi", mesmo que vá até a parte 999.
 
Sem mais.

Você vai precisar de:
2 Labels(Aba Standard)
2 Edits(Aba Standard)
1 Button(Aba Standard)
1 IcmpClient(Aba Indy Clients)
1 Client Socket(Aba Internet)
 
Crie uma nova aplicação e adicione todos os items listados acima.
Troque a capiton de um label para IP do servidor e a do otro label para Porta, logo em seguida troque a capiton do button para Checar!, organize-os desse modo:
 

 
No evento OnClick do Button1, coloque o seguinte código:

if edit1.Text > '' then IdIcmpClient1.Host:= edit1.Text; IdIcmpClient1.Port:= StrToInt(Edit2.Text); IdIcmpClient1.Ping('AnalisePing'); ClientSocket1.Host := edit1.Text; ClientSocket1.Port := StrToInt(edit2.Text); ClientSocket1.Active := True;
 
Agora, no evento OnConnect do ClientSocket1, coloque esse codigo:

MessageBox(form1.Handle, 'Online! :)', 'Status do server:', mb_OK + mb_IconInformation); ClientSocket1.Active := False; Socket.Disconnect(StrToInt(Edit1.Text));
 
No evento OnError do ClientSocket1, adicione isso:

MessageBox(form1.Handle, 'Offline!;(', 'Status do server:', mb_OK + mb_IconInformation); ClientSocket1.Active := False; abort; errorcode :=0;
 
Eba, estamos quase lá, só falta configurar o IcmpClient, então vamos lá!
No evento OnReply do seu client Adicione isso:

ShowMessage('IP: '+IdIcmpClient1.Host+#13+ 'Port: '+IntToStr(IdIcmpClient1.Port)+#13+ 'Ping: '+IntToStr(AReplyStatus.MsRoundTripTime)+' milisegundos');
 
Agora é só compilar e ser feliz \õ/
 
Duvidas sobre esse tutorial? poste aqui!
 
see ya!

Você vai precisar de:
2 Labels(Aba Standard)
2 Edits(Aba Standard)
1 Button(Aba Standard)
1 IcmpClient(Aba Indy Clients)
1 Client Socket(Aba Internet)
 
Crie uma nova aplicação e adicione todos os items listados acima.
Troque a capiton de um label para IP do servidor e a do otro label para Porta, logo em seguida troque a capiton do button para Checar!, organize-os desse modo:
 

 
No evento OnClick do Button1, coloque o seguinte código:

if edit1.Text > '' then IdIcmpClient1.Host:= edit1.Text; IdIcmpClient1.Port:= StrToInt(Edit2.Text); IdIcmpClient1.Ping('AnalisePing'); ClientSocket1.Host := edit1.Text; ClientSocket1.Port := StrToInt(edit2.Text); ClientSocket1.Active := True;
 
Agora, no evento OnConnect do ClientSocket1, coloque esse codigo:

MessageBox(form1.Handle, 'Online! :)', 'Status do server:', mb_OK + mb_IconInformation); ClientSocket1.Active := False; Socket.Disconnect(StrToInt(Edit1.Text));
 
No evento OnError do ClientSocket1, adicione isso:

MessageBox(form1.Handle, 'Offline!;(', 'Status do server:', mb_OK + mb_IconInformation); ClientSocket1.Active := False; abort; errorcode :=0;
 
Eba, estamos quase lá, só falta configurar o IcmpClient, então vamos lá!
No evento OnReply do seu client Adicione isso:

ShowMessage('IP: '+IdIcmpClient1.Host+#13+ 'Port: '+IntToStr(IdIcmpClient1.Port)+#13+ 'Ping: '+IntToStr(AReplyStatus.MsRoundTripTime)+' milisegundos');
 
Agora é só compilar e ser feliz \õ/
 
Duvidas sobre esse tutorial? poste aqui!
 
see ya!