Página 1 de 1
obter IP e TAREFAS do windows
Enviado: 10 Jan 2007 18:14
por quintela
Tem alguma funcao para obter o IP da maquina onde o programa esta rodando ? e as tarefas do windows ?
Obrigado
Eduardo
Enviado: 10 Jan 2007 20:13
por 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
...
Enviado: 11 Jan 2007 15:17
por 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!
IP
Enviado: 11 Jan 2007 19:49
por 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
Enviado: 11 Jan 2007 21:43
por rochinha
Amiguinho
Se voce esta usando xHarbour tente:
? GetHostByName( "
www.pctoledo.com.br" )