[..]IEGetObjByClass ou IEGetObjByRef existe t'il ?

[Expendables]

Le probleme vient du code source de la page en faite, car il n'y a aucune fonction QUE je conaisse
qui permette de faire ceci donc si vous pouviez m'éclairer

Ce n'est pas un bot rassurez vous, juste pour que sa me connecte au site

<a href="?play=1" class="t5 bl">
Connexion</a>

et je ne trouve aucune fonction dans IE.au3 capable de satisfaire mes desirs

Merci a vous

[bloodwolff]

Humm j'avais fais un tout petit udf qui s'Apparentais à cela http://autoitscript.fr/forum/viewtopic.php?f=21&t=6366
Il te suffit d'y rajouter une petit fonction très ressemblante du genre

Code : Tout sélectionner

Func _IEGetObjByRef($object,$HRef,$index = -1)
    Vérif_objet($object)
    If @error Then Return SetError(@error)
    Dim $array[1] = 0
    $oElements = _IETagNameGetCollection($object, "a")
    For $oElement in $oElements
        If String($oElement.href) = $HRef Then
            $array[0]+=1
            ReDim $array[$array[0]+1]
            $array[$array[0]] = $oElement
        EndIf
    Next
    If $index = -1 Then
        Return $array
    ElseIf $index <= $array[0] And >= 1 And IsInt($index) Then
        Return $array[$index]
    Else
        Return SetError(1)
    EndIf
EndFunc

[Expendables]

Vous allez dire je suis nul mais quand je m'en sers il me retourne l’erreur:

Line 18 (...)

Vérif_objet($object)
V^ERROR

Error: Missing separator character after keywprd.

ma ligne

► Afficher le texte

Func _IEGetObjByClass($object, $Classname = "t5 bl", $index = 1)
Vérif_objet($object)
If @error Then Return SetError(@error)
Dim $array[1] = 0
$oElements = _IETagNameAllGetCollection($object)
For $oElement in $oElements
If String($oElement.classname) = $Classname Then
$array[0]+=1
ReDim $array[$array[0]+1]
$array[$array[0]] = $oElement
EndIf
Next
If $index = -1 Then
Return $array
ElseIf $index <= $array[0] And >= 1 And IsInt($index) Then
Return $array[$index]
Else
Return SetError(1)
EndIf
EndFunc