#define INTERNET_CONNECTION_MODEM 1 #define INTERNET_CONNECTION_LAN 2 #define INTERNET_CONNECTION_PROXY 4 #define INTERNET_CONNECTION_MODEM_BUSY 8 Declare Integer InternetGetConnectedState in Wininet.dll Long @dwFlags, Long Reserved Flags = 0 Msg = "" If InternetGetConnectedState(@Flags, 0) != 0 Do Case Case BitAnd(Flags, INTERNET_CONNECTION_MODEM) > 0 Msg = "Connection via modem" Case BitAnd(Flags, INTERNET_CONNECTION_LAN) > 0 Msg = "Connection via LAN" EndCase Else Msg = "Not connected" EndIf MessageBox(msg)