XProfan

Italia

Beschreibung:

Mit InternetCheckConnection kann man prüfen, ob eine bestimmte Internetseite erreichbar ist. Wenn keine Internetverbindung besteht, wird versucht diese herzustellen. Wenn die Autodial Flags in der Registry gesetzt sind, wird also erst einmal automatisch eine Internetverbindung hergestellt um diese Seiten „anzupingen“.

Deklaration:

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

Parameter:

1.Parameter: Adresse eines Strings oder Bereichsvariable mit einem String, der die anzupingende Internetadresse enthält. Dieser Parameter kann auch 0 sein, es wird dann eine interne Adresse verwendet.

2.Parameter: Flag per die Art der Kontaktaufnahme. Es gibt zur Zeit nur einen einzigen gültigen Flag (FLAG_ICC_FORCE_CONNECTION). =>
-$1 = Verbindung wird erzwungen (es wird sich, wenn possibile, eingewählt).

3.Parameter: Reserviert, muss 0 sein.

Rückgabewert:

1 per eine erfolgreich hergestellte Verbindung zur angegebenen Internetseite, ansonsten 0.

Beispiele:

Kompilieren Markieren Separieren

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>)