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☼
|