InternetGetConnectedState_(@Status, 0)

If Status=0
  Verbindungstyp$="Keine Internetverbindung."
Else
  If Status & #INTERNET_CONNECTION_CONFIGURED
    Verbindungstyp$+"Internetverbindung ist konfiguriert."+#CR$
  EndIf
  If Status & #INTERNET_CONNECTION_LAN
    Verbindungstyp$+"Internetverbindung über Netzwerk."+#CR$
  EndIf
  If Status & #INTERNET_CONNECTION_MODEM
    Verbindungstyp$+"Internetverbindung über Modem."+#CR$
  EndIf
  If Status & #INTERNET_CONNECTION_MODEM_BUSY
    Verbindungstyp$+"Datenbertragung über Modemverbindung."+#CR$
  EndIf
  If Status & #INTERNET_CONNECTION_OFFLINE
    Verbindungstyp$+"Internetverbindung ist ausgeschaltet."+#CR$
  EndIf
  If Status & #INTERNET_CONNECTION_PROXY
    Verbindungstyp$+"Internetverbindung über Proxy."+#CR$
  EndIf
EndIf

MessageRequester("",Verbindungstyp$,0)