IsInternet() no me funciona

[Mike Serra]

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

Code: Select all  Expand view  RUN

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