'¼ì²éÍøÂçÊÇ·ñÁ´½Ó
'    LOCAL rc AS LONG
'    rc = IsConnectedToInternet
'    IF rc THEN
'        ? "Connected!"
'    ELSE
'        ? "NOT!"
'    END IF
#Include Once "win/wininet.bi"

Function IsConnectedToInternet() as Long
   Dim rc as Long
   Dim flags as DWord
   
   Function = InternetGetConnectedState(@flags, 0)
End Function