Discussion :

[tifosi49]

slt a tous
je voudrai savoir s'il est possible de remplir un formulaire dans une page web a partir d'une application en vb6 :
merci.

[ titre édité par ridan ]

[DarkVader]

Oui.

Veuillez utiliser un titre qui soit en accord avec les conditions d'utilisation des forums SVP : règles du forum

[michelxld]

bonjour

j'espere que cet exemple pourra 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
22
23
24
25
26
27
Sub piloterPageWebV02()
'activer la reference Microsoft HTML Objects Library
'activer la refenrce Microsoft Internet Controls
Dim i As Integer
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
 
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
 
IE.Navigate "http://www.google.fr/"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attendre la fin du chargement
 
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("input")
 
'
'quand tu connais l'index des objets tu peux utiliser le code comme ci dessous
'pour remplir le champ
Helem.Item(1).innerText = "developpez.com"
'simule le clic sur le bouton "Recherche Google"
'Helem(2).Click
 
End Sub

bon week end
michel

[leo5593]

alors ..minais tu l'a resolut ton bp

[leo5593]

j'ai un probleme avec ce ci il me met type incompatible

Code :

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

 Set IE = CreateObject("InternetExplorer.Application")

merci

leo

[sozie9372]

As-tu ajouté le références nécessaires à ton projet ? (cf. Commentaires du code de michelxld)
+++
Ju

[leo5593]

c bon c marche mais comment arriver a connaitre les index des chanps pour pouvoire entre qqch dedant

[SilkyRoad]

bonsoir

ci joint un exemple qui boucle sur tous les objets type "input" d'une page Web

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
22
'activer la reference Microsoft HTML Objects Library
'activer la refenrce Microsoft Internet Controls
Dim i As Integer
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
 
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
 
IE.Navigate "http://www.google.fr/"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attendre la fin du chargement
 
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("input")
 
'(boucle pour lister les objets type "input" de la page)
For i = 0 To Helem.Length - 1
MsgBox Helem(i).getAttribute("name") & " / " & Helem(i).getAttribute("value")
Next i

cordialement

[leo5593]

non ca ne marche toujour pas comment faire apres avoir mit la boucle pour entre qqgh dans le champ

[AlainTech]

La boucle te sert juste à connaitre le nom de chaque champ.

Pour introduire qqch dans un champ, voir le code de michelxld.

'pour remplir le champ
Helem.Item(1).innerText = "developpez.com"

Dans ton cas, tu remplaces le 1 par le nom du champ à remplir (entre guillemets).

[leo5593]

merci je vais essayer