[ VRKY @ 05.10.2004. 21:36 ] @
Pozdrav:
Odmah ću doć na pitanje. Kako automatski skinuti neki fajl sa neta npr. zip ili .exe . To znači da se korisnika prije downloda ne pita hoće li to dopuštiti ili ne. Kod za downlaod:

Code:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _ 
(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
  Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
  If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
    DownloadFile "http://vrky.atw.hu/Bravo.exe", "C:\Bravo.exe"
DoEvents
End Sub


Taj .exe koji se downloduje je samo msgbox poruka....
Znači želim da se automatski skine taj .exe bez dozvole korisnika...
[ fLuXx @ 20.11.2004. 22:13 ] @
Probaj da downloadujes koristeci Microsoft Internet Transfer Control (inet). Nece ti trebati nikakva dozvola od korisnika

Code:

Command1_click()
Inet1.Execute URL_Adresa.Text, "GET"
end sub

Private Sub Inet1_StateChanged( ByVal State As Integer)
select case state

 case icResponseCompleted
  Dim data() as byte
      Open MyFile$ For Binary Access Write As #3
      Data() = Inet1.GetChunk(1024, icByteArray)
      Do While UBound(vtData) <> -1
         Put #3, , Data
         Data() = Inet1.GetChunk(1024, icByteArray)
         DoEvents
      Loop
retval = MsgBox("Skidanje fajla zavrseno!", vbInformation, "Download zavrsen!")
      Close #3
end select
end sub


Mozda kod treba malo korigovati da bi proradilo, ali sustina je tu!
[ VRKY @ 20.11.2004. 22:31 ] @
Hvala. kasnije ću ga pogledati (koregirati po potrebama)
[ fLuXx @ 21.11.2004. 12:19 ] @
Ako su ti fajlo vi mali, mozes to da obavis i na laksi nacin.

Code:

Dim b() As Byte
Dim sURL As String
URL = "http://www.nekisajt.com/blabla.exe"
b() = Inet1.OpenURL(strURL, icByteArray)

Open "C:\blabla.exe" For Binary Access Write As #1
Put #1, , b()
Close #1


Medjutim, ovim kodom skidas sve odjednom, pa ako je fajl veci, dosta rizikujes.
[ VRKY @ 21.11.2004. 15:37 ] @
Kad nariktam postavke izbaci se ovaj error:

Run-time error '35752'
URL is malformed
[ fLuXx @ 21.11.2004. 16:17 ] @
I meni se desilo slicno, napisao sam:

Code:

Inet1.Execute URL_Adresa, "GET"


Trebao sam da napisem

Code:

Inet1.Execute URL_Adresa.TEXT, "GET"


jer je URL_Adresa TextBox objekat.

Probaj da se nisi i ti zeznuo, jer meni je posle sve radilo.
[ VRKY @ 21.11.2004. 20:31 ] @
Čekaj, na koji kod ti misliš. Meni se to desilo na ovom drugom što si postao.