bl4ck0utb
Messages postés29Date d'inscriptionmercredi 3 novembre 2010StatutMembreDernière intervention19 août 2011
-
27 juin 2011 à 04:43
tony2805
Messages postés96Date d'inscriptionmardi 15 janvier 2008StatutMembreDernière intervention19 septembre 2011
-
19 sept. 2011 à 12:38
Bonjour, je voudrai faire une application avec un webbrowser, qui se connecte automatiquement au site dès que j'appuis sur un bouton, j'ai réussi mais avec 2 boutons et moi je voudrai le faire en 1 buttons !
donc le code des mes 2 boutons:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate("http://scan4you.net/index1.php")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Document.GetElementById("l_ogin").SetAttribute("value", "MyUser")
WebBrowser1.Document.GetElementById("passw").SetAttribute("value", "MyPass")
WebBrowser1.Document.GetElementById("act").InvokeMember("Click")
End Sub
Donc dans un premier temps, il faut appuyé sur le boutton1 pour ouvrir la page et bouton2 pour se connecté.
Mais moi je veux le tout en un bouton,
j'ai essayé ceci:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate("http://scan4you.net/index1.php")
WebBrowser1.Document.GetElementById("l_ogin").SetAttribute("value", "MyUser")
WebBrowser1.Document.GetElementById("passw").SetAttribute("value", "MyPass")
WebBrowser1.Document.GetElementById("act").InvokeMember("Click")
End Sub
Mais la page n'a pas le temps de s'ouvrir, qu'il essaye de se connecté alors le programme plante!
Donc j'ai essayé ceci:
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
WebBrowser1.Navigate("http://scan4you.net/index1.php")
Timer1.Start()
Label1.Text -= 1
If Label1.Text = 0 Then
Timer1.Stop()
WebBrowser1.Document.GetElementById("l_ogin").SetAttribute("value", "MyUser")
WebBrowser1.Document.GetElementById("passw").SetAttribute("value", "MyPass")
WebBrowser1.Document.GetElementById("act").InvokeMember("Click")
End If
End Sub
Donc, ma page se lance, le compte a rebours se fait mais le reste non, donc après then, il n'y a plus rien qui s'éxecute ..