XProfan

Declare Get$
Declare Put$
Declare Error&
Get$ = --- kommt ein neuer, damit es keine Ärger gibt ---
Put$ = "D:\Test1.txt"
Error& = @External("urlmon.dll","URLDownloadToFileA",0,@Addr(Get$),@Addr(Put$),0,0)
Print Error&
WaitInput
Get$ = "https://www.google.de/intl/de_de/images/logo.gif"
Put$ = "D:\Test2.txt"
Error& = @External("urlmon.dll","URLDownloadToFileA",0,@Addr(Get$),@Addr(Put$),0,0)
Print Error&
WaitInput
End

external("wininet.dll","DeleteUrlCacheEntryA",addr(url$))

PROC URLPathEncode

    Parameters string$
    declare i&,char%,urlpathencode$
    urlpathencode$ = string$

    WhileLoop len(urlpathencode$),1,-1

        char% = ord(mid$(urlpathencode$,&loop,1))

        if ((char%>96) AND (char%<123))

        elseif ((char%>47) AND (char%<58))

        elseif ((char%>64) AND (char%<91))

        elseif ((char%>44) AND (char%<48))

        elseif (char% = 95)

        elseif (char% = 126)

        elseif (char% = 38)

        elseif (char% = 58)

        elseif (char% = 63)

        elseif (char% = 64)

        elseif (char% = 35)

        elseif (char% = 33)

        elseif (char% = 36)

        elseif (char% = 42)

        elseif (char% = 43)

        else

            if (&loop=1)

                urlencode$ = "%" + hexx(char%) + mid$(urlencode$,&loop+1,len(urlencode$))

            elseif (&loop=len(urlencode$))

                urlencode$ = left$(urlencode$,&loop-1) + "%" + hexx(char%)

            else

                urlencode$ = left$(urlencode$,&loop-1) + "%" + hexx(char%) + mid$(urlencode$,&loop+1,len(urlencode$))

            endif

        endif

    Wend

    return urlpathencode$

ENDPROC

PROC hexx

    Parameters zahl&

    if (zahl&>15)

        return hex$(zahl&)

    else

        return "0"+hex$(zahl&)

    endif

ENDPROC