Try en cascade

**mennix** · 10/04/2015, 13h14

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** · 10/04/2015, 13h31

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** · 10/04/2015, 13h58

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** · 10/04/2015, 15h40

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** · 10/04/2015, 15h57

Envoyé par 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.

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** · 10/04/2015, 16h00

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** · 10/04/2015, 16h11

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

**mactwist69** · 10/04/2015, 16h15

Et tu n'as mis que 2 virgules dans ton truc...
et le split c'est pas très beau juste pour gérer... une liste finalement

Créer directement une liste de string

Code :

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

1
2
3
4
Dim ListButtons as New list (Of String) From {"ok","toto"}
For Each Cmd As String In ListButtons 
         If Not m.all.Item(Cmd) Is Nothing Then m.all.Item(Cmd).Click() : Exit For
Next

**Pol63** · 10/04/2015, 21h16

.contains
et ne faire qu'une fois la détection de quelle page c'est pour enchainer le cas trouvé directement

**mennix** · 13/04/2015, 08h50

Bonjour à tous,

mactwist69

Merci Mactwist69, pour la commande New List, étant sur un VB2008 (version portable au délà, ca ne veut pas), j'ai ajouté New string.

Bon alors voila, le code fonctionne, un truc bizarre, si je ne rajoute dans le directCast .tostring de la variable CMD, ca ne fonctionne pas, et fait planter IE.
Pourtant dans le For Each, CMD a bien été déclaré au format STRING.

Code :

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

1
2
3
4
5
6
 
Dim ListButtons As New List(Of String)(New String() {"ok", "ui_Login_LoginButton", "html:body:login:loginForm:loginButtonBlock:validButton"})
                For Each Cmd As String In ListButtons
                    Dim hElm As Object = DirectCast(m.all.item(Cmd.ToString), Object)
                    If Not hElm Is Nothing Then hElm.Click() : Exit For                    
                Next

Bizarre!.

Pol63 :
Ton idée m'interresse, qu'entends tu par Contains ? je devrais parcourir quoi ? le InnerText et trouver par mot clé , ce qui m'orienterait sur la bonne commande a clicker sur la page Web ?

**Pol63** · 13/04/2015, 23h33

en général tout ce qui a .item a .contains

donc ca serait if m.all.contains("machin") then m.all.item("machin") = ...

**mennix** · 15/04/2015, 16h04

Je vais essayer.
Mais pas sur que cela fonctionne, vu que Item est un Objet de type, HtmlElement, qui lui même est composé d'autres objets.
Dans tout les cas, avec cette méthode, je dois toujours balayer ma liste de mot clé. Je suis pas sur d'être gagnant dans la rapidité d'execution.
A voir.

**Pol63** · 15/04/2015, 20h00

la rapidité n'est pas ce dont on te parle
la rapidité ne sera pas affecté visiblement
sinon il doit y avoir un getelementby et tester ensuite si nothing

Try en cascade

VB.NET

Discussions similaires

Partager

Partager