Discussion :

[avigeilpro]

Comme le dis le titre de mon post, je souhaite entrer un texte dans le champs d'une page web puis simuler la touche Entrée. Pour cela j'ai pensé à utiliser un control Webbrowser, j'arrive à afficher la page, mais je n'arrive ni à donner le focus à la boite texte ni à y entrer du texte. De plus je souhaiterais que mon programme puisse le faire sans que l'utilisateur ne le voit. Voici comment j'affiche la page Web sur le Webbrowser :

Code :

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

1
2
3
4
5
6
IE.navigate "https://www. ... .com"
 
 'Boucle d'attente fin chargement
 Do Until IE.readyState = READYSTATE_COMPLETE
  DoEvents
 Loop

Merci d'avance

[SfJ5Rpw8]

plutôt qu'un webbrowser (le contrôle que tu pose sur une form) tu peu utiliser le contôle internet explorer... et sa propiété visible

Code :

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

1
2
Dim ie As New InternetExplorer 'Utilise référence "Microsoft internet control"
ie.Visible = True 'Ou false si tu ne ve pas le voir

[avigeilpro]

Merci mais comment remplir un champ de la page Internet ?
Puis simuler la touche entrée ?

Merci d'avance.

[SilkyRoad]

bonjour

j'espere que ces infos pourront t'aider

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
20
21
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Dim i As Integer
'
'...connection...
'
 
Set maPageHtml = WebBrowser1.document
'ou
'Set maPageHtml = IE.document
 
Set Helem = maPageHtml.getElementsByTagName("input")
 
'boucle pour lister les objets type "input" de la page
'afin d'identifier ls champs qui t'interessent.
'Les objets Input peuvent etre des textbox ou des boutons
For i = 0 To Helem.Length - 1
MsgBox Helem(i).getAttribute("name") & " / " & Helem(i).getAttribute("value")
Next i

Code :

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

1
2
'pour remplir un champ
Helem(1).innerText = "test"

Code :

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

1
2
'simulation clic sur un bouton
Helem(2).Click

michel

[Delbeke]

Trés interessant, j'ai envie de noter cette info que je vois pour la premiere fois, mais je crois que c'est pas le momment, big brother nous surveille

En tous cas, merci SilkyRoad.

[sovo]

Super genial le code. je cherchais justement a faire un truc de ce genre. Mais ne connaissais meme pas par ou commencer. Tout comme Delbeque (bonjour) j'attend la version la plus poffine (s'il y en a).

Grand merci a SilkyRoad pour le code (comme d'hab).

[SilkyRoad]

merci pour vos messages

Je pensais ecrire un tutoriel à ce sujet, mais trop souvent les gens utilisent ce procédé pour accéder à des sites qui ne l'autorisent pas ...je l'ai donc mis en Stand-By pour le moment.


Vous trouverez de nombreux autres exemples sur DVP, notamment de Bbil et DarkVader

en utilisant les mots clés
READYSTATE_COMPLETE
IE.readyState
InternetExplorer


quelques exemples

boucler sur les images d'une page pour en recuperer les diemensions et le poids
http://www.developpez.net/forums/sho...38&postcount=2

repérer et cocher un checkbox et recuperer les données d'un tableau
http://www.developpez.net/forums/sho...48#post1247748

boucler sur les fentres IE ouvertes et les fermer en fonction de l'url
http://www.developpez.net/forums/sho...87&postcount=2

...etc...


bon week end
michel

[sovo]

Merci Michel pour les liens, j'attend avec grande impatience le tuto (si tu change d'avis), mais avant je m'en ferais un avec les reponses du forum.

tros cool.

[avigeilpro]

Merci beaucoup SilkyRoad, c'est exactement ce qu'il me fallait. J'attend aussi avec impatience le tuto. Par contre, à chaque fois il m'affiche un message :

Il y a-t'il moyen de l'empecher, ou de répondre à la question sans que l'utilisateur de le voit ? (Répondre Oui bien sûr)
(Ici j'ai essayé sur google par exemple)

merci d'avance

[avigeilpro]

Juste un petit Up car je n'ai pas trouvé de solution à mon dernier problème
J'ai essayé en faisant Afficher le certificat puis en l'installant, mais il recommence peu de temps après.
Merci d'avance