| |
|
|
 |
Description:
InternetGetConnectedState gives whom status of/ one Internetverbindung back. under windows95/98(/ME) can it with the usage this function To Problemen come. fundamentally becomes here (IE 5.5) first once adopted, that a active LAN-Verindung to that internet exists (even if nothing installs is)- as long as, To following Registryflags staid go: HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsEnableAutodial = 1 and HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsNoNetAutodial = 0 thereby deals it itself circa ? Happen? to Automatischen Einwahl in that internet, what u.a. too by the Internetoptionen In the Control Panel under the Registrierkarte connections with the attitude always Standardverbindung dial staid go can. first then becomes with not installierter Internetverbindung recognized, that too really no Internetverbindung exists.
Deklaration:
Def @InternetGetConnectedState(2) !WININET.DLL,InternetGetConnectedState
Parameter:
1.Parameter: 4 byte large Bereichvariable, The if The function zurückkehrt ? Happen? aufnimmt, The The link hither bezeichnen. this Parameter can 0 his.=> -$40 = the system has a correctly. configured Internetverbindung. whether a link to Time exists, gives this Flag not on (INTERNET_CONNECTION_CONFIGURED). -$2 = the system uses a LAN-link circa in that internet To come (INTERNET_CONNECTION_LAN). -$1 = the system uses one modem circa in that internet To come (INTERNET_CONNECTION_MODEM). -$8 = won't More using (INTERNET_CONNECTION_MODEM_BUSY). -$20 = Offline mode (INTERNET_CONNECTION_OFFLINE). -$4 = the system uses a Proxy Server circa in that internet To come (INTERNET_CONNECTION_PROXY). -$10 = on the System is RAS installs (INTERNET_RAS_INSTALLED).
2.Parameter: reserved, must 0 his.
Return Value:
1 for a active Internetverbindung, 0 if no link exists.
Examples:
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: "+@st$(ONLINE&)
ADDSTRING "Flags: $"+@HEX$(@LONG(IFLAGS#,0))
ADDSTRING "Name: "+@String $(Connectionname#,0)
ADDSTRING "Betriebssystem: "+$WINVER
Dispose IFLAGS#
Dispose Connectionname#
@EDITBOX("Rückgaben",1)
|
|
|
| |
|
|