• Jueves 28 de Marzo de 2024, 11:39

Autor Tema:  Saber La Ip De Tu Pc  (Leído 2153 veces)

_Viktor

  • Miembro MUY activo
  • ***
  • Mensajes: 271
    • Ver Perfil
    • http://AyudaCBuilder.foros.st
Saber La Ip De Tu Pc
« en: Sábado 6 de Diciembre de 2003, 03:02 »
0
Código: Text
  1.  
  2. #include <winsock2.h>
  3.  
  4. // ...
  5.  
  6. void __fastcall TForm1::Button1Click(TObject *Sender)
  7. {
  8.       WORD wVersionRequested;
  9.       WSADATA wsaData;
  10.       char name[255];
  11.       AnsiString ip;
  12.       PHOSTENT hostinfo;
  13.       wVersionRequested = MAKEWORD( 2, 0 );
  14.  
  15.       if ( WSAStartup( wVersionRequested, &wsaData ) == 0 )
  16.       {
  17.  
  18.             if( gethostname ( name, sizeof(name)) == 0)
  19.             {
  20.                 Label1->Caption = name;
  21.                   if((hostinfo = gethostbyname(name)) != NULL)
  22.                   {
  23.                         ip = inet_ntoa (*(in_addr *)*hostinfo->h_addr_list);
  24.                         Label2->Caption = ip;
  25.                   }
  26.             }
  27.             WSACleanup( );
  28.       }
  29. }
  30.  
  31.  
  32.  

Autor: RPorcar.-

Saludos!!
_Viktor _Yañez_
"Ser inteligente no es ser mas, solo equivocarse menos y no usar visual basic"

http]