XProfan

Español

Descripción:

Mit InternetCheckConnection puede ser prüfen, si una cierto Internetseite erreichbar es. Wenn no Internetverbindung besteht, se intenta esta herzustellen. Wenn el Autodial Flags en el Registry gesetzt son, se also sólo una vez automáticamente una Internetverbindung producido en esta Páginas „anzupingen“.

Deklaration:

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

Parámetro:

1.Parámetro: Adresse uno Cuerdas oder Bereichsvariable con un String, el el anzupingende Internetadresse enthält. Dieser Parámetro kann auch 0 ser, lo se entonces una interne Adresse verwendet.

2.Parámetro: Flag para el Art el Kontaktaufnahme. Lo son a Tiempo sólo una einzigen gültigen Flag (FLAG_ICC_FORCE_CONNECTION). =>
-$1 = Verbindung se erzwungen (lo se se, si posible, eingewählt).

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

Rückgabewert:

1 para una erfolgreich hergestellte Verbindung a angegebenen Internetseite, ansonsten 0.

Beispiele:

Kompilieren Marca Separación

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