Esta?
- Code: Select all Expand view
FUNCTION IsInternet()
LOCAL cIp, cVret := .F.
WsaStartUp()
// conforme pessoal do forum, e para chamar duas vezes ??
cIp := GETHOSTBYNAME( "microsoft.com" )
cIp := GETHOSTBYNAME( "microsoft.com" )
WsaCleanUp()
// Seguranca caso o provedor da microsoft esteja fora do ar...
IF ( cIp <= "0.0.0.0" )
WsaStartUp()
cIp := GetHostByName( "google.com" )
cIp := GetHostByName( "google.com" )
WsaCleanUp()
ENDIF
RETURN( cIp<>"0.0.0.0" )
Ó Esta?
FUNCTION IsInternet()
LOCAL pSocket, lOk := .F.
INetInit()
pSocket := INetConnect( "www.microsoft.com", 80 )
//? INetAddress( pSocket )
IF INetAddress( pSocket ) != "0"
lOk := .T.
ELSE
pSocket := INetConnect( "www.hotmail.com", 80 )
IF INetAddress( pSocket ) != "0"
lOk := .T.
ENDIF
ENDIF
INetClose( pSocket )
INetCleanUp()
RETURN( lOk )
Gracias, salu2