Téléchargement des affiches de films du site de cgr

Soyez le premier à donner votre avis sur cette source.

Vue 4 799 fois - Téléchargée 293 fois

Description

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..

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

pitap0
Messages postés
22
Date d'inscription
vendredi 15 février 2002
Statut
Membre
Dernière intervention
31 juillet 2002
-
pour qu'il ne se fige pas (en fin ne devient pas blank : ) )
met un timer a 200 avec un coup de refresh :) et doevents

Vive tous de meme vb.net qui fais un second thread en 1 ligne de code...
j'en revien toujours pas ;)
cs_Wallole
Messages postés
7
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
6 juillet 2002
-
j'ai mi un refresh à chaque téléchargement de l'image, normalement il ne devient pas blanc.
neo1234567890
Messages postés
53
Date d'inscription
mardi 2 avril 2002
Statut
Membre
Dernière intervention
29 mai 2005
-
pour le telechargement aucun probs mais pour lire les images y pas d'images, y les fichier mais il ne sont pas lu

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.