Try en cascade

Version imprimable

Try en cascade

Bonjour,

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

Code:

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.

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

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:

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

10/04/2015, 15h40
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.
10/04/2015, 15h57
jopopmk

Citation:

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 :)

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

Code:

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:

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.

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:

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

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:

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

10/04/2015, 21h16
Pol63

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

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:

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 ?

13/04/2015, 23h33
Pol63

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

donc ca serait if m.all.contains("machin") then m.all.item("machin") = ...
15/04/2015, 16h04
mennix

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.
15/04/2015, 20h00
Pol63

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