XProfan

English

Description:

with InternetCheckConnection can Verify, whether a defined web page accessible is. If no Internetverbindung exists, becomes attempts these produce. If the Autodial ? Happen? in the Registry staid are, becomes means first once automatically a Internetverbindung manufactured circa these pages „anzupingen“.

Deklaration:

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

Parameter:

1.Parameter: address one Strings or Memory-Variable with a String, the The anzupingende Internetadresse contains. this Parameter can also 0 his, it'll then a interne address uses.

2.Parameter: Flag for manner the Kontaktaufnahme. there's to Time only a only valid Flag (FLAG_ICC_FORCE_CONNECTION). =>
-$1 = link becomes erzwungen (it'll itself, if possible, eingewählt).

3.Parameter: reserved, must 0 his.

Return Value:

1 for a successful manufactured link to angegebenen web page, otherwise 0.

Examples:

Compile Mark Separation

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