Bonjour,
je voudrait par exemple avec WebBrowser (microsoft internet control) ou microsoft html library pouvoir valider un formulaire...
j'ai toruvé comment valider un formulaire de login avec champ password et user par contre je n'arrive pas à "valider" un bouton de type submit (formulaire non?) qui n'a pas de champ associé...
le code avec champs associé est le suivant :
Set MyForm = RemplirInputText(WebBrowser1.Document, "psd", User)
RemplirInputPass WebBrowser1.Document, "mdp", "PASS"
If Not MyForm Is Nothing Then
MyForm.submit
End If
Public Function RemplirInputText(ByRef doc As HTMLDocument, ByVal InputName As String, ByVal Value As String) As HTMLFormElement
'Parametre en entree :
' - doc = HTMLDocument en provenance du WebBrowser
' - InputName = Nom du champs de type input
' - Value = Valeur a mettre dans le champs
'Parametre en Sortie :
' - Fomrulaire contenant le champ pour le submit
On Error Resume Next
Dim d As HTMLObjectElement
Dim minput As HTMLInputTextElement
For Each d In doc.All
DoEvents
For Each minput In d.All
DoEvents
If minput.tagName = "INPUT" Then
If minput.Name = InputName And UCase(Trim(minput.Type)) = "TEXT" Then
minput.Value = Value
Set RemplirInputText = minput.Form
Exit Function
End If
End If
Next
Next
End Function
Public Function RemplirInputPass(ByRef doc As HTMLDocument, ByVal InputName As String, ByVal Value As String) As HTMLFormElement
'Parametre en entree :
' - doc = HTMLDocument en provenance du WebBrowser
' - InputName = Nom du champs de type input
' - Value = Valeur a mettre dans le champs
'Parametre en Sortie :
' - Fomrulaire contenant le champ pour le submit
On Error Resume Next
Dim d As HTMLObjectElement
Dim minput As HTMLInputTextElement
For Each d In doc.All
DoEvents
For Each minput In d.All
DoEvents
If minput.tagName = "INPUT" Then
If minput.Name = InputName And UCase(Trim(minput.Type)) = "PASSWORD" Then
minput.Value = Value
Set RemplirInputPass = minput.Form
Exit Function
End If
End If
Next
Next
End Function
merci