Pasge WEB via VB

Question

Bonjour,
Je découvre VB ... c'est impressionnant. 
J'en suis au stade ou j'arrive à me connecter à un site web via le code suivant :

Sub xxx()
Const READYSTATE_COMPLETE = 4
Dim IE
Dim elementHtml As Object
Set IE = CreateObject("internetExplorer.Application") 'ouvre internet explorer
IE.Visible = True
With IE
.Navigate "https://www.xxxxxx 'va sur la page du site
Do Until .readyState = READYSTATE_COMPLETE 'on attend jusqu'à ce que la page soit chargée
DoEvents
Loop
End With
Set elementHtml = IE.Document.getElementById("Ident") 
elementHtml.Value = "1234567890"

Set elementHtml = IE.Document.getElementById("MDP")
elementHtml.Value = "AZERTY"
Set ObjectIE = IE.Document.getElementById("Valider") 'on selectionne un bouton
ObjectIE.Click 'on clique sur ce bouton
End Sub

Cette première étape me dirige vers une nouvelle page ou je souhaite simuler un click sur une rubrique décrite comme suit :

<li id="Univers"> puis



Comment faire ??

Merci pour votre aide  


Jack

jordane45 · Answer

Bonjour,

Si vous essayez d'utilser la même méthode que pour le bouton "valider"..ça ne fonctionne pas ?
avec GetElementByID("Univers") puis ObjectIE.Click?

Au cas où, voici le lien vers le MSDN Microsoft avec toutes les méthodes liées à l'objet Ienternet Explorer
MSDN - IE


PS: lors de votre prochain message sur le forum, merci d'utiliser les balises de code ( 3 eme icone en partant de la droite dans la barre de menu ou en écrivant sans espaces dans les crochest : [ code = vb ]/// ici le code///  [  / code ] )
-> ce qui donne :

Set OIE = IE.Document.getElementById("Univers") 'on selectionne un bouton 
OIE.Click 'on clique sur ce bouton 



Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

poupinet48 · Answer

Bonjour,

Effectivement, avec GetElementByID("Univers") puis ObjectIE.Click ça ne fonctionne pas. Dommage.
Je vais aller voir le lien vers le MSDN Microsoft avec toutes les méthodes liées à l'objet Ienternet Explorer. Merci

Jack

jordane45 · Answer

Et juste un navigate avec le lien dans la balise " ") Cordialement, Jordane _____________________________________________________ Règles du forum à lire avant de poster une question : ICI

poupinet48 · Answer

Ca ne donne rien 

Jack

jordane45 · Answer

Et la même chose sans le target ?
.Navigate("/cyber/internet/SelectUniverse.do?taskInfoOID=aUniversMesComptes&token=af8dd6d93dd8794024c5b33ed64367be"

Sinon En fouillant un peu j'ai trouvé cette page :
Cours de Pilotage d'applications

avec le code d'exmple ci-dessous ( provenant des commentaires)

rivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate("http://www.facebook.com")
        Do
            Application.DoEvents()
        Loop Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete
        WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)
        WebBrowser1.Document.GetElementById("login_form").InvokeMember("submit")
    End Sub





Cette page la également semble interessante :
CLIQUER-SUR-LIEN-JAVASCRIPT


Ou encore, en essayant de passer par InvokeScript()
HtmlDocument.InvokeScript Method


Après.. si ça ne fonctionne toujours pas... je donne ma langue au chat 


Cordialement,
Jordane
_____________________________________________________
Règles du forum à lire avant de poster une question : ICI

poupinet48 · Answer

Bonjour,

Merci encore pour votre aide. Je suis "planté" par ... manque de culture ....
J'arrive à piloter la première page du site web car son source mentionne des "input name" tel que : 


alors que le source de la page suivante n'en a pas. Cette page ne comporte que des "rubriques" à clicker.
Je vais laisser ce dossier sous le coude ...

Par ailleurs, étant un novice sur les forums, c'est quoi les "balises" dans les messages ?

Cordialement.
Jack

Pasge WEB via VB

6 réponses

Votre réponse

Discussions similaires