Tips'n Tricks - conexiune internet
DECLARE INTEGER InetIsOffline IN url INTEGER dwFlags IF InetIsOffline(0) = 0 ? "Merge netu'... clipoceste becu' verde." ELSE ? "Bummer" ENDIF Declare Short InternetGetConnectedStateEx In wininet.dll; Integer @ lpdwFlags,; String @ lpszConnectionName,; Integer dwNameLen,; Integer dwReserved lpdwFlags = 0 lcConnection = Replicate(Chr(0), 250) IF InternetGetConnectedStateEx (@lpdwFlags,; @lcConnection, Len(lcConnection), 0) = 1 ? "Merge netu'... clipoceste becu' verde" ? "Acu' hai sa vedem care-i situatia:" ? "Stare modem:" ? Iif(Bittest(lpdwFlags,0), "E pe modem", "Nu e pe modem") ? Iif(Bittest(lpdwFlags,3), "Modemu' a dat ton de ocupat", "Modemu' e ok") ? "Stare LAN:" ? Iif(Bittest(lpdwFlags,1),"E pe LAN","Nu e pe LAN") ? Iif(Bittest(lpdwFlags,2),"Iese printr-un proxy","Iese direct pe net") ? Iif(Bi