XProfan

Italia

Beschreibung:

InternetGetConnectedState gibt den Status einer Internetverbindung 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 @InternetGetConnectedState(2) !WININET.DLL,InternetGetConnectedState

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: Reserviert, muss 0 sein.

Rückgabewert:

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

Beispiele:

Kompilieren Markieren Separieren

Def @InternetGetConnectedStateEx(4) !"WININET.DLL","InternetGetConnectedStateExA"
Declare IFLAGS#,Connectionname#,ONLINE&,SizeC&
DIM IFLAGS#,4
DIM Connectionname#,256
Clear IFLAGS#
Clear Connectionname#
Let SizeC&=256
LET ONLINE&=@InternetGetConnectedStateEx(IFLAGS#,Connectionname#,SizeC&,0)
ADDSTRING "Status: "+@str$(ONLINE&)
ADDSTRING "Flags: $"+@HEX$(@LONG(IFLAGS#,0))
ADDSTRING "Name: "+@String$(Connectionname#,0)
ADDSTRING "Betriebssystem: "+$WINVER
Dispose IFLAGS#
Dispose Connectionname#
@EDITBOX("Rückgaben",1)