XProfan

Español

Descripción:

InternetGetConnectedState son el Status uno Internetverbindung zurück.
Bajo Windows95/98(/ME) kann lo en Verwendung dieser Función a Problemen kommen. Grundsätzlich se hier (IE 5.5) sólo una vez angenommen, dass una aktive LAN-Verindung para Internet besteht (auch si nichts installiert es)- solange, a folgende Registryflags gesetzt voluntad:
HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsEnableAutodial = 1
y
HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsNoNetAutodial = 0
Dabei es es Flags a Automatischen Einwahl en el Internet, qué u.a. auch por el Internetoptionen en el Systemsteuerung bajo el Registrierkarte Verbindungen con el Einstellung siempre Standardverbindung wählen gesetzt voluntad kann. Erst Luego se en no installierter Internetverbindung erkannt, daß auch wirklich no Internetverbindung besteht.

Deklaration:

Def @InternetGetConnectedState(2) !WININET.DLL,InternetGetConnectedState

Parámetro:

1.Parámetro: 4 Byte große Bereichvariable, el si la Función zurückkehrt Flags aufnimmt, el el Verbindung näher llamada. Dieser Parámetro kann 0 ser.=>
-$40 = Das Sistema ha una correcto konfigurierte Internetverbindung. Ob una Verbindung a Tiempo besteht, son dieser Flag no a (INTERNET_CONNECTION_CONFIGURED).
-$2 = Das Sistema nutzt una LAN-Verbindung en en el Internet a kommen (INTERNET_CONNECTION_LAN).
-$1 = Das Sistema nutzt una Modem en en el Internet a kommen (INTERNET_CONNECTION_MODEM).
-$8 = Wird no mehr benutzt (INTERNET_CONNECTION_MODEM_BUSY).
-$20 = Offline Modus (INTERNET_CONNECTION_OFFLINE).
-$4 = Das Sistema nutzt una Proxy Server en en el Internet a kommen (INTERNET_CONNECTION_PROXY).
-$10 = Auf el Sistema es RAS installiert (INTERNET_RAS_INSTALLED).

2.Parámetro: Reserviert, muss 0 ser.

Rückgabewert:

1 para una aktive Internetverbindung, 0 si no Verbindung besteht.

Beispiele:

Kompilieren Marca Separación

Def @InternetGetConnectedStateEx(4) !"WININET.DLL","InternetGetConnectedStateExA"
Declarar IFLAGS#,Connectionname#,ONLINE&,SizeC&
DIM IFLAGS#,4
DIM Connectionname#,256
Claro IFLAGS#
Claro 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
Disponer IFLAGS#
Disponer Connectionname#
@EDITBOX("Rückgaben",1)