Keskustelu: Ohjelmointikysymykset: VB6: [vb6] Tiedoston lataaminen netistä

Miten saan että mun ohjelma lataa alla olevassa linkissä olevan live-kuvan (.jpg) tänne: App.Path & "/" & Str(Time) & ".jpg" ?

Linkki:
http://80.186.35.210:4040/shot.jpg

https://www.ohjelmointiputka.net/koodivinkit/24126-vb6-tiedoston-haku-netistä-winsockilla
tai
https://www.ohjelmointiputka.net/koodivinkit/23779-vb6-tiedoston-lataaminen-netistä

Ylempi ei toimi ja alempi ei tee mitään.
Yritin alempaa näin:
(mod. ylipitkä koodi poistettu)

hmmm... näköjään kopypaste rokkaa, mutta:

If DownloadFile(sSourceUrl, sLocalFile) Then

      hfile = FreeFile
      Open sLocalFile For Input As #hfile
         Text1.Text = Input$(LOF(hfile), hfile)
      Close #hfile

   End If

Tuota suosittelisin tarkastelemaan tarkemmin, sillä et varmaankaan halua avata kuvaa tekstikenttään, muuta se tyyliin:

If DownloadFile(sSourceUrl, sLocalFile) Then
   kuva.picture = loadpicture(slocalfile)

   End If

Ja sitä paitsi: str(time) palautti arvoksi ajan, jossa tunnit, minuutit ja sekunnit on eroteltu kakskoispisteellä. Tuon joko replacetat, tai sitten muutat toisin. Suosittelisin käyttämään yhtä tiettyä kuvaa kokoaika, muuten sulla on kohta kovolla 50gigaa jpg-kuvia. :P

Käännä muutes kauttaviiva kenoviivaksi: / -> \ kun on hakemistoista kyse. muita virheitä en löytänyt, tuo portti saattaa aiheuttaa ongelmia, mutta siitä en sit tiedä enempää.

Ei tee vieläkään lataa kuvaa.
Kokeilin näin:
(mod. ylipitkä koodi poistettu)

Voisitko paikantaa koodin ongelmakohdan ja lähettää sen koko koodin asemesta?

Yksi tärkeimmistä ohjelmoijan taidoista on virheiden löytäminen.

Ei toimi mikään.
Voisiko joku vain lähettää koodinpätkän joka lataa kuvan internet osoitteesta esim. "www.jrantala.com/taustantausta.png" PictureBoxiin tai johonkin kansioon?

Löysin Planet-Source-Codesta sellaisen jutun kuin "BartNet file downloader active-x control", mutta se pystyy lataamaan kaikkia muita tiedostoja paitsi tämän yhden jonka haluan sen lataavan:
http://84.231.131.198:4040/shot.jpg se ei ilmoita että sitä ei löydy mutta ei myöskään lataa sitä.

Kokeilin myös "BartNet File Downloader":ia, se latasi hyvin mutta kun teen siitä .exen tulee virhe kun ohjelman avaa:
"System error &H80070583 (-2147023485). Luokkaa ei ole".

Täältä löytyy nuo kummatkin tiedostot:
http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort­=Alphabetical&txtCriteria=BartNet­&blnWorldDropDownUsed=TRUE­&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1&B1=Quick Search