[vb6] download con wisock control

[dado86ssj]

Ho una domanda riguardo all'utilizzo del winsock control di visual basic.
Devo creare la parte "update" di un software, e ho quindi la necessità di effettuare il download dell'aggiornamento dal server del mio sito al computer della persona che sta effettuando l'aggiornamento.
Come posso fare ad effettuare questo trasferimento utilizzando il winsock control?

Ciao!

[MMarzia]

quale versione di VB?
la prossima volta ricorda di specificarlo anche nel titolo


ti sposto nel subforum

[dado86ssj]

vb 6

[dado86ssj]

Ho trovato la risposta da solo...
Posto comunque il codice in caso serva a qualcuno.

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()
   ' Sostituire il primo parametro con il file che si vuole scaricare ed il secondo con il nome del file locale nel quale vuoi salvarlo.
  
ret = DownloadFile("http://microsoft.com/library/homepage/images/ms-banner.gif", "c:\filename.gif")
End Sub