XProfan

Français

Beschreibung:

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

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

Rückgabewert:

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

Beispiele:

Kompilieren Marque Séparation

Def @InternetGetConnectedStateEx(4) !"WININET.DLL","InternetGetConnectedStateExA"
Déclarer IFLAGS#,Connectionname#,ONLINE&,SizeC&
DIM IFLAGS#,4
DIM Connectionname#,256
Claire IFLAGS#
Claire Connectionname#
Laisser 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)