XProfan

Français

Beschreibung:

InternetGetConnectedStateEx gibt den Status einer Internetverbindung et den Namen qui pour verwendeten DFÜ-liaison zurück. sous Windows95/98(/ME) peux es chez qui Verwendung cette Funktion trop Problemen venons. Grundsätzlich wird ici (IE 5.5) seulement einmal angenommen, dass une aktive LAN-Verindung zum Internet besteht (aussi si rien installiert ist)- solange jusqu'à folgende Registryflags gesetzt volonté:
HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsEnableAutodial = 1
et
HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsNoNetAutodial = 0
Dabei handelt es sich um Flags zur Automatischen Einwahl ins Internet, quoi u.a. aussi par qui Internetoptionen dans qui Systemsteuerung sous qui Registrierkarte Verbindungen avec qui Einstellung toujours Standardverbindung choisir gesetzt volonté peux. seulement ensuite wird chez pas installierter Internetverbindung erkannt, qui aussi wirklich aucun Internetverbindung besteht.

Deklaration:

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

paramètre:

1.paramètre: 4 Byte grand Bereichvariable, qui si le Funktion zurückkehrt Flags aufnimmt, qui qui liaison näher appel. cette paramètre peux 0 son.=>
-$40 = cela System hat une richtig konfigurierte Internetverbindung. si une liaison zur Zeit besteht, gibt cette Flag pas à (INTERNET_CONNECTION_CONFIGURED).
-$2 = cela System utilise une LAN-liaison um ins Internet trop venons (INTERNET_CONNECTION_LAN).
-$1 = cela System utilise un Modem um ins Internet trop venons (INTERNET_CONNECTION_MODEM).
-$8 = Wird pas plus benutzt (INTERNET_CONNECTION_MODEM_BUSY).
-$20 = Offline Modus (INTERNET_CONNECTION_OFFLINE).
-$4 = cela System utilise une Proxy Server um ins Internet trop venons (INTERNET_CONNECTION_PROXY).
-$10 = sur dem System ist RAS installiert (INTERNET_RAS_INSTALLED).

2.paramètre: Ausreichend dimensionierte Bereichsvariable, qui den Namen qui aktiven DFÜ-liaison aufnimmt. cette paramètre peux 0 son.

3.paramètre: Maximale Longueur de paramètre 2 dans Buchstaben. si paramètre 2 0 ist, peux cette paramètre également 0 son.

4.paramètre: Reserviert, muss 0 son.

Rückgabewert:

1 pour une aktive Internetverbindung, 0 si aucun liaison besteht.

Beispiele:

Kompilieren Marque Séparation

Def @InternetGetConnectedState(2) !"WININET.DLL","InternetGetConnectedState"
Déclarer IFLAGS#,ONLINE&
DIM IFLAGS#,4
Claire IFLAGS#
LET ONLINE&=@InternetGetConnectedState(IFLAGS#,0)
ADDSTRING "Status: "+@str$(ONLINE&)
ADDSTRING "Flags: $"+@HEX$(@LONG(IFLAGS#,0))
Dispose IFLAGS#
@EDITBOX("Rückgaben",1)