Prikazi cijelu temu 20.03.2015 21:53
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: downloader u vb6
evo probaj sa ovim kodom.
samo moras izbrisati tu tvoju kontrolu i dodati MIcrosoft conection desiger v6.0

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command1_Click()
  2. Dim url As String
  3.  Dim extension As String
  4.  url = "http://jedno.weebly.com/uploads/4/5/6/0/45602969/data.txt"
  5.  extension = ".txt"
  6.  Call skiniFajl(url, extension)
  7.  End Sub
  8. Public Function skiniFajl(url As String, extension As String)
  9.      On Error GoTo Error
  10.      Dim strURL As String
  11.      Dim bData() As Byte
  12.      Dim intFile As Integer
  13.      Dim icByteArray
  14.      
  15.      strURL = url
  16.      intFile = FreeFile()
  17.      bData() = Inet1.OpenURL(strURL, icByteArray)
  18.      Open "C:\temp." & extension For Binary Access Write As #intFile
  19.          Put #intFile, , bData()
  20.      Close #intFile
  21.      Exit Function
  22. Error:
  23.      End
  24.  End Function

Fajl ce ti biti na rutu i zvat ce se temp.txt.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.