Sub savefile(filename As String,p As String)
Dim As Integer n
n=Freefile
If Open (filename For Binary Access Write As #n)=0 Then
Put #n,,p
Close
Else
Print "Unable to save " + filename
End If
End Sub
savefile( curdir +"\image.jpg","") 'create an empty file
dim as string site=" https://www.noz.de/article/teaser/1395114/full "
shell "bitsadmin /transfer new /download /priority normal " + _
site + chr(34) + curdir + "\image.jpg "+chr(34)
shell chr(34) +curdir + "\image.jpg" + chr(34)
sleep
dodicat wrote:If you are in program files (or the French version), perhaps you'll need double quotes all round.
This time the test goes to its end. It still cant dl the file. It can be the proxy or the antivirus, so as I can use a local file with little change I will do with this. Anyway it's a useful test that I'll try to keep in mind in the future.
Thanks.
My output:
Unable to save "C:\Program Files (x86)\FreeBasic\FBIde0.4.6r4\image.jpg"
BITSADMIN version 3.0
BITS administration utility.
(C) Copyright Microsoft Corp.
https://freebasic.net/forum/viewtopic.p ... 43#p258043
MrSwiss, we've had a complaint about your posts in this thread, in particular the one above.If you don't like the Windows dependency of the code, that's fine, but the derogatory and unconstructive comments are not welcome, and you've been warned not to do this before. If it happens again, you will face a longer ban than you did last time.
Aside from the rudeness towards UEZ (who has shown commendable patience with you), given the unprompted casual sexism as well, I require that you also edit your post and redact it.
UPDATE: Thanks for editing your post.
jj2007 wrote:Cute! Downloads work fine, #3 remains black, though.
Did you pressed the lmb and moved your mouse cursor around?
I moved the mouse around, and when I pressed the l, m or b keys, the window closed immediately.
Now I tried again, and I clicked also the mouse: nice lady ;-)