Dudule100
Messages postés563Date d'inscriptionjeudi 25 octobre 2012StatutMembreDernière intervention22 janvier 2017
-
Modifié par Dudule100 le 6/12/2015 à 11:11
Dudule100
Messages postés563Date d'inscriptionjeudi 25 octobre 2012StatutMembreDernière intervention22 janvier 2017
-
9 déc. 2015 à 18:22
Bonjour,
Voila, je voudrais que quand j'appuis sur un bouton, le web browser vérifie si un texte est afficher a l'écran. Le texte en question est celui ci :
"La combinaison nom d'utilisateur/mot de passe ne correspond à aucun compte."
Pour vous donnez une idée de mon projet je vous met mon code :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MsgBox("Veillez complétez tous les champs ou vérifiez que vous avez rentrer de vrais informations.")
Else
WebBrowser1.Document.GetElementById("bgcdw_login_form_username").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("bgcdw_login_form_password").SetAttribute("value", TextBox2.Text)
Dim inputs As HtmlElementCollection
inputs = WebBrowser1.Document.GetElementsByTagName("input")
For Each input As HtmlElement In inputs
If input.GetAttribute("className") = "bgcdw_button bgcdw_login_form_login" Then
input.InvokeMember("Click")
End If
Next
Form3.Show()
End If
End Sub
Je voudrais que avant le Form3.Show(), la page est fini de charger et que par la suite il vérifie le texte. Si le texte en question est sur la page, la Form3 apparaît si non on reste sur la Form1 et une MessageBox nous dit que les identifiant sont mauvais.
Ou alors faire en sorte que si l'url dépasse 100 caractères, sa affiche une texte box et non la form3. Car l'url d'erreur est beaucoup plus longue que l'url apres la connexion.
vb95
Messages postés3472Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention13 avril 2024169 6 déc. 2015 à 20:23
salut Dudule
L'url c'est bien l'adresse du site Internet ? Elle ne contient pas le message d'erreur "La combinaison nom d'utilisateur/mot de passe ne correspond à aucun compte."
Dudule100
Messages postés563Date d'inscriptionjeudi 25 octobre 2012StatutMembreDernière intervention22 janvier 20171 6 déc. 2015 à 20:28
Ouai. Je dit juste que vérifier le nombre de caractère de l URL serais plus simple dans mon cas que de rechercher le texte dans la page.
vb95
Messages postés3472Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention13 avril 2024169 6 déc. 2015 à 20:56
Length te donne le nombre de caractères d'une chaine de caractères
Dim chaine as String = "Bonjour" dim longeur as integer = Chaine.Length
longueur contient 7 dans ce cas ! Mets donc l'url dans une chaine de caractère
Dudule100
Messages postés563Date d'inscriptionjeudi 25 octobre 2012StatutMembreDernière intervention22 janvier 20171
>
vb95
Messages postés3472Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention13 avril 2024 Modifié par Dudule100 le 6/12/2015 à 22:30
donc apres il me reste plus qu'a faire un If ressemblant a sa ? :
If longeur > 100 then
'Mon code
Else if
'Ma forme 3
End If
vb95
Messages postés3472Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention13 avril 2024169
>
Dudule100
Messages postés563Date d'inscriptionjeudi 25 octobre 2012StatutMembreDernière intervention22 janvier 2017 6 déc. 2015 à 22:49
exact !
Dudule100
Messages postés563Date d'inscriptionjeudi 25 octobre 2012StatutMembreDernière intervention22 janvier 20171 7 déc. 2015 à 19:57
Bon voila j'ai un problème :
Dim chaine As String = WebBrowser1.Url.ToString 'l’erreur est ici
Dim longeur As Integer = chaine.Length
'suite du code
If longeur > 150 Then
MsgBox("Veillez complétez tous les champs ou vérifiez que vous avez rentrer les bonnes informations.")
End If
vb95
Messages postés3472Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention13 avril 2024169
>
Dudule100
Messages postés563Date d'inscriptionjeudi 25 octobre 2012StatutMembreDernière intervention22 janvier 2017 7 déc. 2015 à 20:58
c'est quoi l'erreur ? que vaut WebBrowser1.Url.ToString ?
Zermelo
Messages postés378Date d'inscriptionsamedi 22 septembre 2012StatutMembreDernière intervention13 août 201714 8 déc. 2015 à 12:59
Bonjour Ucfoutu.
Mon cher, tu va rire.
En vb6, il y a des méthodes que l'on appelle méthodes, et des fonctions que l'on appelle fonctions.
En vb.net, il y a des méthodes que l'on appelle méthodes, et des fonctions que l'on appelle méthodes. ToString est dans cette catégorie.
Bien amicalement.
Zermelo
Messages postés378Date d'inscriptionsamedi 22 septembre 2012StatutMembreDernière intervention13 août 201714 8 déc. 2015 à 13:02
6 déc. 2015 à 19:55