XProfan

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

IF @or(Online1&,Online2&)

    PRINT "ONLINE"

else

    Print "OFFLINE"

ENDIF

waitinput