Consultation des programmes de la télé

Soyez le premier à donner votre avis sur cette source.

Vue 8 619 fois - Téléchargée 819 fois

Description

connexion sur le site de Télérama pour connaitre le rogramme de la télé

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
16
Date d'inscription
dimanche 11 janvier 2004
Statut
Membre
Dernière intervention
1 septembre 2006

Messages postés
2368
Date d'inscription
mardi 17 avril 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
22
C'est un peu léger ...
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
48
après ta mise à jour, je ne vois toujours pas pourquoi tu écris un fichier en dur...

une fois que tu as l'adresse, tu peux la lancer avec le shell. et si tu veux garder l'API, pas besoin de module, tu peux la déclarer en privé dans la form :



Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
'
'
Private Sub Form_Load()
Dim iHeure As Integer, sParam As String, sUrl As String
iHeure = Format(Time, "HH")
sParam = "date=" & Format(Date, "DD%2FMM%2FYYYY") & "&heure="
Select Case iHeure
Case 2, 3, 4: sParam = sParam & "0205"
Case 5, 6, 7: sParam = sParam & "0508"
Case 8, 9, 10: sParam = sParam & "0811"
Case 11, 12, 13: sParam = sParam & "1114"
Case 14, 15, 16: sParam = sParam & "1417"
Case 17, 18, 19: sParam = sParam & "1720"
Case 20, 21, 22: sParam = sParam & "2023"
Case 23, 0, 1: sParam = sParam & "2302"
End Select

sUrl = "http://television.telerama.fr/tv_20.asp?" & sParam & "&type=Cha%EEnes+TNT&genre=Tous"
ShellExecute Me.hwnd, "open", sUrl, ByVal 0&, 0&, 1&
Unload Me
End Sub


si tu as voulu faire cette source, c'est qu'elle t'est utile....
partant de là, si tu la partages, peut-être pourrais-tu la modifier... genre... ouverture à partir du systray (exemple encore en page d'accueil ~Jack~)

@+
PCPT [AFCK]
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
48
ne fonctionne même pas chez moi (la page se crée mais n'est pas executée....)

pas de type (déclaration), je suis de l'avis d'Econs sur la consistance....
et l'algo pour la date.. beaucoup de tests inutiles, non?!

idée de modif? ->

Private Sub Form_Load()
Dim iHeure As Integer, sParam As String
iHeure = Format(Time, "HH")
sParam = "date=" & Format(Date, "DD%2FMM%2FYYYY") & "&heure="
Select Case iHeure
Case 20, 21, 22: sParam = sParam & "2023"
Case 23, 0, 1: sParam = sParam & "2302"
Case 2, 3, 4: sParam = sParam & "0205"
Case 5, 6, 7: sParam = sParam & "0508"
Case 8, 9, 10: sParam = sParam & "0811"
Case 11, 12, 13: sParam = sParam & "1114"
Case 14, 15, 16: sParam = sParam & "1417"
Case 17, 18, 19: sParam = sParam & "1720"
End Select
MsgBox "http://television.telerama.fr/tv_20.asp?" & sParam & "&type=Cha%EEnes+TNT&genre=Tous"
Unload Me
End Sub
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Tu as une conception très personnelle de l'indentation .. enfin bon.

Création d'une page temporaire possédant un lien vers la page TV de télérama, puis ouverture de cette page temporaire dans un browser.
Bah, .. y'a pas grand chose à se mettre sous la dent.
Pourquoi ne pas ouvrir la page directement dans le browser, çà irait encore plus vite ?

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.