[..] Sélection menu déroulant

[luxus]

Bonjour,

Je fais un script pour automatiser la création d'utilisateur sur une borne wifi. L’authentification se passe bien j'arrive à sélectionner un menu dans menu déroulant puis j'arrive sur la fiche que je dois renseigner.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <IE.au3>

$oIE = _IECreate("Adresse de la borne")
_IELoadWait ($oIE)
;~ Validation certificat
_IELinkClickByText($oIE, "Poursuivre avec ce site Web (non recommandé).")
;~ Pause
_IELoadWait ($oIE)
;~ Nom du compte
$compte_ws = "login"
$pseudo = _IEGetObjByName($oIE, "ad_name")
_IEFormElementSetValue($pseudo, "" & $compte_ws & "")
;~ Password
$mdp_ws = "password"
$mdp = _IEGetObjByName($oIE, "ad_password")
_IEFormElementSetValue($mdp, "" & $mdp_ws & "")
;~ Validation
Sleep(500)
Send("{ENTER}")
;~ Pause
_IELoadWait ($oIE)
;~ Clique sur user authentification
_IELinkClickByText($oIE, "User Authentication")
;~ Pause
_IELoadWait ($oIE)
;~Selection du menu "Local User"
$oForm = _IEFormGetObjByName ($oIE, "menu")
$oSelect = _IEFormElementGetObjByName ($oForm, "_create_menu")
_IEFormElementOptionSelect ($oSelect, "Local User", 1, "byText")
;~ Pause
_IELoadWait ($oIE)
;~Champ "name"
$name = "nom_famille"
$pseudo2 = _IEGetObjByName($oIE, "name")
_IEFormElementSetValue($pseudo2, "" & $name & "")
;~Selection du menu "WORKSPOT"
$oSelect = _IEFormElementGetObjByName ($oForm, "role_id")
_IEFormElementOptionSelect ($oSelect, "Workspot", 1, "byText")
_IEFormSubmit($oForm)
;~ Nb de session active
$nb_session = "1"
$pseudo3 = _IEGetObjByName($oIE, "local_user_license")
_IEFormElementSetValue($pseudo3, "" & $nb_session & "")
;~ Password a atribuer 1er
$pwd2 = "password"
$pseudo4 = _IEGetObjByName($oIE, "password")
_IEFormElementSetValue($pseudo4, "" & $pwd2 & "")
;~ Password a atribuer 2ieme
$pseudo5 = _IEGetObjByName($oIE, "password1")
_IEFormElementSetValue($pseudo5, "" & $pwd2 & "")

Mon souci se situe au niveau de ces lignes :

► Afficher le texte

Code : Tout sélectionner

$oSelect1 = _IEFormElementGetObjByName ($oForm, "role_id")
_IEFormElementOptionSelect ($oSelect1, "Workspot", 1, "byText")
_IEFormSubmit($oForm)

Erreur :

► Afficher le texte

Code : Tout sélectionner

--> IE.au3 V2.4-0 Error from function _IEFormElementGetObjByName, $_IEStatus_InvalidObjectType
--> IE.au3 V2.4-0 Error from function _IEFormElementOptionSelect, $_IEStatus_InvalidDataType
--> IE.au3 V2.4-0 Error from function _IEFormSubmit, $_IEStatus_InvalidObjectType

Le code source de la page :

► Afficher le texte

Code : Tout sélectionner

<tr><td><label for="role_id">Role</label></td></tr>
 
<tr><td><select name="role_id" id="role_id" onchange="check_role(this)">
<option value="2">Guest</option>
<option value="7">IP Phones</option>
<option value="4">Monitoring Mode</option>
<option value="3">Quarantined</option>
<option value="8">SKype</option>
<option value="1">Un-registered</option>
<option value="5">Workspot</option>
<option value="6">YRWLAN</option>
<option value="N">Create...</option>
</select></td></tr></table>
<table summary="" cellpadding="0" cellspacing="0" border="0">
<tr><td colspan="1"><img src="/i/spacer.gif" width="1" height="2" alt="" /></td></tr>
 

Je fais la même commande un plus haut et elle fonctionne bien, je comprend pas bien là.

Si quelqu'un a une idées...

[luxus]

Personne n'a une petite idée ou un début de piste?

[DimVar]

Je pense que pour t'aider, il faudrait un acces à l'interface (risqué) pour tester...

[luxus]

Effectivement, ça va pas être possible^^

Au moins voir si l'a syntaxe est correcte.
L'erreur que j'obtiens, ça veux bien dire qu'il ne trouve pas l'objet "role_id" ?

[Jerome]

Coucou,


Nop, cela veut dire que ton $oForm est mal déclaré, pas du bon type.


Ici le code source sur IE.au3 :

Code : Tout sélectionner

Func _IEFormElementGetObjByName(ByRef $o_object, $s_Name, $i_index = 0)
    If Not IsObj($o_object) Then
        __IEErrorNotify("Error", "_IEFormElementGetObjByName", "$_IEStatus_InvalidDataType")
        Return SetError($_IEStatus_InvalidDataType, 1, 0)
    EndIf
    ;
    If Not __IEIsObjType($o_object, "form") Then
        __IEErrorNotify("Error", "_IEFormElementGetObjByName", "$_IEStatus_InvalidObjectType")
        Return SetError($_IEStatus_InvalidObjectType, 1, 0)
    EndIf

Puis :

Code : Tout sélectionner

_IEFormElementOptionSelect(ByRef $o_object, $s_string, $f_select = 1, $s_mode = "byValue", $f_fireEvent = 1)
    If Not IsObj($o_object) Then
        __IEErrorNotify("Error", "_IEFormElementOptionSelect", "$_IEStatus_InvalidDataType")
        Return SetError($_IEStatus_InvalidDataType, 1, 0)
    EndIf

En gros, c'est pas un objet ^^


Jérôme

[mikell]

Si le _IELoadWait ($oIE) qui précède correspond à un changement de page, il faut redéclarer le $oForm

[luxus]

Une fois que le premier menu est sélectionné :

► Afficher le texte

Code : Tout sélectionner

$oForm = _IEFormGetObjByName ($oIE, "menu")
$oSelect = _IEFormElementGetObjByName ($oForm, "_create_menu")
_IEFormElementOptionSelect ($oSelect, "Local User", 1, "byText")

j'arrive sur une autre page ou je dois renseigner divers info pour la création du compte.
de cette nouvelle page si je fais un clic/droit afficher code source, j'arrive sur le même code qu'au moment de l’authentification.
Ce qui signifie que je ne retrouve qu'un seul $oForm.
Si je fais une recherche sur "form name" la seule occurrence est bien "menu"

@mikell : J'ai tenté à tout hasard en redéclarant mon $oForm mais ça ne change rien.

@Jerome : Je n'ai pas tout suivis :/ je ne comprends pas comment déclarer différemment mon $oform. Tu peux m'éclairer un plus s'il te plait?