TÉLÉCHARGEMENT DES AFFICHES DE FILMS DU SITE DE CGR

Private F_obj
Private Origine As String
Private Destination As String
Private t As Long

'fonction de téléchargement de windows
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 BtAK_Click()

Dim i As Integer
Dim j As Integer

j = 0

 
On Error Resume Next

If I1 < I2 Then

    Bar.Max = I2 - I1

    For i = I1.Text To I2.Text

        Origine = "http://www.cgrcinemas.fr//ImagesCinefil/AfficheGrandFormat/a" & i & ".jpeg"
        Destination = TxD.Text & i & ".jpeg"

        t = URLDownloadToFile(0, Origine, Destination, 0, 0)
        
        j = j + 1
        Bar.Value = j
        Form1.Caption = "Hack CGR ** " & I1 + j
        Form1.Refresh
        
    Next i

    MsgBox "Copie terminée"

Else

    MsgBox "Le n° de la 1° image est supérieur à la dernière"
    
End If

If Err Then
    'MsgBox "Une ou plusieurs erreurs sont survenuent lors de l'enregistrement, le fichier n'existe pas, ou tu as rentré des paramètres incorectes :-)"
End If


End Sub



Private Sub Form_Load()
    Set F_obj = CreateObject("Scripting.FileSystemObject")
End Sub