PC Toledo

Código: Selecionar todos

Function Main
SETMODE(25,80)
        Alert(IIF(TemInternet(),"Conectado","Não Conectado"))
return NIL        

    FUNCTION TemInternet( nTimeout )
       LOCAL aAddr := hb_socketResolveINetAddr( "www.google.com", 80 )       
       RETURN  !Empty( aAddr ) .and. hb_socketConnect( pSocket := hb_socketOpen(), aAddr, hb_defaultValue( nTimeout, 2000 ) ) .and. hb_socketClose( pSocket )

Código: Selecionar todos

FUNCTION IsInternet( cUrl, nPort )

   LOCAL lOk := .F. , aAddr

   hb_Default( @cUrl, "www.google.com" )
   hb_Default( @nPort, 80 )
   aAddr := hb_socketResolveINetAddr( cUrl, nPort )
   IF ! Empty( aAddr )
      lOk := hb_socketConnect( hb_socketOpen(), aAddr, 2000 )
   ENDIF

   RETURN lOk