IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Ouvrir et piloter une page web en vb.net


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de BRUNO71
    Homme Profil pro
    Retraité
    Inscrit en
    Janvier 2007
    Messages
    507
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 507
    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

  2. #2
    Membre éprouvé
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2018
    Messages
    323
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2018
    Messages : 323
    Par défaut
    Bonjour,

    Pour presser les boutons Google avec webbrowser, il faudra ajouter dans InvokeMember le nom Click.
    exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Piloter une page Web
    Par rousseaumathis dans le forum Delphi
    Réponses: 2
    Dernier message: 29/08/2018, 14h02
  2. Comment capturer le contenu d'une page web avec asp.net et c#
    Par mehdi_scofield dans le forum ASP.NET
    Réponses: 8
    Dernier message: 29/10/2008, 16h34
  3. Piloter une page Web depuis Excel en VBA
    Par ilcocodrillo dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 25/08/2008, 16h57
  4. [VB6] Piloter une page web depuis VB
    Par GnarlyYoyo dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 14/04/2007, 00h00
  5. Piloter une page web
    Par Danae dans le forum Windows
    Réponses: 8
    Dernier message: 14/09/2006, 22h15

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo