XProfan

 {$cleq} programm sollte ausschliesslich als EXE, nicht als prf oder prc laufen gelassen werden
include download.pcu = dw.
include pipe.pcu = pipe.
include usermessages.pcu = um.

if parcount==2

    if par$(1)=="loadFromInternet"

        app.loadFromInternet

    endif

endif

cls
print "Jut, dann laden wir mal..."
print "einen Moment bitte..."
print "Die XProfan-Community benötigt ";substr$(downloadFromInternet("https://www.xprofan.com/siz"),1,chr$(9));" Festplattenkapazität."
print "Taste..."
waitkey
end

proc downloadFromInternet(s$)

    declare pipe&,sid$,result$
    sid$:=str$(gettickcount)
    pipe&:=pipe.create(sid$)
    pipe.push pipe&,s$
    pipe.push pipe&,str$(hwnd)
    shell par$(0)+" loadFromInternet "+sid$
    um.add 7788

    while (pipe.get(pipe&)<>"done") and (umessage<>7788)

        waitinput

    wend

    um.sub 7788
    sleep 100
    pipe.pop pipe&
    result$:=pipe.pop(pipe&)
    pipe.close pipe&
    return result$

endproc

proc app.loadFromInternet

    declare sid$,pipe&,url$,result$,hwnd&
    sid$:=par$(2)

    if pipe.is(sid$)

        pipe&:=pipe.create(sid$)
        url$:=pipe.pop(pipe&)
        hwnd&:=val(pipe.pop(pipe&))
        result$:=dw.get(url$)
        pipe.push pipe&,"done"
        pipe.push pipe&,result$
        pipe.close pipe&
        sendmessage(hwnd&,7788,0,0)

    endif

    end

ref='./../../funktionsreferenzen/XProfan/endproc/'>endproc