Predmet:downloader u vb6
evo mene opet sa glupim pitanjima
nakon sto sam pokusavao nisam uspio pa se javljam ako netko ima snage i volje
radi se o sljedecem
potreban je "kod" vrlo jednostavan za skinuti fajl sa internet web stranice ili jos bolje sa google diska
recimo da imamo svi nekakve programe u vb6 (primjer tel.imenik) i upisujemo nove kontakte i onda svi nadogradimo sa novim adresama i kontaktima jednim klikom.
vidio sam po internetu da koriste Microsoft Common Dialog kontrole 6.0 dodao sam to n formu
a ono sto sam mislio da je najbolje je ovaj kod:
Private Sub Command1_Click()
dim URL as string
dim extension as string
URL = "
http://jedno.weebly.com/data.txt"
extension = ".txt"
call skiniFajl(URL, extension)
End Sub
dodamo novi modul i stavimo ovo:
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
strURL = url
intFile = FreeFile()
bData() = Inet1.OpenURL(strURL, icByteArray)
Open Environ("temp") & "temp" & extension For Binary Access Write As #intFile
Put #intFile, , bData()
Close #intFile
Exit Function
Error:
End
End Function
meni ovo uopce ne radi i trazim po temp mapi no nema data.txt ni za ljek
a niti znam kako snimiti na hd pokusavao sam ovo
Open "C:\data.txt" For Binary Access Write As #intFF
Put #intFF, , bData
Close #intFF
no nece pa nece. ode na Error , uhvatio sam ga na End, znaci preskoci sve ko da je pijano
i sad ti budi pametan.
ajd ako neko ima volje da malo pripomogne, nije hica to je vise za kucnu razbibrigu pa tako da nemorate zuriti
zivot je moja domovina.