begin process at 2012 02 16 00:32:51
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Réseau & Internet

 > PROGRAMME TV

PROGRAMME TV


 Information sur la source

Note :
9,9 / 10 - par 10 personnes
9,90 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Réseau & Internet Classé sous :programme, tv, télé, télévision Niveau :Débutant Date de création :12/11/2005 Vu / téléchargé :23 088 / 1 875

Auteur : roka

Ecrire un message privé
Site perso
Commentaire sur cette source (18)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
un code simple qui montre comment récuperer les donné d'un site et les utilisé
je n'ai pas chercher à faire un code parfait ect...
mais si cette source peut aidé certaines personnes tant mieux



 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture VOCAL POUR CHAT PERSO
Source avec Zip SOCKS 5 SOURCE CODE

 Sources de la même categorie

Source avec Zip Source avec une capture GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source avec une capture DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda
Source avec Zip Source .NET (Dotnet) NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB
Source avec Zip Source avec une capture MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout

 Sources en rapport avec celle ci

Source avec Zip PROGRAMME DE CONJUGAISON D'UN VERBE EN PREMIER GROUPE (VB) par estGI
Source avec Zip Source avec une capture CONSULTATION DES PROGRAMMES DE LA TÉLÉ par jtoto
Source avec Zip CONSULTER LES PROGRAMMES TV par Piezo
Source avec Zip Source avec une capture TV ET RADIO PAR INTERNET par tazer45
SIMULER DES PARASITES TV par Skymmon

Commentaires et avis

Commentaire de Trainkill666 le 12/11/2005 17:31:13

Salut,
beau programme, car bien pratique.
le code peut etre simplifié mais ça c'est autre chose.
Le plus important c'est que l'idée est là.
Je vais le modifier pour l'adapter à mon bureau, essentiellement au niveau graphique.
Allez, un ch'ti 10

Commentaire de roka le 12/11/2005 18:08:23

thank mr

Commentaire de Trainkill666 le 12/11/2005 19:16:21

Salut chez remoi,
je viens de regarder un peu plus ton programme,
tu peux simplifier pas mal de chose, par exemple :
dans Private Sub SelectionH_Click()
tu retires tout et remplaces par
Page = "/" & Mdate(3) & "-" & Mdate(2) & "-" & Mdate(1) & "/" & SelectionMode.ListIndex + 1 & "/" & SelectionH.ListIndex + 1 & "/" & ModeChaines & ".html"
voilà comment remplacer une cinquantaine de lignes par 1 seule.
Vérifies quand même si j'ai pas fait d'erreur.
y'a des autres trucs mais j'ai pas trop le temps,
@+

Commentaire de roka le 12/11/2005 20:00:31

En effet Trainkill666 sa fonctionne tres bien avec ta methode et quand on y reflechie sa parait LOGIQUE !!!!(Quelle bite je suis.non je rigole on a toujours quelque chose à aprendre) lolllll merci pour l info c 'est cool la je vais lui rajouter la date que l on souhaite choisir j'ai oublié :(
thank Mr

Commentaire de Nexto le 13/11/2005 11:47:54

Excellent le programme surtoup très pratique... Je vais souvent voir le pogramme télé le soir sur le web ce qui me prend plus de temps :p

Je suis pas chez moi, j'ai pas pu encore voir le code source mais le screen à l'air pas mal dutout.

A++
Nexto (fabienfs)

Commentaire de JJDai le 13/11/2005 12:54:33

Deux mots: Original et Excellent

Commentaire de djamalbe le 14/11/2005 10:53:19

Tout nouveau et tout beau ! Bonne suite et que 10/10 :)

Commentaire de NoFutur le 14/11/2005 11:55:40

Bien joué pour cette source bien sympathique, l'idée est bonne je met ça de côté, ça peut toujours servir :-) 10/10

Commentaire de roka le 14/11/2005 16:51:56

merci à tous

Commentaire de alain04 le 14/11/2005 22:43:11

Well! (Bravo !) Des comme ça, tu peux en mettre tous les jours !
On prends!           9,9/10

Commentaire de racattac13 le 18/11/2005 15:53:15

salut
ben... comme beaucoup de monde je te met 10 .... l'idée n'est pas original pour moi ... je m'etait deja fais une petite page html qui affiche la page de telerama a une heure precise grace a un petit script vbs , mais le mettre dans un programme c'est fort , et ca me servir pour d'autre site dont j'ai besoin de tirées des infos .... merci
a plus

Commentaire de roka le 18/11/2005 21:40:11

ah si sa aide sa fait zizir ;)

Commentaire de Trainkill666 le 18/11/2005 22:40:44

Salut j'ai fait petite modif à ton programme,
voici le code la form1, où tu peux y supprimer winsock1
j'ai fait ça sans réelle vérification, dans le peut de temps de libre que j'ai :
Option Explicit
Dim valeuretape
Const URL = "www.programme-tv.net"
Private Sub Command1_Click()
  SelectionH_Click
  ListView1.ListItems.Clear ' Effacement de la list
  TotalHTML = vbNullString ' efface le contenu
  Winsock.Close
  valeuretape = 1
  Winsock.Connect URL, 80
End Sub
Private Sub Form_Load()
Dim tempload As Integer
   valeuretape = 1
  With ListView2
      .ListItems.Add 1, , "Durée", , 0
      .ListItems.Add 2, , "Son", , 0
      .ListItems.Add 3, , "Vers. Multilingue", , 0
      .ListItems.Add 4, , "VO sous titrée", , 0
      .ListItems.Add 5, , "Ss-titres malentendant", , 0
      .ListItems.Add 6, , "Ratio", , 0
      .ListItems.Add 7, , "En direct", , 0
      .ListItems.Add 8, , "En clair", , 0
      .ListItems.Add 9, , "CSA", , 0
     For tempload = 1 To 9
      .ListItems(tempload).SubItems(1) = "--"
     Next
  End With
  SelectionH.ListIndex = 0 ' preparation de la selection
  SelectionMode.ListIndex = 0 ' preparation de la selection
  ModeChaines = LCase(SelectionMode.Text) 'on entre notre preference de depart
  Mdate(1) = Split(Date, "/")(0) 'traitement de la date
  Mdate(2) = Split(Date, "/")(1)
  Mdate(3) = Split(Date, "/")(2)
End Sub
Private Sub ListView1_Click()
  If ListView1.ListItems.Count = 0 Then Exit Sub
    TotalHTML = ""
     Text1 = vbNullString
      Page = ListView1.SelectedItem.Key
  Winsock.Close
  valeuretape = 2
  Winsock.Connect URL, 80
End Sub
Private Sub SelectionH_Click()
Page = "/" & Mdate(3) & "-" & Mdate(2) & "-" & Mdate(1) & "/" & SelectionMode.ListIndex + 1 & "/" & SelectionH.ListIndex + 1 & "/" & ModeChaines & ".html"
End Sub
Private Sub SelectionMode_Click()
'Ici Selection de la préference Chaines
  ModeChaines = LCase(SelectionMode.Text)
  'SelectionH_Click 'refrech de notre string "Page" pour lui affecter la valeur
End Sub
Public Function Etape1()
Dim I As Integer
'gestion de du tableau
  For I = 1 To UBound(MaTable)
      Etape2 MaTable(I)
  Next I
End Function
Public Function Etape2(retour As String)
'recuperation du nom de la chaines tv + 1 split pour garder que les programmes de la chaine
Dim Separation() As String
Dim Chaines As String
Dim I As Integer
   Chaines = Split(Split(retour, "alt=")(1), " />")(0)
   Separation = Split(retour, "<a href=")
   For I = 1 To UBound(Separation)
       If InStr(1, Separation(I), "<script") Then Exit For 'fin des donné programmes (bas html)
       If InStr(1, Separation(I), "<span") Then 'si sa contien ce terme c'est que des programmes sont disponible pour cette chaine tv
          Etape3 Separation(I), Chaines
       End If
   Next I
End Function
Public Function Etape3(retour As String, Chaine As String)
' pour chaque chaines tv on recherche les valeurs qui nous interesse
Dim Icon As Integer
Dim LienProgramme As String
Dim Horaire As String
Dim Programme As String
Dim Description As String
   LienProgramme = Mid(retour, 2, InStr(3, retour, Chr(34)) - 2) 'le lien pour la description du programme
   Horaire = Split(Split(retour, "horaire" & Chr(34) & ">")(1), "<span")(0) & Split(Split(retour, "minute" & Chr(34) & ">")(1), "</span")(0) ' ajout Minutes
'pas simplifier sinon erreur
  Programme = Split(Split(retour, "nomProgramme" & Chr(34) & ">")(1), "</span")(0) ' Recherche Nom du Programmes
  Programme = RemplaceCharacter(Programme, True) ' on remplace les character
'
   Description = RemplaceCharacter(Split(Split(retour, "<em>")(1), "</em>")(0) & Split(Split(retour, "</em>")(1), "<")(0), True) ' on remplace les character
   Chaine = RemplaceCharacter(Chaine, True) ' on remplace les character
   Icon = RechercheIcon(Chaine) 'recherche de l icon
     Set MonItem = ListView1.ListItems.Add(, LienProgramme, UCase(Chaine), , Icon) 'ajout dans la list
        MonItem.SubItems(1) = Horaire
        MonItem.SubItems(2) = Programme
        MonItem.SubItems(3) = Description
        ListView1.Refresh
End Function
Public Function Etape4(retour As String)
'On Error Resume Next
Dim tempetape4 As Integer
Dim Position(1 To 2) As Long
  Position(2) = 1
For tempetape4 = 1 To 3
  If InStr(Position(2), retour, "<strong>") Then
     Position(1) = InStr(Position(2), retour, "<strong>") + 8
     Position(2) = InStr(Position(1), retour, "</strong>")
     Select Case tempetape4
       Case 1: suiteetape4 retour, Position(1), Position(2), True, "<br"
       Case 2: suiteetape4 retour, Position(1), Position(2), True, "<"
       Case 3: suiteetape4 retour, Position(1), Position(2), False, "<"
     End Select
  End If
Next
  Text1.SelStart = 1
'pas simplifier sinon erreur
  retour = Split(retour, "<table")(1)
  retour = RemplaceCharacter(retour, False)
'
  For tempetape4 = 1 To 9
    If InStr(1, retour, LCase(ListView2.ListItems(tempetape4))) Then
       ListView2.ListItems(tempetape4).SubItems(1) = suite2etape4(tempetape4, retour)
         Position(1) = InStr(1, retour, LCase(ListView2.ListItems(tempetape4)))
         retour = Mid(retour, Position(1))
    End If
  Next
End Function
Public Sub suiteetape4(texte As String, debut As Long, fin As Long, Guillemets As Boolean, textefin As String)
     Text1.SelText = RemplaceCharacter(Mid(texte, debut, fin - debut), Guillemets) & RemplaceCharacter(Mid(texte, fin + 9, InStr(fin + 9, texte, textefin) - fin - 9), Guillemets) & vbCrLf & vbCrLf
End Sub
Public Function suite2etape4(ByVal nombre As Integer, retour As String)
  Select Case nombre
    Case 1: suite2etape4 = Split(Split(retour, "<td class=" & Chr(34) & "clair" & Chr(34) & ">")(1), "<")(0)
    Case 2: suite2etape4 = Split(Split(retour, "<td>")(1), "<")(0)
    Case 3, 4, 5, 7, 8: suite2etape4 = Split(Mid(Split(retour, "<span class")(1), 8), "<")(0)
    Case 6: suite2etape4 = Split(Split(retour, "<td>")(1), "</td>")(0)
    Case 9: suite2etape4 = Split(Mid(Split(retour, "<td class")(1), 10), "<")(0)
  End Select
End Function
Private Sub Winsock_Connect()
'Methode GET
   Envoie = "GET " + Page + " HTTP/1.0" + vbCrLf + "Accept: *.*, */*" + vbCrLf + "User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)" & vbCrLf + "Referer: " & URL & vbCrLf + "Host: " & URL & vbCrLf + "Connection: Keep -Alive" & vbCrLf + vbCrLf
     Winsock.SendData Envoie
End Sub
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
  Winsock.GetData RetourHTML, vbString 'Recuperation des donné
   TotalHTML = TotalHTML & RetourHTML 'tout n 'arrive pas en meme temps donc on memorise
  If InStr(1, LCase(RetourHTML), "</html>") Then 'une fois la fin de page arriver on peut commencer a découper tout sa !
     If valeuretape = 1 Then
       MaTable = Split(TotalHTML, "<h2") 'on coupe les donné recu pour chaque chaines tv
       Etape1
     Else
       TotalHTML = Split(TotalHTML, "<p style=")(1) & Split(TotalHTML, "<p style=")(2) & Split(TotalHTML, "<p style=")(3)
       TotalHTML = Split(TotalHTML, "<script")(0)
       Etape4 TotalHTML
     End If
     Winsock.Close
  End If
End Sub
voilà,
j'espère que ça pourra tu servir

Commentaire de Trainkill666 le 18/11/2005 22:43:47

désolé pour le double message,
y'a eu un bug

Commentaire de croftman le 09/12/2005 22:00:41

Tres bonne source, bien commentée, et qui sert bien! ^^

Commentaire de roka le 19/12/2005 19:48:08

thank

Commentaire de danone le 31/12/2005 01:43:30

Vraiment super et tres bien fait 10/10

Commentaire de aziza_1981 le 25/06/2007 22:52:45

salut
je suis une fille debutant tu peut mon aideret donner les etaper pour telecharger les programme de cette site aussi jai besoin d'un programme de facturation  mon email aziza_1981@hotmail.com
merci a tout le monde

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Sortie tv - Bascule ecran/Tv [ par boutnell ] Bonjour,Je poss&#232;de une carte vid&#233;o avec une sortie t&#233;l&#233;.Je souhaiterais cr&#233;er un prog qui puisse, quand bon me semble (lol), Cherche testeurs pour mon programme (Programme tv cable et autres chaines) [ par zame ] Je cherche des testeurs pour mon programme de "programme tv".Vos avis ,conseils me seront utiles,cela fait 2 mois que je le programme. Voici le liens programme TV [ par nansenm ] Bonjour, Je suis compl&#232;tement n&#233;ophyte en d&#233;veloppement. Si j'ai bien compris il est possible de mettre sous fichier excel la liste des Base de données ou API pour programme TV [ par azerty25 ] Hello !J'aimerai faire un logiciel de programme TV un peu spécial par rapport à ceux que l'on trouve ici. Mais il me faudrait un site, une API, une BD Problemes (base de données) Programme tv [ par zame ] Voilà,j'ai cherché sur le site,mais j'ai rien trouvé ,enfin rien que je uisse comprendre.Je dois crée une bdd ,j'arrive à crée les tables,mais pour le vba excel [ par damd ] salutje travaille sous vba excellorque je lance mon programme, j'ouvre plusieurs fichier en faisant des traitement dessus.le probleme est que lorsque Optimisation [ par Kabutosama ] Bonjour,J'aimerais utiliser le programme suivant sous VB pour Excel:Prennant en parametres des constantes a,b,c,d,e,f figurant dans les cellules d'une création d'une base de données "Programme tv" Question reformulée [ par zame ] Voilà,j'ai cherché sur le site,mais j'ai rien trouvé ,enfin rien que je uisse comprendre.Je dois crée une bdd ,j'arrive à crée les tables,mais pour le Attendre la réponse d'une FORM ? [ par louisvbfrance ] Bonjour,Je me demandais comment faire pour qu'on programme attende la réponse d'une forme pour continuer son déroulement.Typiquement : j'aurais beauco Appel autre appli [ par Daniel du Plessis Robinson ] Bonjour,pour un débutant !!!!Je voudrais sous VBA ouvrir un fichier PDF.J'y arrive sans problème avec le Shell.Mais, je cherche le moyen d'ouvrir le f


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,437 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales