Ouvrir et piloter une page web en vb.net

Bonjour,

Pour terminer mon projet j’ai encore quelques questions, bien que je n’ai toujours pas réussi ma dernière question et d’ailleurs j’en profite pour dire merci à Phil Rob (j’en suis toujours à la même réflexion car je dois conserver Outlook, tant pis pour le message d’alerte « accepter / refuser ») je n’ai pas trouvé la solution…..

Voilà ma question :

En son temps j’avais réussi avec l’aide de collaborateur de développez.com, un code pour ouvrir depuis Access, une page web et insérer des éléments dans celle-ci.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim IE As InternetExplorer Dim maPageHtml As HTMLDocument Dim Helem As HTMLElementCollection Set IE = CreateObject("internetExplorer.Application") IE.Visible = True IE.navigate ("http://pageweb.fr/") Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop IE.Document.all("j_username").Value = "toto" IE.Document.all("j_password").Value = "pass" 'IE.Document.all("login").Click SendKeys "{Enter}"

---

Maintenant je souhaiterais la même chose, mais sans choisir de navigateur particulier et sans utiliser WebBrowser.
Je m’entraîne sur la page de google, après ouverture de celle-ci on click automatiquement sur le bouton (j’ai de la chance)….

Code:

---

1 2 3 4 5

Process.Start("https://www.google.fr/?gws_rd=ssl")   ‘Document.GetElementById("btnI").InvokeMember("submit")

---

Mais là ! bug total…

J’ai pensé à ça :

Code:

---

1 2	Process.Start(https://www.google.fr/?gws_rd=ssl, Document.GetElementById("btnI").InvokeMember("submit"))

---

Mais non…
Avez-vous une petite idée ou la solution…Merci.

Bonjour,

Pour presser les boutons Google avec webbrowser, il faudra ajouter dans InvokeMember le nom Click.
exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load WebBrowser1.Navigate("http://www.google.fr") End Sub   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click WebBrowser1.Document.GetElementById("btnK").InvokeMember("click") 'Button Recherche Google End Sub   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click WebBrowser1.Document.GetElementById("btnI").InvokeMember("click") 'Button j'ai de la chance End Sub

---

Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.