Visual Basic 6 - vb6 problema scarico file da web

Forum - Visual Basic 6 - vb6 problema scarico file da web

piter123 (Normal User)
Pro

Messaggi: 145
Iscritto: 21/05/2008

Postato alle 17:52
Giovedì, 25/08/2011

salve uso il seguente codice per scaricare un file da un siot web.
A volte però su alcuni computer sembra non scaricarlo, in realta lo scarica anche se non lo rende visibile a risorsse del computer, non è visibile penso perchè ho visto che sull'icona del file viene aggiunto un luchetto. come potrei risolvere ?

Option Explicit
        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

Private Sub Command1_Click()
    Dim res As Long
    Dim URL As String
    Dim LocalFilename As String
    LocalFilename = "c:\" & "provaup.zip"
    URL = "http://www.xxxxxxxxxxx.it/upgrade/provaup.zip"
    res = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
End Sub

GN (Member)
Guru

Messaggi: 772
Iscritto: 30/04/2011

Postato alle 21:33
Sabato, 27/08/2011

Il problema non è nel codice che scrivi tu, ma nella libreria "urlmon" (nel codice postato, infatti, non viene fatto altro che passare parametri a un metodo ricavato da questa libreria); se la libreria è scritta da te, l'errore è in quella; se è di terze parti, cerca maggiori informazioni e documentazione su di essa.

torzolo (Normal User)
Newbie

Messaggi: 11
Iscritto: 28/08/2011

Postato alle 17:20
Sabato, 03/09/2011

prova con questo

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpSFlags As Long, ByVal dwReserved As Long) As Long
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

Private Sub Command1_Click()
Dim res As Long
Dim url As String
Dim LocalFilename As String
LocalFilename = "paaaaath"
url = "url..."
res = URLDownloadToFile(0, url, LocalFilename, 0, 0)
End Sub

ciao...