XProfan

Italia

Beschreibung:

InternetGetConnectedStateEx gibt den Status einer Internetverbindung und den Namen der dafür verwendeten DFÜ-Verbindung zurück. 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.

Deklaration:

Def @InternetGetConnectedStateEx(4) !WININET.DLL,InternetGetConnectedStateExA

Parameter:

1.Parameter: 4 Byte grande Bereichvariable, die wenn die Funktion zurückkehrt Flags aufnimmt, die die Verbindung näher bezeichnen. Dieser Parameter kann 0 sein.=>
-$40 = Das System hat eine richtig konfigurierte Internetverbindung. Ob eine Verbindung zur Zeit besteht, gibt dieser Flag nicht an (INTERNET_CONNECTION_CONFIGURED).
-$2 = Das System nutzt eine LAN-Verbindung um ins Internet zu kommen (INTERNET_CONNECTION_LAN).
-$1 = Das System nutzt ein Modem um ins Internet zu kommen (INTERNET_CONNECTION_MODEM).
-$8 = Wird nicht mehr benutzt (INTERNET_CONNECTION_MODEM_BUSY).
-$20 = Offline Modus (INTERNET_CONNECTION_OFFLINE).
-$4 = Das System nutzt eine Proxy Server um ins Internet zu kommen (INTERNET_CONNECTION_PROXY).
-$10 = Auf dem System ist RAS installiert (INTERNET_RAS_INSTALLED).

2.Parameter: Ausreichend dimensionierte Bereichsvariable, die den Namen der aktiven DFÜ-Verbindung aufnimmt. Dieser Parameter kann 0 sein.

3.Parameter: Maximale Länge von Parameter 2 in Buchstaben. Wenn Parameter 2 0 ist, kann dieser Parameter ebenfalls 0 sein.

4.Parameter: Reserviert, muss 0 sein.

Rückgabewert:

1 per eine aktive Internetverbindung, 0 wenn keine Verbindung besteht.

Beispiele:

Kompilieren Markieren Separieren

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",1)