oups j'ai oublié de noter...

Merci pour cette jolie prog...
ça va m'être super utile pour mon projet de lecteur amélioré...
Bientôt une nouvelle version complètement refaite avec enregistrement du streaming... merki
09/10 car rien n'est parfait...mais on s'en rapproche...;)

Salut a tous!
Frentchy je te conseille ça: http://www.vbfrance.com/codes/MANIPULATION-XML-DOM-TUTORIEL-SUR-FOND-FLUX-RSS_41131.aspx
Moi j'ai trouvé ça super bien expliqué et en vb6

@+

marche pas désolé:
il ne trouve pas ma connection internet -> donc pas de téléchargement!

dommage, mais tu as peut être une solution?

Dommage!
Mais merci quand même pour ta réponse!
Si un jour je trouve le moyen tout seul je te tiendrai au courant!
@+

Juste une question à la con!!! (désolé)
Peut on charger directement un gif dans un contrôle image à partir d'une ressource compris dans le projet?
Je n'y arrive pas!
merci d'avance!
et Ebravo pour ta source!

Tu as vu ce qu'il y a marqué dans description tout en haut de la page?
Sinon va sur le site: http://niprod.free.fr/index.php?center=news
C’est le nouveau site du projet!
Va voir c plutôt sympa, puis sur le forum je répondrais à t question plus en détail!

Bonne continuation dans la programmation!!!

Salut pcpunch!
J'utilise ta source depuis un certain temp et j'ai fait quelque modif:

    '---------------------------------------------------------------------------
    'Synopsis
    Nb1 = InStr(1, CodeSrc, "<DIV align=justify>")
    nb2 = InStr(Nb1, CodeSrc, "<H4>")
    Nb1 = InStr(nb2, CodeSrc, "</H4>")
    tmp = Mid(CodeSrc, nb2, Nb1 - nb2)
    'suppresion des balises
    tmp = Replace(tmp, "<H4>", "")
    tmp = Replace(tmp, "<B>", "")
    tmp = Replace(tmp, "</B>", "")
    tmp = Replace(tmp, "<BR>", vbCrLf)
    tmp = Replace(tmp, "<I>", Chr(34))
    tmp = Replace(tmp, "</I>", Chr(34))
    If tmp = ">" Then Synopsis = "Pas de Sysnopsis disponible" Else Synopsis = tmp

    '---------------------------------------------------------------------------
    'genre se trouve entre  nb2+4 et duree delimité par <FONT class=size2> et <
     tmp = ""
    Nb1 = InStr(1, CodeSrc, "<H4>Genre :")
    nb2 = InStr(Nb1, CodeSrc, "</H4>")
    tmp = Mid(CodeSrc, Nb1 + 12, nb2 - Nb1 - 12)
    Dim travail_Genre() As String
    travail_Genre = Split(tmp, ">")
    
    If UBound(travail_Genre) > 1 Then
        For i = 1 To UBound(travail_Genre) Step 2
            Genre = Genre & travail_Genre(i) & ", "
        Next i
        Genre = Replace(Genre, "</A", "")
        Genre = Left(Genre, Len(Genre) - 2)
    Else
        Genre = tmp
    End If

Quand a la miniature défoi on ne tombe pas sur la bonne mais il y a plusieur images sur la page dont celle du DVD en vente, donc je me suis amusé a répertorier toutes les images de la page, puis grace a un bouton sur la form je change d'image!
Voila le code pour la modif:

dans l'ocx a la place de ton code de recherche d'image

    '------------------------------------------------------------------------
    'Aperçu de l affiche miniature
  
    Nb1 = InStr(1, CodeSrc, "acmedia/medias") 'point repere a tous
    nb2 = InStr(Nb1 - 100, CodeSrc, "http://")
    Nb1 = InStr(nb2, CodeSrc, Chr(34))
    UrlMini = Mid(CodeSrc, nb2, Nb1 - nb2)
    TablURL = Split(CodeSrc, "http://")
    NombreDePhoto = 0
    For i = 1 To UBound(TablURL)
        Nb1 = InStr(1, TablURL(i), Chr(34))
        TablURL(i) = Mid(TablURL(i), 1, Nb1 - 1)
        If LCase(Right(TablURL(i), 4)) = ".jpg" Then
            ReDim Preserve TablImageUrl(NombreDePhoto + 1)
            TablImageUrl(UBound(TablImageUrl)) = "http://" & TablURL(i)
            If NombreDePhoto = 0 Then
                TablImageUrl(0) = UrlMini
                FrmInfoAllocine.CmdAutreMiniature.Enabled = True
            End If
            NombreDePhoto = NombreDePhoto + 1
            FrmInfoAllocine.Label1.Caption = "Image 0/" & NombreDePhoto
        End If
    Next i
    'Affiche miniatures
    NumMiniature = 0
    Dim Tmp1() As Byte
    Erase Tmp1
     RaiseEvent Evenement("Téléchargement de la miniature")
    Tmp1() = Inet1.OpenURL(UrlMini, icByteArray)
    Do While Inet1.StillExecuting = True
    DoEvents
    Loop
  
    Open App.Path & "\tmp.jpg" For Binary Access Write As #1
    Put #1, , Tmp1()
    Close #1
    If UrlMini <> "" Then Set Miniature = LoadPicture(App.Path & "\tmp.jpg") Else Set Miniature = LoadPicture(Nothing)
    RaiseEvent Evenement("Téléchargement miniature Terminée")
    Kill App.Path & "\tmp.jpg"

toujour dans l'ocx j'ai rajouté la fonction:

Public Function AfficheAutreMiniature()
'Affiche miniatures
    If NumMiniature < NombreDePhoto Then
        NumMiniature = NumMiniature + 1
    Else
        NumMiniature = 0
    End If
        
    Dim Tmp1() As Byte
    Erase Tmp1
     RaiseEvent Evenement("Téléchargement de la miniature")
    Tmp1() = Inet1.OpenURL(TablImageUrl(NumMiniature), icByteArray)
    Do While Inet1.StillExecuting = True
    DoEvents
    Loop
  
    Open App.Path & "\tmp.jpg" For Binary Access Write As #1
    Put #1, , Tmp1()
    Close #1
    If UrlMini <> "" Then Set Miniature = LoadPicture(App.Path & "\tmp.jpg") Else Set Miniature = LoadPicture(Nothing)
    RaiseEvent Evenement("Téléchargement miniature Terminée")
    Kill App.Path & "\tmp.jpg"
    UrlMini = TablImageUrl(NumMiniature)
    FrmInfoAllocine.Image1.Picture = Miniature
    FrmInfoAllocine.Label1.Caption = "Image = " & NumMiniature & "/" & NombreDePhoto
End Function

sur la form j'ai rajouté un label: label1
et un bouton : CmdAutreMiniature

quand on appuis sur le bouton sa donne:

Private Sub CmdAutreMiniature_Click()
     Allocine1.AfficheAutreMiniature
End Sub

sinon tu peux toujour aller voir ce site(ok il est en allemand) http://www.scifi-games.com/include.php?path=content/overview.php&type=4

il y a tous les petit jeux sur stargate

voila voila

Je suis aussi fan de stargate et je pense qu'il te faut d'abord penser au but de ton logiciel car la il n'y en a aucun!
va voir sa : http://www.sgfp.spielenebel.de/ sa te donnera une petite idée de ce que tu peux faire! moi je peux peut être t'aider donc dit moi si je peux faire quelquechose pour toi!