Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 08 08:38:36

3 ARTICLES SUR SQL SERVER (DATA STRUCTURES, SCANS AND SEEKS, DATA ACCESS STRATEGIES) par RaptorXP

MAIS QUE PEUT BIEN FAIRE UN MVP QUAND IL NE CODE PAS ??? par sebmafate

POWERSHELL : COMMENT EXéCUTER UN SCRIPT PS DEPUIS UNE FENêTRE MS DOS OU SCHEDULED TASK par ROMELARD Fabrice

EDM DESIGNER par Matthieu MEZIL

SMALL BASIC - UN PROJET INTéRESSANT par pierrick

BLOCAGE SOUS VBA par Potard

RE : POURQUOI ISEMPTY(VBEMPTY) RENVOI FALSE ??? par Renfield

RE : COLLECTION par Orohena

REMPLIR DATAGRID EN 2 TABLE VB.NET par tdi2a

+ de logiciels à télécharger

1 329 734 membres
81 nouveaux aujourd'hui
14 640 membres club

Trouver une ressource

Trouvez une ressource parmi 39 269 codes, 1 222 805 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

RECUPÉRER INFO FILM ALLOCINE TXT ET IMAGE (VB ALLOCINE 2)

Information sur la source

Catégorie :Réseau & Internet Niveau : Initié Date de création : 10/12/2003 Date de mise à jour : 11/12/2003 02:50:18 Vu / téléchargé: 10 124 / 1 826

Auteur : pcpunch

Site perso

Ecrire un message privé

Note :

9,07 / 10

Commentaire sur cette source (42)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Voila j'avais il y a quelques temps développé une appli pour télécharger les affiches de films sur le site de movie covers, qui depuis a fermé ses portes.

On m'avait signalé que ma src était très bien, mais que j'aurais du la développer pour récupérer aussi les infos texte sur les films.

C'est chose faite avec cette source mais la avec allociné.com.

Récupération :Titre,année,genre,réalisateur,résumé,acteurs,nationalité,durée, film,miniature ,et affiche si dispo!!!!

Source

Tous dans le Zip
Voir la capture !!

Tous dans le Zip
Voir la capture !!

Conclusion

Mise a jour le 11/12/2003

- la source utilise maintenant le contrôle webbrowser pour récupérer le code source (gain de temps, et très stable), plus aucun problème chez moi!!!

- J'ai ajouté une progress bar lors d'une recherche ainsi que le pourcentage d'avancement (histoire de voir si ce n'est pas planté!!)

!!! Le contrôle inet est toujours utiliser pour l'affichage de l'affiche miniature, pour le téléchargement de l'affiche taille réel j'utilise l'api DoFileDownload, mais je ne peu pas l'utiliser pour le téléchargement de la miniature car elle ouvre une boite dialogue enregistrer sous, donc si qq. Sait comment on peu télécharger un fichier à partir d'une url sans inet et sans ouvrir une boite de dialogue, je suis preneur car j'aimerais bien ne plus utiliser inet qui apparemment pose pas mal de problème sur certaine config??

Voila j'espère que cette mise a jour fera remonter la note!!!, en tous cas je vais pouvoir maintenant me coder mon application de gestion de film!!

Un petit commentaire fait toujours plaisir, du moment qu'il est constructif!!!

PETITE ANNONCE PERSO : Je suis au chômage, alors si un boss du 59 a qq. Chose pour moi???

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Form1.frm 19 363 octets
Form1.frx6 216 octets
Projet1.vbp 991 octets
Projet1.vbw 50 octets

Télécharger le zip

Sources du même auteur

SIMON EN VB

GRAVURE CD AVEC NEROCMD DEPUIS APPLI VB

RADIO SUR INTERNET

AFFICHE DES TITULAIRES FOOTBALL (MCFOOTMANAGER)

IMPRESSION LABEL DVD

Toutes les sources de pcpunch

Sources de la même categorie

CONTROLE UTILISATEUR IPBOX POUR LA SAISIE D'ADRESSE IP par foliv57

GESTION VIDÉO par mich95

NETWORK MONITOR INTER-PROCESS par EBArtSoft

SLYSPY(MINI-RAT) par ageryder

WINSOCK.NET par XelectroX

Toutes les sources de la catégorie Réseau & Internet

Commentaires et avis

Commentaire de Renfield le 10/12/2003 07:12:35 administrateur CS

Tu vas rire(ou peut-etre pas...), mais je suis en train de coder une appli similaire.....

A ceci pres que je conte integrer une Bdd pour pouvoir consulter les films hors ligne.....

pour le WB, tu devrais pas avoir tous tes soucis...

bonne continuation..

Commentaire de radada le 10/12/2003 10:55:29

Ca a l'air mortel : )). Je me languis aussi celle de Renfield pour faire une petite base de divx. Cool les gars :D

Commentaire de ld40 le 10/12/2003 11:21:25

je n'ai pas vb sous la main pour critiquer le code, mais d'après la capture écran, il doit te manquer un export des données:
-format dbb
-impression fiche
-impression jacquette

;-)

Commentaire de ralf19b3 le 10/12/2003 13:18:47

est ce normal que je n'est aucun resultat pour tout les film que je recherche?? pourtant c des film bien connu (Matrix, Taxi...)
Si vous savez pourquoi prevener moi pleeaze

Commentaire de pcpunch le 10/12/2003 13:39:58

Ralf19b3-->non c pas normal vu que le but est de recuperer les infos du site allocine.com. y a t-il qq choses d'inscrit dans la barre d'état si oui Koi?
Comme je le décriver en commentaire de ma src, inet est trés capricieux, c'est pas le premiere fois que j'ai des problémes avec!!! je suis sous xp sp1 , vb6 sp5...

ld40-->ce site est code source et pas freeware gratos!!! si tu lit le titre : comment recupérer info des fims sur allocine, et non base de donnée de film qui recupérer infos...... Si tu veu te faire une base de divx le plus dur est fait!!!!!! Lit les descriptifs de source avant de poster des choses qui n'ont aucun intéret!!!!!

Renfield-->Super, car de maniére général tes src sont des petits bijoux!!! et ici c'est fais pour ça!!!! donc aucun probléme pour moi en tous cas!!!! par contre si tu aurais exmeple pour recupérer le code src du WB? ca m' interesse car apparement des gens on des problémes avec inet????(Ralf19b3)

Commentaire de ld40 le 10/12/2003 13:47:30

c'est la peine de le prendre comme ça.
Note que tu as écrit "Si vous voulez que j'améliore cette src, ou si vous voulez vous joindre a moi."

De mon coté ça m'est égal, les développements que je suggére, je suis parfaitement capable de les développer tout seul.

En ce qui me concerne, je n'ai toujours pas déposé de source car je sais qu'il reste des bugs, je vois que tout le monde n'a pas mes états d'âme.

Je reconnais toutefois, que ton code m'apporte quelque chose puisque je ne savais pas qu'il était aussi simple de récupérer des infos dans un fichier web.

Commentaire de ralf19b3 le 10/12/2003 13:55:27

Nivo config je suis pareil que toi (xp sp1 et vb6)! Sinon ca me met "Recherche en cours..." puis "Aucun résultat"!! Ca pourait etre a cause de "inet"<?, comment puis je y remedier??

Commentaire de pcpunch le 10/12/2003 13:57:03

Donc tu comprend pourquoi je l'ai déposé et que je vais simplement modifier cette src afin quelle soit plus stable et utile pour ceux qui veule intégrer une recherche sur le web pour les Bdd. En plus je note que j'ai comme projet de faire une bdd de films...

Sinon je le prend pas comme ça c'est juste que les améliorations auquelle je pensé concerné la src de recherche d'info et non le développement d'un autre prog!!!

Pour ceux qui est des états d'ames, j'ai posté plusieurs fois dans le forum mon probléme de récupération de le src html, ainsi que sur le chat Cs, et je n'ai eu aucune réponse alors comme ce code n'est pas parfais au niveau de la stabilité c'était un moyen de demander comment faire pour résoudre ce probléme et de tester si il existe aussi chez les autres!!!!

Citation : "De mon coté ça m'est égal, les développements que je suggére, je suis parfaitement capable de les développer tout seul,ton code m'apporte quelque chose puisque je ne savais pas qu'il était aussi simple de récupérer des infos dans un fichier web. "
-->donc si tu sais répondre a ce probléme????

Commentaire de ralf19b3 le 10/12/2003 14:11:02

Nivo config je suis pareil que toi (xp sp1 et vb6)! Sinon ca me met "Recherche en cours..." puis "Aucun résultat"!! Ca pourait etre a cause de "inet"<?, comment puis je y remedier??

Commentaire de pcpunch le 10/12/2003 14:17:38

Je cherche !!! mais je trouve pas, ce code chez moi me renvoie rien pourtant url est valide comprend po si qq sait pq??????

Dim codesrc As String
Inet1.AccessType = icUseDefault
Inet1.Protocol = icDefault
codesrc = Inet1.OpenURL("http://www.allocine.fr/recherche/rubrique.html?typerecherche=3&motcle=" & Text1.Text)
Do While Inet1.StillExecuting = True
DoEvents
Loop
MsgBox codesrc

G une reponse sur titanic, matrix ?sinon genre maison ou vélo g rien alors que normalement il y en a????? c incomprehensible??

Commentaire de Cugel le 10/12/2003 16:59:05

Je crois savoir pourquoi certains ont des problèmes... J'ai été obligé de compiler le projet pour que mon FireWall laisse passer la recherche sur allociné (il demande quand même avant).

Je suppose donc que ceux qui ont des problèmes ont un firewall activé et ont tenté une recherche en mode interprété.

Quant au code source en lui-même, rien à redire, je mettrai bien 9/10. Seul problème : les commentaires çà craint un peu...

je revois donc la note à 8/10.

Commentaire de pcpunch le 10/12/2003 19:12:39

dsl pour les commentaires, mais je pensé que c'était les src qu'on noté!!!

Sinon g desactivé le firewall xp, j ai rien d autre et idem!!! donc vient pas de la !!!

Commentaire de vincentescalade le 10/12/2003 21:10:20

En tout ca moi ca marche super bien (meme pour matrix). J'avais déja pensé faire un truc dans le genre mais je ne savais comment faire.

Bravo 9/10 !!!!

Commentaire de pcpunch le 11/12/2003 02:56:44

Voila la src est mise a jour
Voir Descriptif, Zip, Capture.

J'avais des états d'âme!!! lol

Pour ceux qui avait des problémes avec inet, maintenant il est juste utiliser pour l'affichage de la miniature(voir ma questions dans le descriptif)!!

c plus stable et surtout plus rapide!!!

Faites moi part de vos impressions ou problémes!!!!
Et surtout remonter la note!! "qui est en train de degringoler!! :( "

Commentaire de ralf19b3 le 11/12/2003 07:31:30

voila maintenant ca marche impec!! je te met ... heu...10/10!
-Pour le bon boulot que tu a fait
-Pi aussi pour t'avoir interesser a mon probleme!!

Merci encore et tres bonne source bien utile =)

Commentaire de radada le 11/12/2003 09:13:34

Sinon, j'ai une idée pour le faire autrement si ton pb de recherche n'est pas résolu... Tu fais un bouton qui s'intègre à IE, et quand tu es sur Allociné et qu'une page t'interesse, tu cliques dessus, et tu la sauve via ton soft. Cela peut être interessant aussi non???? En tout cas bravo encore : )

Commentaire de vans_44 le 12/12/2003 16:54:58

Voici le code pour télécharger un fichier sans ouvrir une boite de dialogue enregistrer sous

'*************************************************************************************************
'*  FUNCTION    :   GetBinary
'*  DESCRIPTION :   Download un fichier du serveur
''*************************************************************************************************
Function GetBinary(strPathSource As String, strFileName As String, strPathDest As String) As Long
    On Error GoTo Err_GetBinary
    Dim oHTTP
    Dim oStream
    Dim strSrcUrl As String

    Const adTypeBinary = 1
    Const adSaveCreateOverWrite = 2

    Set oHTTP = CreateObject("MSXML2.XMLHTTP")

    oHTTP.Open "GET", strPathSource & strFileName, False
    oHTTP.Send

    If oHTTP.Status = 200 Then
        'Pas d'erreur
        Set oStream = CreateObject("adodb.stream")
        oStream.Type = adTypeBinary
        oStream.Open
        oStream.Write oHTTP.responseBody

        oStream.SaveToFile strPathDest & strFileName, adSaveCreateOverWrite
        GetBinary = ERROR_SUCCESS
    Else
        GetBinary = -1
    End If
    Set oStream = Nothing
    Set oHTTP = Nothing

    Exit Function

Err_GetBinary:
    GetBinary = Err.Number
End Function

Commentaire de coplanacu le 13/12/2003 09:18:47

j'ai testé : bravo et merci. En plus le code est clair et commenté. Je compte bien le réutiliser un jour à d'autres fins.
10/10.

Commentaire de Bifrons le 15/12/2003 12:11:57

Vraiment cool ton petit prog

Bravo :)

Commentaire de vans_44 le 15/12/2003 12:29:35

Merci Colpnacu et Bifrons
Mais auriez vous le même prog mais dans l'autre sens, c'est a dire qui copie un fichier sur un serveur ?

Commentaire de nezac43 le 17/12/2003 19:18:07

Felicitations. Ce prg est bien pensé et bien realisé. Il permet une recherche plus pratique que directement sur le site allocine.

Commentaire de eka808 le 23/12/2003 18:49:50

Super boulot vraiment 10/10

Commentaire de espadon2 le 26/12/2003 12:53:03

Cool , bon boulot , Je vais réutilisé ta source . J' avais commencé par me faire une bdd de tous mes films , mais là c 'est bcp plus simple pour récupérer info du film (si on est connecté)

Bonne continuation...

Commentaire de espadon2 le 26/12/2003 22:06:01

Ca bloque su certains films au niveau de la miniature exp : "Panic room",. mais ce né pas grave

Commentaire de snoopy77 le 14/07/2004 14:26:31

Hello !! Terrible ce petit prog !

Mais je me pose une question, en fait je suis train de programmer un script en PHP pour répertorier tous mes films et alimenter ainsi une base de donnée ( sql ), or je n'arrive pas pour l'instant a extraire les infos des résultats de la recherche du moteur d'allocine kom ton programme le permet, donc je voulais savoir si je pouvais faire une sorte de pont entre le VB et le PHP et/ou la base SQL pour utiliser tes résultats, or je n'est pas encotre eu le temps de me pencher sur le VB !!

Mais c'est les vacances dc j'ai ts le temps !!

Merci d'avance ! @++

Commentaire de scal672303 le 15/07/2004 15:36:42

Haaa, il y as des jours où on est content de trouver des programeurs comme toi!! Tu me retire une sérieuse épine du pied!! Perso, je dois écrire un petit prog VB qui vas rechercher des données au travers de HTTP, sur un serveurs de données MainFrame/AS400 etc.. et là avec ce code source, je crois que je tient le bon bout!!!! Merci.
Pascal

Commentaire de bibou92 le 01/08/2004 16:52:36

Super boulot !!

Je te mets 9/10.

Sinon, je voulais reutiliser certains trucs pour un programme en VB .net ou j'ai besoin d'aller rechercher des infos sur allocine de la meme maniere mais je n'y arrive pas alors si qqun peut m'aider ce serait cool.

Commentaire de lngbool le 23/08/2004 13:52:53

Salut pcpunch,
Deux choses:
- Si ça t'intéresse j'ai bricolé ta source, j'arrive mieux à récupérer les affiches de films, tu me dis ça par émail à 'laum62@free.fr', pas la peine de polluer ici.
- Si t'es toujours au chomage, je connais du monde que ça peut intéresser, à mon avis pas plein temps mais pourquoi pas free-lance en indépendant ? J'en sais rien à voir avec eux, si tu veux plus d'infos contactes-moi.

@+, et bonne journée.

Commentaire de Psyc0s le 27/09/2004 01:12:17

jai testé bravo

10/10

Commentaire de fifipil909 le 01/10/2004 18:18:51

C de la boulette !!

Bravo 10/10

Commentaire de fifipil909 le 04/10/2004 11:42:58

aparament allocine on changer leur skin du site et en plus la page www.allocine.fr/recherche/rubrique.html? ....etc n'existe plus.

pourrait tu regarder de ton coté et mettre ta méthode de parse à jour suivant la nouvelle page car ta source est trop top !!

Merci

Commentaire de pcpunch le 04/10/2004 12:42:29

essaie mon ocx allociné, il fonctionne parfaitement, cette src n'etait pas trés stable c pourquoi je l'ai refaite en ocx
++

Commentaire de fifipil909 le 04/10/2004 13:44:30

Désoler de te dire ca mais c'est toujours pareil.
J'ai tester hier tout fonctionner parfaitement avec ta source et l'ocx
mais aujourd'hui j'obtient que les résumer des films qui sont en cache sur mon poste.

essais de ton coté de faire une recherche sur un film que tu n'a jamais essayer tu verra par toi meme que ca ne fonctionne plus !!

sniff sniff, domage ta source était trop bien ;)

Tien moi au courant !
fifipil@hotmail.com !

Merci.

Commentaire de pcpunch le 05/10/2004 01:13:54

Dsl Fifipil909, mais apparement tu est un des seul a avoir ce bléme!!!

Le prob ne vient pas plutot de ta config???? ou autres???

Ps: j'ai testé l'ocx et cette source pas de probléme chez moi!!!! mm avec ceux qui ne sont pas en cache!!!

Dsl ++

Commentaire de Bifrons le 05/10/2004 15:43:31

Autre user : il fonctionne toujours aussi bien chez moi en tout cas !
Même avec de nouveaux films jamais recherchés.

Commentaire de Bifrons le 05/10/2004 21:20:48

oups depuis le taf ca fonctionnait aujourd'hui mais maintenant depuis la maison : plus rien !!
Hier soir le code fonctionnait encore et now : HS :(

Commentaire de CrAzYb le 06/10/2004 08:07:41

J'ai regardé de mon coté, allocine.com a changer la structure de ses pages ceci explique peut etre cela, l'ocx comme ce code ne fonctionne plus. Sinon trés bon travail, j'ai utilisé jusqu'a maintenant nickel. Je met un 8/10 car j'ai mis 9/10 pour l'ocx.
Bonne continuation.

Commentaire de fifipil909 le 06/10/2004 16:47:33

Donc apparament je ne suis pas le seul à avoir constater ce petit désagrément.

il va falloir dans ce cas modifier la méthode de parse de la page et pas très évident quand on voit la tronche du code source de la page html

pcpunch:
si tu veux des infos la dessus tu pourrais éventuellement voir avec les éditeurs d'un freeware divxbox qui sont en ce moment confronter
au même problème.

http://divxbox.omsoccer.com/

Commentaire de claudetom le 22/12/2004 14:05:38

En effet la structure du site d'allocine a changé idem pour l'adresse de recherche par mot clef.

J'ai aussi travaillé sur la base de ce programme pour en faire un plus complet avec base de données et d'autres sites de recherche ainsi que la récupération de l'affiche du film sur le site d'allociné et sur d'autre (au choix).
+ impression de jaquettes au format DVD, CD, et formulaire.
Ainsi qu'un paramétrage complet des balises de recherche dans le cas ou justement la structure et adresse changerait.
Tout en vb.net.
le programme à été amélioré: parti base de données ainsi que d'autres modules (réception de message anti-spam etc..et compo) de Jean-marie delaboutresse.
j'ai agrémenté le logiciel de différents modules pour en faire un tout-en-un.
Je ne peux pas diffuser le programme, car il est beaucoup trop gros pour être envoyé ici, mais vous
pouvez me le demander par mail ou à jean-marie.

La partie modification des balises n'est pas finie, mais fonctionnelle.

Commentaire de pcpunch le 22/12/2004 15:10:32

Comme je l'ai déja signaler vous pouvez trouver cette source sur vb france mais en ocx. En effet ayant adapter l 'ocx au nouveau formatage du site allociné, je ne vait pas recoder cette source :::

++

Commentaire de polposicion le 05/09/2005 05:45:36

Dommage, ce code active mon antivirus BitDefender: infecté par Exploit.ADODB.Stream2.Gen

Function GetBinary(strPathSource As String, strFileName As String, strPathDest As String) As Long
    On Error GoTo Err_GetBinary
    Dim oHTTP
    Dim oStream
    Dim strSrcUrl As String

    Const adTypeBinary = 1
    Const adSaveCreateOverWrite = 2

    Set oHTTP = CreateObject("MSXML2.XMLHTTP")

    oHTTP.Open "GET", strPathSource & strFileName, False
    oHTTP.Send

    If oHTTP.Status = 200 Then
        'Pas d'erreur
        Set oStream = CreateObject("adodb.stream")
        oStream.Type = adTypeBinary
        oStream.Open
        oStream.Write oHTTP.responseBody

        oStream.SaveToFile strPathDest & strFileName, adSaveCreateOverWrite
        GetBinary = ERROR_SUCCESS
    Else
        GetBinary = -1
    End If
    Set oStream = Nothing
    Set oHTTP = Nothing

    Exit Function

Err_GetBinary:
    GetBinary = Err.Number
End Function

Commentaire de bombergame le 28/10/2005 13:01:42

Il ne marche pas, surement a cause des evolutions du site allocine !!!

J'aurais tant voulu que sa marche !!! pourrait tu remodifier ta source et la mettre a jour si c'est possible ???