#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)