Bonjour,

Ma version en java fonctionne de nouveau.

pour info les points que j'ai ennoncés dans mon precedent message m'ont bien permis de comprendre le fonctionnement.

Je ne sais pas si Vb.net offre les class permetant de modifier les entêtes http ?

Bon courrage

Tiens nous au courant TITOMBOSS

Bonjour,
Le problème vient du fait que radioblog a cripté les adresses issu du fichier xml
à cela 2 solutions annaliser les trames https en faisant une recherche sous radioblog afin de comprendre comment sont décripté les données (ex: envois de la clef de criptage si c le lecteur flash qui décripte, ou alors une identification faite par le lecteur et donc reception des adresses décripté).

le premier lecteur fait par titomboss fonctionne toujours car il récupère l'adresse du fichier à lire directement dans la page html cette solution n'est pas tres propre car il ne connait pas l'extention du fichier à lire de plus si le nom du fichier n'est pas exactement le même il ne sait pas non plus le lire.

une solution dégradé consisterait à lire l'adresse directement dans la page html (idem 1er appli) puis de récupérer le non exacte du titre ainsi que l'extention du fichier dans le fichier xml (cette partie n'est toujours pas cripté !!). cette solution est a présoir en dernier recoure car elle va ralentir considérablement le chargement de la chanson à lire.

bon courage
Thomas

Bonsoir TitomBoss,
Si tu as besoin d'un coups de main ou de conseil, je suis à ta dispo.
J'ai pour ma part comme cité plus haut intégré ces fonctionnalitées.
de plus j'ai ajouté une traduction pour les paroles ainsi qu'un historique (treeview et listview).

dans mon cas je l'ai fait en vb.net 2003.
sinon je suis entraint de terminer cette même application en java (sans vouloir parler d'autre chose que Vb) qui pour ma part est bien plus performante et fonctionne sur tous les pc car ma version en vb.net 2003 ne tourne pas sur tt les pc ??

la partie la plus dificile pour moi en vb.net fut de parser le fichier xml (je ne sais pas pourquoi le parseur n'accept pas les url mais uniquement les fichiers en local).
ainsi que recup la partie traduite de google (dans une autre frame).
je pense que tu ne rencontreras pas ce problème en vb.net2005.
Thomas

Salut TITOMBOSS,

je pense que l'érreur que tu rencontres et dans la recherche de chose qui ne trouve pas dans la page. Car je peux te confirmer que si tu fais une recherche dans le site avec une page sup au nombre de chanson trouvé il affiche bien la page mais sans chanson (cela va de soi!!)

si effectivement dans ton code cela n'est pas génant, en utilisant une autre méthode du type webbrowser, object IE ou encore WebRequest cela est genant car il attend la fin de la boucle (1000 step 50) avec ce que cela implique (chargement de la page) donc tres long.

mais cela est hors sujet de ton pose.

pour info j'ai trouvé la solution pour l'extention des titre qui est différent de rbs.
a savoir que des foi le titre de la chanson n'est pas toujours le même que celui passé en parametre de l'auto play.

il faut intérogé le fichier xml que radioblog te retourne pour donné la playlist du blog qui contient la chanson souhaité.

exemple :
  tUrl = "http://www.radioblogclub.com/radio.blog.3.0/sounds/playlist.php?idradio=" & numPlayslit & "?r="

        'test using system.net**************************************
        Dim result As WebResponse
        Dim req As WebRequest = WebRequest.Create(tUrl)
        result = req.GetResponse()
        '  // on crée un flux pour lire la réponse
        Dim ReceiveStream As Stream
        ReceiveStream = result.GetResponseStream
        '   // on choisit le type d'encodage
        Dim encode As Encoding
        encode = System.Text.Encoding.GetEncoding(0)
        '   // on crée un flux texte qui lira le flux web
        Dim sr As StreamReader = New StreamReader(ReceiveStream, encode)
        '     // on lit le flux qu'on place dans le string read
        codesource = sr.ReadToEnd
        sr.Close()

pour info le numplyslit est le numéro dans le lien entre "open/" et "/".
cela va en plus accelérer ton code car tu n'auras plus à charger la page pour récupe l'adresse du server contenant la chanson. mais uniquement le fichier Xml ce qui est beaucoup plus rapide.

si je peux me permetre de te conseiler quelquechose c'est de ne plus utiliser ta dll pour télécharger le code source car celle ci t'oblige à ecrire et lire un fichier txt (qui est plus long et qui t'oblige à effectuer cette opération de magniere synchrone (tjous plus longue)).

si tu peux ne plus être tributaire du fichier txt tu peux utiliser des Thread et donc faire en même temps des recherches sur plusieurs page en même temps et donc accélérer tes recherches.

en plus l'utilisation des threads te laisse la main sur l'interface durant la recherche ce qui est plus sympa.

dernier point pour revenir à mon message precedent.
la recherche du nombre de titre des la premiere page permet d'afficher la progression de ta recherche dans un progresbar par exemple ce qui n'est pas du luxe dans ta recherche est longue.

Thomas.

Bonjour,

Je suis de ton avis sur un nombre fix tell que 1000, pour autant je pense que l'utilisation de page suivante n'est pas une bonne idée sachant que radi blog affiche la page meme si il n'y a plus de chanson.

dans le programme que je me suis fait je recherche le nombre de page des la 1er recherche (quand je passe 0 en parametre)
puis je me base sur le total recherche qui est donné par radio blog

exemple :
If TheTotal = 0 Then
            Dim total As String
            total = typeSplite(codesource1, "</B> of about <B>", "</B> for <B>")
            If total <> "" Then
                TheTotal = CType(total, Integer)
                If TheTotal > 50 Then TheTotal = ((CType(total, Integer) \ 50) * 50)
            End If
        End If

TheTotal est une variable globale
voici la fonction qui récupe le total :

Function typeSpliteParole(ByVal donneeSource As String, ByVal debut As String) As String
        Dim textTemps As String
        If InStr(LCase(donneeSource), LCase(debut)) <> 0 Then
            textTemps = Mid(donneeSource, InStr(LCase(donneeSource), LCase(debut)))
            typeSpliteParole = Mid(textTemps, (debut.Length + 1))

        End If
    End Function

ma facon de faire n'est pas la meilleur sachant que radio blog change regulierement sa facon d'ecrire le total.
deplus selon la maniere dont tu recupères la source HTML tu peux avoir du francais ou de l'anglais

ps :  moi j'utilise "Imports System.Net" ce qui m'evite d'écrire et lire un fichier temps

exemple :
'test using system.net**************************************
        Dim result As WebResponse
        Dim req As WebRequest = WebRequest.Create(tURL)
        result = req.GetResponse()
        '  // on crée un flux pour lire la réponse
        Dim ReceiveStream As Stream
        ReceiveStream = result.GetResponseStream
        '   // on choisit le type d'encodage
        Dim encode As Encoding
        encode = System.Text.Encoding.GetEncoding(0)
        '   // on crée un flux texte qui lira le flux web
        Dim sr As StreamReader = New StreamReader(ReceiveStream, encode)
        '     // on lit le flux qu'on place dans le string read
        codesource1 = sr.ReadToEnd
        sr.Close()
        If TheTotal = 0 Then
            Dim total As String
            total = typeSplite(codesource1, "</B> of about <B>", "</B> for <B>")
            If total <> "" Then
                TheTotal = CType(total, Integer)
                If TheTotal > 50 Then TheTotal = ((CType(total, Integer) \ 50) * 50)
            End If
        End If

tURL est l'url recherché

si cela peut être utile.
Thomas

Bonjour,
J'ai réussi à adapter (enfin modifier beaucoup de chose car je ne peux utiliser la dll "isxdl.dll" et j'utilise VLC).
Dans ton code (que j'utilise) tu ajoutes ".rbs" à l'adresse finale or je me suis aperçu que cela limite fortement les possibilité de lire et download. En effet je rencontre souvent dans mes recherches des extensions du type ".mp3.rbs, .swf, .mp3.mp3".
Face à ce problème j'ai essayé de lister les fichiers contenu dans le répertoire or visiblement ce n'est pas possible (je n'ai rien trouvé sur le sujet). Pour autant j'ai trouvé sur le net un site "php" qui arrive à lister le contenu de ces répertoires !! .
si quelqu'un savais comment faire ? je pense que cela de intéressant à implémenter dans ta source.

Merci pour ta proposition de suis intéressé par ton exe (pour comparer avec la mienne en vb.net).
je t'enverrai la mienne si tu le souhaite une foi qu'elle sera stabilisé (utilisation du webbrowser pour recup le code source n'est pas terrible !! (mais plus d'utilisation de lecture de fichier temps) utilisation de thread et essay d'implementation du control de volume)
comme je ne suis pas encore bien dans l'utilisation des threads mon code n'est pas optimisé et présente encore quelque bug

Je met 10/10 super idée d'ajouter la proposition google, les paroles !!
le code est claire, et facilement exploitable.

Bonjour,
J'utilise vb.net 2003 et il m'indique que des objects ne sont pas licencier (j'ai l'habitude lol)
de ce fait j'ai essayé de retranscrir ton code dans un nouveau projet

mon problème est que le fichier temp ne se cré pas avec la commande suivante :
value = URLDownloadToFile(0, URL$, FileName$, 0, 0)

FileName$ contient bien l'adresse du fichier à créer
URL$ : contient bien la recherche (j'ai testé dans mon navigateur et la recherche est ok)

si vous avez une idée
d'avance merci

PS : j'ai bien collé la dll dans system32

Je trouve ce code très bien mais dans l'ètat actuel il risque de remplacer des caractères spèciaux, pour ce faire j'y ajouterai une surcharge du genre :
en ecriture
Dim fichier As StreamWriter = New StreamWriter(Application.StartupPath & "\nomFichier.txt", False, System.Text.Encoding.Default)
et en lecture
Dim fichier As StreamReader = New StreamReader(Application.StartupPath & "\nomFichier.txt", System.Text.Encoding.Default)
Idem 7/10
Bonne prog