obter IP e TAREFAS do windows

[quintela]

Tem alguma funcao para obter o IP da maquina onde o programa esta rodando ? e as tarefas do windows ?

Obrigado
Eduardo

[rochinha]

Amiguinho

Diretamente no Clipper não mas voce pode criar uma rotina que rode um .BAT jogando o retorno em um .TXT, exe:

c:\ipconfig > qualIP.txt

E analisar ou mostrar este arquivo em um MEMOEDIT()

Código: Selecionar todos

...
if file( "qualip.txt" )
   memoedit( memoread( "qualip.txt" ) )
   ferase( "qualip.txt" )
endif
...

[Stanis Luksys]

No xHarbour da pra vc usar funções em C...

Adicione este código no final do seu PRG:

Código: Selecionar todos

#PRAGMA BEGINDUMP

#include <windows.h>
#include <hbapi.h>

/***********
* PegaIP()
* Originalmente GetHostByName() em C
* Retorna IP do computador
*/
HB_FUNC (PEGAIP)
{
   struct hostent * pHost;
   BYTE addr[ 20 ];
   strcpy( ( char * ) addr, "0.0.0.0" );
   pHost = gethostbyname( ( char * ) hb_parc( 1 ) ) ;
   if( pHost )
   {
      wsprintf( ( char * ) addr, "%i.%i.%i.%i",
               ( BYTE ) pHost->h_addr[ 0 ], ( BYTE ) pHost->h_addr[ 1 ],
               ( BYTE ) pHost->h_addr[ 2 ], ( BYTE ) pHost->h_addr[ 3 ] );
   }
   hb_retc( ( char * ) addr );
}

#PRAGMA ENDDUMP

Depois use a função como:

VarIP := PegaIP()

Quanto as "tarefas do wondows", não entendi...

Falou!

[quintela]

Obrigado pela atencao ....

não mensionei que a função e para XHARBOUR mesmo,

a função acima so retorna 0.0.0.0.

Eduardo

[rochinha]

Amiguinho

Se voce esta usando xHarbour tente:

? GetHostByName( "www.pctoledo.com.br" )