connexion sur une page web avec webbrowser avec login password

Question

Je vous demande de bienvouloir m'aider a faire une connexion sur gmail.com avec webbrowser   

objets :
user.text
pass.text

webbrowser
botton connect

Amicalement votre !

lolokun · Answer

Bonjour,

Bien et qu'as-tu commencé à faire?

L'expérience, c'est une connerie par jour, mais jamais la même..

cs_abzim · Answer

pour pouvoir lire mes email avec programme je dois me connecter sur gmail.com

aidez moi a le faire

lolokun · Answer

On t'aidera une fois que tu auras posté le codé que tu auras tenté de faire.
On n'est pas ici pour faire ton boulot ou ton exercice à ta place mais corriger ou améliorer un code non fonctionnel


L'expérience, c'est une connerie par jour, mais jamais la même..

cs_abzim · Answer

Private Const m_sURI           As String = "http://gmail.com"


Private Sub Form_Load()
    'WEB.Resizable = True
    WEB.Navigate (m_sURI)

 'WEB.Document.All("email").Value = USER.Text
 'WEB.Document.All("password").Value = PASS.Text

End Sub
     

Private Sub Command2_Click()
     autologin
End Sub


'---------------------------------------


Public Sub autologin()

    Dim HTML As HTMLDocument
    Dim HTMLI As HTMLInputElement
    Dim inputButton As HTMLInputElement
    Dim uName As String
    Dim uPass As String

    'On Error GoTo ErrorHandler:

    uName = "user"
    uPass = "password"

    Set HTML = WEB.Document

    For Each HTMLI In HTML.getElementsByTagName("input")
        If HTMLI.Name = "Login" Then
            HTMLI.Value = uName
        End If
        Select Case HTMLI.Type
        Case "password"
            HTMLI.Value = uPass
        Case "Connexion"
            ' Save the ok reference so we can use it later.
            Set inputButton = HTMLI
        End Select
    Next HTMLI

    If inputButton Is Nothing Then
        MsgBox "Ok button not found."
    Else
        inputButton.Click
    End If
Exit Sub

ErrorHandler:
    ' Handle error ...
End Sub

cs_abzim · Answer

j'ai trouvé comment faire 
passer les éléments suivant sur botton click

   WEB.Document.getElementById("Email").Value = "mail"
   WEB.Document.getElementById("Passwd").Value = "pass"
   WEB.Document.Forms(0).submit

en le tour est jouer
merci comme meme

Connexion sur une page web avec webbrowser avec login password

5 réponses

Votre réponse

Discussions similaires