Discussion :

[alberto314]

Bonjour à tous,

J'ai pas mal cherché et essayé mais rien n'y fait, je n'y arrive pas...

Je suis en train de développer un petit logiciel en VB.NET et je bloque. Je cherche à l'heure actuelle à:
- Parcourir une page web défini
- isoler un bloc de contenu
- Cliquer un à un sur les liens de ce bloc puis fermer (pour procéder à des tests plus tard)

Tout se passe bien jusqu'au clic...

Le problème est qu'à chaque fois que le logiciel trouve un lien, il clique mais ouvre une page Internet Explorer (IE). Je me retrouve avec pleins de pages IE que je dois fermer manuellement à la fin.

Il me faudrait rendre invisible ce processus.

Voici le bout de code qui clique:

Code :

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

1
2
3
4
5
6
  Dim wb as new webBrowser()
[.....]
        For Each Lien As HtmlElement In wb.Document.GetElementsByTagName("A")
            wb.Visible = False
            Lien.InvokeMember("click")
        Next

Merci pour votre précieuse aide.

Bonne journée.

[clementmarcotte]

Bonjour,

Bonjour à tous,

Code :

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

1
2
3
4
5
6
  Dim wb as new webBrowser()
[.....]
        For Each Lien As HtmlElement In wb.Document.GetElementsByTagName("A")
            wb.Visible = False
            Lien.InvokeMember("click")
        Next

Merci pour votre précieuse aide.

Bonne journée.

Ton "WebBrowser", Est-ce le contrôle WebBrowser, ou InternetExplorer que tu pilotes à partir de VB.net ?

Parce que le contrôle WebBrowser semble permettre de récupérer le document (page Web) affiché. Et je ne serais pas surpris que, ensuite, tu puisses traiter ton document hors-connexion.

[alberto314]

Bonjour Clementmarcotte et merci pour ton aide.

Je ne sais pas trop répondre à ta question.

A priori il ne s'agit pas du contrôle d'internet explorer car celui-ci n'est mentionné nul part. Je fais peut-être erreur ?

Bonne journée.

[ebastien]

Bonjour,

- Cliquer un à un sur les liens de ce bloc puis fermer (pour procéder à des tests plus tard)

Pour répondre à cette question, il faudrait expliciter l'objectif final de ces "click" sur les liens. Théoriquement, lorsqu'on clique sur un lien, c'est pour ouvrir une page web. Maintenant, s'il s'agit de faire autre chose, l'approche n'est peut-être pas la bonne et l'utilisation d'un WebClient serait peut-être plus adapté : http://msdn.microsoft.com/fr-fr/libr...v=vs.110).aspx

[alberto314]

Bonjour Ebastien et merci pour ton aide.

J'ai besoin pour la demande du projet que le clic puisse être comptabilisé en temps que "clic normal" avant de fermer la page (en virtuel puisque celle-ci devrait s'ouvrir en virtuel) pour valider ou non un booleen.

Ce que je ne comprends pas (je rappel que je suis débutant...) c'est que j'utilise quasiment la même syntaxe qui fonctionne à un autre endroit du projet. Il y a cependant une légére différence qui à surement toute son importance qui est (enfin, en la relisant à part le Tagname il n'y a quand même pas beaucoup de différences ):

Code :

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

1
2
3
4
5
6
 
   Dim wb as new webBrowser()
[.....]
        For Each Elem As HtmlElement In wb.Document.GetElementsByTagName("Input")
               Elem.InvokeMember("click")
        Next

Pourquoi celle-ci fait le travail en invisible alors que l'autre fait le travail en visible ? Mes compétences limitées ne me permettent pas de comprendre...

Notez que j'ai oublié de supprimer la ligne wb.Visible = False dans mon post initial. Ce n'était qu' un essai infructueux.

Merci pour votre précieuse aide.

Bonne journée.

[ebastien]

La différence est grande : D'un coté il s'agit de poster un formulaire (Input) de l'autre d'appeler une URL.
L'url peut être définie comme devant s'ouvrir dans une autre fenêtre (c'est dans le code de la page web). Dans ce cas, ouverture dans une fenêtre IE.
Maintenant, tu peux tenter de modifier l'attribut Target du lien afin d'éviter cela :

Code :

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

1
2
3
4
5
For Each Lien As HtmlElement In wb.Document.GetElementsByTagName("A")           
    'wb.Visible = False
    DirectCast(Lien.DomElement, mshtml.HTMLAnchorElement).target = ""
    Lien.InvokeMember("click")
 Next

Il faudra importer la référence Microsoft.mshtml au niveau du projet. Maintenant j'ai testé pour une URL mais je ne sais pas si ça fonctionne à tous les coups ... J'avoue ne jamais m'être aventuré dans ce genre de chose ... De plus, je n'ai pas testé si le lien correspond à une adresse email : ça peut être la surprise

[alberto314]

Effectivement je me doutais d'une différence mais elle m'avait échappée ...

J'ai bien importé le référence Microsoft.mshtml et modifié le code.

Au premier tour de la boucle j'entends un "tic" de clic mais au deuxième tour j'obtiens:
Accès refusé. (exception de HRESULT: 0x80070005 (E_ACCESSDENIED))

J'ai testé avec target="_self", "_parent", "_top".

[clementmarcotte]

Bonjour,

Bonjour Clementmarcotte et merci pour ton aide.

Je ne sais pas trop répondre à ta question.

A priori il ne s'agit pas du contrôle d'internet explorer car celui-ci n'est mentionné nul part. Je fais peut-être erreur ?

Bonne journée.

Si tu as pris le contrôle WebBrowser de la boîte à outils, c'est un contrôle dotnet qui permet d'ajouter des fonctions Internet à un programme VB, ou même, de programmer un navigateur Internet.


Sinon, il existe une version COM (activeX) du même contrôle.

Même que l'on peut aussi piloter IE directement par automation.

[alberto314]

Bonjour Clementmarcotte,

Voici mes déclarations (il s'agit d'un bout de code récupéré et adapté avec les connaissances du bord...)

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
  Public Sub PartLoaded(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
        bDocLoaded = True
        Threading.Thread.Sleep(200)
    End Sub
 
    Public Sub Click()
        Dim sTexte, sUrl As String
        Dim wb As New WebBrowser()
        AddHandler wb.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PartLoaded)
        Dim sb As StringBloc
'[......]
For Each Lien As HtmlElement In wb.Document.GetElementsByTagName("A")           
    DirectCast(Lien.DomElement, mshtml.HTMLAnchorElement).target = ""
    Lien.InvokeMember("click")
 Next

Je pense donc qu'il s'agit du contrôle WebBrowser de la boîte à outils (sans certitudes).

Merci,
Bonne journée.

[alberto314]

Bonjour,

Cela fait maintenant plusieurs jours que je teste et que les clics semblent se faire mais je viens de faire un test en mettant un point d'arret et en regardant les stats google analytics il semble qu’après le clic la navigation n'existe pas.

Est-ce normal ?

Je suis resté sur ce code:

Code :

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

1
2
3
4
5
For Each Lien As HtmlElement In wb.Document.GetElementsByTagName("A")           
    'wb.Visible = False
    DirectCast(Lien.DomElement, mshtml.HTMLAnchorElement).target = ""
    Lien.InvokeMember("click")
 Next

Merci à vous !