Mon petit programme permet de télécharger l'intégralité des affiches présentes sur le site de CGR. Si vous avez déja recherché des affiches sur leur site qu'il est long et fastidieux de les enregistrer, ici le problème est résolu.
Ce logiciel ne pirate en aucuns cas le server de CGR, il automatise juste l'enregistrement.
Source / Exemple :
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
Conclusion :
Les images du site sont référencées par un numéro allant de 1 à 32000 (voir plus celon les mise à jours).
Pour utilisé le proramme il faut choisir le numéro de l'image de début et de fin, et choisir le dossier de destination. (ATTENTION il faut mètre \ après le nom de votre dossier)
Je vous conseil de ne pas définir des plages trop grandes car le logiciels utilise la quasi totalité de votre bande passante.
Le logiciel se fige lors de sont exécution, mais la progressbar est mis à jours ainsi que le numéro de l'image en cours.
bon download..
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.