Discussion :

[mennix]

Bonjour,

Y aurait'il quelques chose de plus propre que ca ? (je n'ai rien trouvé sur le net)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
               Try                
               m.all.Item("Login").Value = Username.ToLower
               Catch ex As Exception
                    Try
                        m.all.Item("loginForm:login").Value = Username()
                     Catch ex1 As Exception
                        Try
                            m.all.Item("ui_Login_UserName").Value = Username()
 
                        Catch ex2 As Exception
                            Try
                                m.all.Item("plog).Value = Username()
                            Catch ex3 As Exception
 
                            End Try
                        End Try
                    End Try
                End Try

Merci.

[jopopmk]

Salut,

je sais pas quels objets/accesseurs tu utilises mais ne serait-il pas plus malin de vérifier que m.all.Item("id") te renvoie quelque chose,
plutôt que d'accéder à son attribut Value en attendant une éventuelle exception ?

[mactwist69]

Oh que oui il y a mieux, si je ne me trompe pas, tu teste l'existence de certains Items...
Alors testons les avant de les utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If  not m.all.Item("Login") Is Nothing Then 
       m.all.Item("Login").Value = Username.ToLower
 
Else If not m.all.Item("loginForm:login") Is Nothing Then 
       m.all.Item("loginForm:login").Value = Username()
 
Else If not m.all.Item("ui_Login_UserName") Is Nothing Then 
       m.all.Item("ui_Login_UserName").Value = Username()
 
Else If not m.all.Item("plog") Is Nothing Then 
       m.all.Item("plog").Value = Username()
 
Else 
      Throw new Exception ("Probleme")
 
End If

[mennix]

Aussi simple que ça. J'y ai même pas pensé.

Cela fonctionne très bien, merci mactwist69 .
Pour répondre à jopopmk , le parent, c'est Document de internet.application.

Je clos le sujet.

[jopopmk]

Aussi simple que ça. J'y ai même pas pensé.

Cela fonctionne très bien, merci mactwist69 .
Pour répondre à jopopmk , le parent, c'est Document de internet.application.

Je clos le sujet.

Pas besoin de me répondre ^^, mon message (qui a la même teneur que celui de mactwist sauf qu'il faut te démerder pour le coder toi-même) n'avait pas besoin de ces précisions. C'était plus une mise en perspective supplémentaire.

Bon dev

[mennix]

Je ré-ouvre le sujet.
en prenant exemple,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
If Not m.all.Item("ok") Is Nothing Then
                    m.all.Item("ok").Click()
                ElseIf Not m.all.Item("ui_Login_LoginButton") Is Nothing Then
                    m.all.Item("ui_Login_LoginButton").Click()
                ElseIf Not m.all.Item("html:body:login:loginForm:loginButtonBlock:validButton") Is Nothing Then
                    m.all.Item("html:body:login:loginForm:loginButtonBlock:validButton").Click()
                End If

le pere de m est le document d'une page web via internet.application.
En gros, je simule le click sur un bouton, ou je connais pas au depart, la page web ou l'utilisateur sera (3 pages max) donc 3 noms de bouton differents.


La redondance du texte, me gene alors j'ai ecris cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
     Dim valideClick = "ok,ui_Login_LoginButton,html:body:login:loginForm:loginButtonBlock:validButton"
 
                For Each Cmd In valideClick.Split(",")
                    If Not m.all.Item(Cmd) Is Nothing Then m.all.Item(Cmd).Click() : Exit For
                Next

et la, ca ne marche plus. j'ai essayé de nommé ValideClick par string ou objet, mais ca ne fonctionne pas, je pense que cela vient du type de ma variable cmd.
Là je coince.

[mactwist69]

J'ai jamais essayé un truc comme ça, mais de toute façon, il faut toujours typer fortement... Même dans les boucles.

Pour typer dans la boucle, il faut ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
                Dim valideClick = "ok,ui_Login_LoginButton,html:body:login:loginForm:loginButtonBlock:validButton"
 
                For Each Cmd As String In valideClick.Split(",")
                    If Not m.all.Item(Cmd) Is Nothing Then m.all.Item(Cmd).Click() : Exit For
                Next

Mais aucune idée de si ça marche