XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Internetseite auf Erreichbarkeit prüfen
Def @Internetcheckconnection(3) !WININET.DLL,InternetCheckConnectionA
Declare Online&,Url$
Let Url$ = http://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?,1s2>)