Vidzretriever v2.1.5 - retrouver un film via allociné

Soyez le premier à donner votre avis sur cette source.

Vue 15 593 fois - Téléchargée 1 073 fois

Description

Voici la source complète de mon chtit programme qui permet de faire une recherche sur un film dont vous ne savez plus trop ce que c'est...

STEP1: on tape le nom du film
STEP2: on choisit dans la liste des films trouvés le bon film
STEP3: on le séllectionne et le programme affiche les infos

Le programme permet aussi de faire une sauvegarde de tout le signet au format image (.gif,.bmp.jpeg) et de le stocker dans un repertoire.
Si vous utilisez le rep du programme, vous pourrez faire une visualisation des signets via le micro-browser d'image que j'y ai intégré.

Ce programme utilise les requêtes http , la manipulation d'image (signet et background du prog), le browsing de dossier, la capture d'une "form" entière au format image.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
53
Date d'inscription
dimanche 15 septembre 2002
Statut
Membre
Dernière intervention
22 août 2006

la version "nouvelle" est disponible à l'adresse http://www.vbfrance.com/code.aspx?ID=31417
Messages postés
53
Date d'inscription
dimanche 15 septembre 2002
Statut
Membre
Dernière intervention
22 août 2006

moui...bon depuis le temps, autant vous dire que le projet a avancé grandement... je n'ai pas mis à jour cette source, mais ceux intéressés n'ont qu'a m'envoyer un mail.

Le projet a aussi changé de nom pour VidéoTk.

Maintenant le programme utilise une .dll qui intègre toute la partie de parsing et qui parse encore plus de choses.

Il gère aussi mieux la database et gère les prêts !

Pour voir le soft en action vous pouvez le trouver sur le site http://www.tempete.be/radio/ dans la partie réalisations :o)
Messages postés
379
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
20 avril 2011
1
juste ptit truc :

ne t'enquiquine pas avec "Microsoft.VisualBasic.Mid(strWord, 2)"

tu peux utiliser strings.mid(strWord, 2).

Voilou sinon il est vrai que ton parseur est perfectible (et je vais m'y ateler pour occuper mes heures perdues)mais je reste vraiment impressionné par ta source.

Encore bravo !

Seb.
Messages postés
379
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
20 avril 2011
1
moi je dis total respect !

Seb.
Messages postés
53
Date d'inscription
dimanche 15 septembre 2002
Statut
Membre
Dernière intervention
22 août 2006

Heuuu j'ai core trouvé une couille dans les caractères spéciaux... vous pouvez remplacez le code avant le select case cmburl dans la fonction connect de la form recherche par le code suivant:

Rstr = TxtFilm.Text
Rstr = Rstr.Replace(" ", "+") 'on remplace les blancs par des +
Rstr = Rstr.Replace(Chr(39), "%27") 'on remplace le charactère ' par %27
Rstr = Rstr.Replace(Chr(233), "%E9") 'charactère é par %E9
Rstr = Rstr.Replace(Chr(232), "%E8") 'charactère è par %E8
Rstr = Rstr.Replace(Chr(249), "%F9") 'charactère ù par %F9

Je n'avait pas envie de réuploader toute la source juste pour le petit bout de code, mais ce serra fait pour la mise a jour suivante :o)
Afficher les 10 commentaires

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.