Bonjour,

J'ai trouvé ce code sur un site mais je n'arrive pas à l'adapter à ma solution.
Ce code sert à enregistrer les mots de passe lorsque l'utilisateur se connecte sur Gmail par exemple, pour ne pas qu'il les retape à chaque nouvelle connexion.

J'ai deux erreurs :

1) Erreur de syntaxe sur then qui se situe ici :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Then set the element's value to the password...
2) Erreur sur My.Settings.PasswordFields, message :
PasswordFields' n'est pas un membre de 'WindowsApplication1.My.MySettings'.
Détail des composants :
1 textbox nommé txtURL
1 button nommé btnLoadPassword
1 autre button nommé btnNavigate
1 webbrowser nommé wbMain

Détail du code :
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
Public Class Form1
 
    Private Sub btnNavigate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavigate.Click
        wbMain.Navigate(txtURL.Text)
    End Sub
 
    Private Sub btnLoadPassword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoadPassword.Click
        'Now for each HtmlElemtn in the webbrowser document (it could be a textbox, a button, or whatever) 
        For Each ele As HtmlElement In wbMain.Document.All
            'For each setting in the list of password field IDs 
            For Each item In My.Settings.PasswordFields
                'If the ID of the element matches the the ID stored in the setting 
                Dim Password As String = InputBox("Please enter your password here")
                If ele.GetAttribute("id").ToLower = item.ToLower Then
                    'Get the password from the user 
                    Then set the element's value to the password...                    
                    ele.SetAttribute("value", Password)
                End If
            Next
        Next
 
    End Sub
End Class
Merci pour votre aide,
@+