CONSULTATION DES PROGRAMMES DE LA TÉLÉ
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
-
2 janv. 2006 à 23:01
cs_roka Messages postés 16 Date d'inscription dimanche 11 janvier 2004 Statut Membre Dernière intervention 1 septembre 2006 - 4 janv. 2006 à 07:11
cs_roka Messages postés 16 Date d'inscription dimanche 11 janvier 2004 Statut Membre Dernière intervention 1 septembre 2006 - 4 janv. 2006 à 07:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/35382-consultation-des-programmes-de-la-tele
https://codes-sources.commentcamarche.net/source/35382-consultation-des-programmes-de-la-tele
4 janv. 2006 à 07:11
4 janv. 2006 à 01:03
3 janv. 2006 à 03:37
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]
2 janv. 2006 à 23:59
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
2 janv. 2006 à 23:01
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 ?