IsInternet() no me funciona

[Mike Serra]

Buenas foro, aqui tengo el código de IsInternet() que he visto por aqui

Code: Select all

Function IsInternet() 
WSAStartup() 
RETURN (IIF(GetHostByName("microsoft.com")<>"0.0.0.0",.T.,.F.)

pero cuando NO tengo internet se me queda colgado. ¿Que puede ser?

GRACIAS

FW 2.8 + xHarbour