Página 1 de 1

Como verificar o IP da Internet

Enviado: 30 Set 2010 23:02
por clodoaldomonteiro
Olá,

Queria saber se os amigos podem me dizer se tem alguma função no xHarbour que traga o IP da internet e outra que verifique se a máquina do cliente está conectada à internet.

Re: Como verificar o IP da Internet

Enviado: 05 Out 2010 23:57
por clodoaldomonteiro
Para verificar o MAC da placa de rede fiz a seguinte função:

Código: Selecionar todos

//Funçao para retornar o MAC da placa de rede
Function GetMAC
   local mValor, cText
   mValor:='GetMac /fo CSV > c:\scp10h\mac.txt | more '
   
   Run (mValor)
   
   IF !File( 'c:\scp10h\mac.txt' )
      Return 'NIL'
   ENDIF

   cText := MemoRead( 'c:\scp10h\mac.txt' )

   Return MemoLine( cText, 80, 3, , .t. )