XProfan

Français

Beschreibung:

avec InternetCheckConnection peux on vérifier, si une bestimmte Internetseite erreichbar ist. si aucun Internetverbindung besteht, wird versucht cet herzustellen. si qui Autodial Flags dans qui Registry gesetzt sommes, wird alors seulement einmal automatisch une Internetverbindung hergestellt um cet Seiten „anzupingen“.

Deklaration:

DEF @InternetCheckConnection(3) !WININET.DLL,InternetCheckConnectionA

paramètre:

1.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui qui anzupingende Internetadresse contient. cette paramètre peux aussi 0 son, es wird ensuite une interne Adresse verwendet.

2.paramètre: Flag pour qui Art qui Kontaktaufnahme. il y a zur Zeit seulement une einzigen gültigen Flag (FLAG_ICC_FORCE_CONNECTION). =>
-$1 = liaison wird erzwungen (es wird sich, si possible, eingewählt).

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

Rückgabewert:

1 pour une erfolgreich hergestellte liaison zur angegebenen Internetseite, ansonsten 0.

Beispiele:

Kompilieren Marque Séparation

DEF @InternetCheckConnection(3) !"WININET.DLL","InternetCheckConnectionA"
Declare ONLINE&,URL$
LET URL$="https://www.google.de"
LET ONLINE&=@InternetCheckConnection(@addr(URL$),1,0)

IF ONLINE&=1

    ADDSTRING "Google konnte erreicht werden!"

Else

    ADDSTRING "Google konnte nicht erreicht werden!"

Endif

@LISTBOX$("Konnte die Seite erreicht werden?",1>)