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 )
Harbour puro sem as presepadas do windows.
Peguei no forum do xHarbour, e modifiquei para fechar a conexão.
Saudações,
Itamar M. Lins Jr.