XProfan

Def DelUrlCache(1) !"wininet.dll","DeleteUrlCacheEntryA"  Parameter: pointer2url$ (löscht den der url entsprechende Cache)
declare ber#,URL$

Proc ServerAbfrage

    Parameters SA_url$
    Declare text$,berbytes&
    dim ber#,500
    Clear ber#,text$,berbytes&
    DelUrlCache(addr(SA_url$)                                URL- Cache löschen falls vorhanden
    berbytes&=OpenUrl(addr(SA_url$),ber#)
    text$=string$(ber#,0)
    dispose ber#
    Case berbytes&:Return text$
    Return ""

EndProc

URL$ =  "https://www.meinedomain.de/abfrage.php"
Cls
ServerAbfrage URL$
Print @$(0)
sleep 5000
ServerAbfrage URL$
Print @$(0)
end