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 ]
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 ]
Oui.
Veuillez utiliser un titre qui soit en accord avec les conditions d'utilisation des forums SVP : règles du forum
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
j'ai un probleme avec ce ci il me met type incompatiblemerci
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set IE = CreateObject("InternetExplorer.Application")
leo
As-tu ajouté le références nécessaires à ton projet ? (cf. Commentaires du code de michelxld)
+++
Ju
c bon c marche mais comment arriver a connaitre les index des chanps pour pouvoire entre qqch dedant
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
non ca ne marche toujour pas comment faire apres avoir mit la boucle pour entre qqgh dans le champ
La boucle te sert juste à connaitre le nom de chaque champ.
Pour introduire qqch dans un champ, voir le code de michelxld.
Dans ton cas, tu remplaces le 1 par le nom du champ à remplir (entre guillemets).'pour remplir le champ
Helem.Item(1).innerText = "developpez.com"
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager