CONSULTATION DES PROGRAMMES DE LA TÉLÉ

Commentaire de econs le 02/01/2006 23:01:32 administrateur CS

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 ?

Commentaire de PCPT le 03/01/2006 03:37:55 administrateur CS

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]