Bonjour bonsoir voila je developpe une app pour regarder les chaines de la tnt entre autre gratuitement ( je stream aucun lien ce sont des lien dispo legalement sur internet )
donc toutes mes chaines sont dans un xml et le xml et comme ça
Code XML : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 <channel> <name>Les simpson</name> <num>12</num> <prog>Aucun epg disponible </prog> <quality>THD</quality> <img>http://griffindunet.alwaysdata.net/logos/Simpson.png</img> <url>leliendustream</url> </channel>
et pour la chaine l'équipe ( alias l'équipe 21 ) il faut que je passe par livestreamer
donc j'ai créer un bouton et comme code j'ai ça
puis en dessous le code pour lancer vlc
Code : Sélectionner tout - Visualiser dans une fenêtre à part Shell("i:\livestreamer/livestreamer.exe http://www.dailymotion.com/video/x2lefik_la-chaine-l-equipe-en-direct_sport 720p")
et la ça marche sauf que je voudrais mettre ce code dans mon xml entre <url> et </url> afin que quand l'utilisateur clique sur l'equipe la chaine ce lance directement j'ai deja tenter copier le contenue du shell rien a faire erreur dans vlc
j'ai tenter comme ça
mais meme pas vlc ce lance et j'ai une erreur du style erreur plugin sur l'url un truc du genre qui apparais et disparait sur livestreamer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 Try If ListView1.SelectedItems Is Nothing Then MessageBox.Show("choisis une chaine !") ' sinon on cast l'item en Chaine pour accéder à son attribut Url Else ' Dim currentItem As Chaine nameitemselected = ListView1.SelectedItems.Item(0).Text urlitemselected = ListView1.SelectedItems.Item(0).SubItems(4).Text ' currentItem = CType(currentitemselected, Chaine) Dim urlstream As String = """" + urlitemselected + """" Dim NameStream As String = """" + nameitemselected + """" Dim vlc As String = Me.LireFichier("vlc.txt") Dim livestreammer As String = Me.LireFichier("live.txt") Dim processlive As New ProcessStartInfo processlive.FileName = livestreammer processlive.Arguments = urlstream Dim ProcessStartVLC As New ProcessStartInfo ProcessStartVLC.FileName = vlc ProcessStartVLC.Arguments = "--input-title-format " + NameStream + " " + urlstream + " --fullscreen" ProcessStartVLC.WindowStyle = ProcessWindowStyle.Maximized
bref si vous m'avez compris et si vous pouvez m'aidez c cool
ps dans les txt c'est juste l'url de localisation des logiciels sur le pc du visiteur de mon tool
Partager