comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Delphi] GetWhois 0.1

  • 0 Respuestas
  • 1161 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Mayo 05, 2013, 01:32:59 pm »
Siempre habia querido hacer un programa para hacer un whois en delphi pero en ese entonces no conocia delphi lo suficiente como para poder hacerlo , hoy me tome unos 10 min libres y logre hacer uno , para hacerlo instale indy y escribi unas pocas lineas para hacerlo.

Una imagen :



El codigo (muy corto xD)

Código: Delphi
  1. // GetWhois 0.1
  2. // Coded By Doddy H in the year 2013
  3.  
  4. unit whois;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, StdCtrls, sMemo, sButton, sEdit, sLabel, sGroupBox, sSkinManager,
  11.   IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdWhois, ComCtrls,
  12.   sStatusBar, jpeg, ExtCtrls;
  13.  
  14. type
  15.   TForm1 = class(TForm)
  16.     sSkinManager1: TsSkinManager;
  17.     sGroupBox1: TsGroupBox;
  18.     sLabel1: TsLabel;
  19.     sEdit1: TsEdit;
  20.     sButton1: TsButton;
  21.     sGroupBox2: TsGroupBox;
  22.     sMemo1: TsMemo;
  23.     IdWhois1: TIdWhois;
  24.     sStatusBar1: TsStatusBar;
  25.     Image1: TImage;
  26.     procedure sButton1Click(Sender: TObject);
  27.     procedure FormCreate(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. var
  35.   Form1: TForm1;
  36.  
  37. implementation
  38.  
  39. {$R *.dfm}
  40.  
  41. procedure TForm1.FormCreate(Sender: TObject);
  42. begin
  43.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  44.   sSkinManager1.SkinName := 'garnet';
  45.   sSkinManager1.Active := True;
  46. end;
  47.  
  48. procedure TForm1.sButton1Click(Sender: TObject);
  49. begin
  50.  
  51.   if sEdit1.text = '' then
  52.   begin
  53.     ShowMessage('Write the domain');
  54.   end
  55.   else
  56.   begin
  57.     sStatusBar1.Panels[0].text := '[+] Searching ...';
  58.     Form1.sStatusBar1.Update;
  59.  
  60.     sMemo1.Clear;
  61.     sMemo1.Lines.text := IdWhois1.whois(sEdit1.text);
  62.  
  63.     sStatusBar1.Panels[0].text := '';
  64.     Form1.sStatusBar1.Update;
  65.   end;
  66. end;
  67.  
  68. end.
  69.  
  70. // The End ?
  71.  

Si lo quieren bajar lo pueden hacer de aca.

 

¿Te gustó el post? COMPARTILO!



Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3244
Último mensaje Febrero 24, 2010, 04:57:14 pm
por ANTRAX
[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2041
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
1er troyano en Delphi By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3474
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
[Delphi] Creacion de un Server Builder con recursos

Iniciado por BigBear

Respuestas: 1
Vistas: 1476
Último mensaje Marzo 09, 2015, 07:56:20 pm
por Flemon
[Delphi] Project Arsenal X 0.2 (Regalo de navidad)

Iniciado por BigBear

Respuestas: 2
Vistas: 2899
Último mensaje Diciembre 28, 2015, 10:27:44 am
por BigBear