declare short InternetGetConnectedStateEx IN "wininet.dll" ;
    integer @ lpdwFlags, string @ lpszConnectionName, ;
    integer dwNameLen, integer dwReserved

lpdwFlags = 0
lpszConnectionName = SPACE(512)
IF InternetGetConnectedStateEx(@lpdwFlags, @lpszConnectionName, 512, 0) # 0
? lpszConnectionName
endif