Rapport de message :*
 

Re: Récupérer une page web

Titre du sujet : Re: Récupérer une page web
par S☼leil le 22/09/2009 16:55:42

 


Merci pour votre aide précieuse (Ouarf! c'est un clin d')

Voila une chose qui fonctionne pour ceux que ça peut intérresser, basée sur une page pour les turfistes

Option Explicit
Dim x, y
    Dim IE As Object
    Dim dct
    Dim Num
    Dim k

    Declare Function GetSystemMetrics32 Lib "user32" _
     Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long


Sub azer()


    Set IE = CreateObject("internetexplorer.application")
            'Pour le jour
            IE.Navigate ("http://www.zeturf.com/fr/resultats")
            IE.Visible = True
            IE.Top = 0
            IE.Left = 0
            'Obtention en nombre de points de la largeur d'�an
            IE.Width = GetSystemMetrics32(0)
            IE.Height = GetSystemMetrics32(1)
           
 ' chargement
Do While IE.ReadyState <> 4
Application.Wait (Now + 0.1 / 3600 / 24)
Loop

            Set dct = IE.Document
            For Num = 0 To IE.Document.getElementsByTagName("select").Length - 1
            If dct.getElementsByTagName("select").Item(Num).Name = "recherche_jour" Then
                For k = 0 To dct.getElementsByTagName("select").Item(Num).Options.Length Step 1
                If dct.getElementsByTagName("select").Item(Num).Options(k).Text = Trim(Day(Now())) Then
                dct.getElementsByTagName("select").Item(Num).Options(k).Selected = dct.getElementsByTagName("select").Item(Num).Options(k).Value
                GoTo mois
                End If
                Next
            End If
            Next
            'Pour le mois
mois:     For Num = 0 To IE.Document.getElementsByTagName("select").Length - 1
          If dct.getElementsByTagName("select").Item(Num).Name = "recherche_mois" Then
               For k = 0 To dct.getElementsByTagName("select").Item(Num).Options.Length Step 1
               If dct.getElementsByTagName("select").Item(Num).Options(k).Text = Trim(Month(Now())) Then
               dct.getElementsByTagName("select").Item(Num).Options(k).Selected = dct.getElementsByTagName("select").Item(Num).Options(k).Value
               GoTo annee
               End If
               Next
          End If
          Next
            'Pour l'ann�/span>
annee:     For Num = 0 To IE.Document.getElementsByTagName("select").Length - 1
           If dct.getElementsByTagName("select").Item(Num).Name = "recherche_annee" Then
               For k = 0 To dct.getElementsByTagName("select").Item(Num).Options.Length Step 1
               If dct.getElementsByTagName("select").Item(Num).Options(k).Text = Trim(Year(Now())) Then
               dct.getElementsByTagName("select").Item(Num).Options(k).Selected = dct.getElementsByTagName("select").Item(Num).Options(k).Value
               GoTo valide
               End If
               Next
                End If
            Next
valide:     For Num = 0 To IE.Document.getElementsByTagName("input").Length - 1
                Debug.Print dct.getElementsByTagName("input").Item(Num).Name
                If dct.getElementsByTagName("input").Item(Num).Name = "tpl.credit.confirm" Then
                dct.getElementsByTagName("input").Item(Num).Click
                End If
            Next

End Sub
 

patoudemoi

♫Bonne fin de journée☼