Predmet:Re: downloader u vb6

---

covjek jednostavno izludi uz ove stvari
uz popijen lonac kave, popusenih 2 kutije cigareta ostaje samo bol u glavi i depresija
onaj dan sam uspio skinuti fajl, cak sam pronasao fajl temp..txt i otkrio da je to skinuti fajl iz tvojeg koda no danas nece pa nece, a zasto to ni sam neznam. proceduru sam ponovio vise puta cak otvorio i novu besplatnu web stranicu no nece
dakle prica ide ovako:

otvorim vb6, dodam Microsoft internet tranfer control komponentu pa stavim to na formu i stavim button



nakon toga dvokliknem na button i unesem ovaj kod

Dim url As String
Dim extension As String
url = "http://jedno.weebly.com/...opis.txt"
extension = ".txt"
Call skiniFajl(url, extension)
End Sub



dodam modul i unesem ovaj kod:

Public Function skiniFajl(url As String, extension As String)
On Error GoTo Error
Dim strURL As String
Dim bData() As Byte
Dim intFile As Integer
Dim icByteArray

strURL = url
intFile = FreeFile()
bData() = Inet1.OpenURL(strURL, icByteArray)
Open "C:\temp." & extension For Binary Access Write As #intFile
Put #intFile, , bData()
Close #intFile
Exit Function
Error:
End
End Function



sada sa kliknem na start i uhvatim da je otislo na error



i neznam i neznam i neznam kako juce oce danas nece i zasto je icByteArray a cini mi se da je trebalo biti sa necim napunjeno

isto racunalo od juce, ista veza, veza radi jer nebi mogao ici na internet da nije
dali ima mozda veze sto sam prije se mucio da sam otkrijem pa pokretao razne kodove i nesto je ostalo u memoriji, to neznam dali ima veze sa svime time
stvarno covjeka izlude te stvari. mislim da je problem u mome znanju sto ne baratam bas sa protokolima i sto gdje i kako radi te koje varijable treba pri tome uneti.
sve u svemu ludnica, ali sigurno nesto krivo radim

---