XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Internetverbindung prüfen
Unter Windows95/98(/ME) kann es bei der Verwendung dieser Funktion zu Problemen kommen.
Grundsätzlich wird hier (IE 5.5) erst einmal angenommen, dass eine aktive LAN-Verindung zum Internet besteht
(auch wenn nichts installiert ist)- solange, bis folgende Registryflags gesetzt werden:
HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsEnableAutodial = 1
und
HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsNoNetAutodial = 0
Dabei handelt es sich um Flags zur Automatischen Einwahl ins Internet, was u.a. auch durch
die Internetoptionen in der Systemsteuerung unter der Registrierkarte Verbindungen
mit der Einstellung immer Standardverbindung wählen gesetzt werden kann.
Erst dann wird bei nicht installierter Internetverbindung erkannt,
daß auch wirklich keine Internetverbindung besteht.
Def @Internetgetconnectedstate(2) !WININET.DLL,InternetGetConnectedState
Declare Iflags#,Online&
Dim Iflags#,4
Clear Iflags#
Let Online&=@Internetgetconnectedstate(Iflags#,0)
Addstring Status: +@Str$(Online&)
Addstring Flags: $+@Hex$(@Long(Iflags#,0))
Dispose Iflags#
@Editbox(Rückgaben,1ass=s2>)