bonjour à vous
Voila je suis sur un projet avec un WebBrowser
j'utilise
1 WebBrowser
2 texte box
1 bouton 1er validation
2 eme bouton confirmation action
je dois remplir deux texte box puis je dois validé avec le bouton validé ça j'y arrive,
le problème c'est que jai un compte a rebours qui bien sur n'apparait pas dans le WebBrowser mais je contourne ce problème en utilise un timer,
apres la validation du 1 er bouton je dois attendre 1 minute et je dois confirmer mon action avec le 2eme bouton
mais ce ci est du java voici le code pour ce bouton
<a href="index.php?page=mon nom " *="" onclick="javascript:teads.show();return false;" id="button_compteur">Je confirme mon message </a>
j'ai voulus utilisé le même principe que le 1er bouton mais jai une erreur
WebBrowser1.Document.Forms(0).InvokeMember("submit")
en remplacent "submit" pas "button_compteur" ou y metre -1 au lieu de 0 pour form
mais j'ai une erreur
je vous donne mon code
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Timer1.Enabled = True
Timer1.Start()
Timer1.Interval = 100 ' = 1min
TextBox1.Enabled = False
TextBox2.Enabled = False
Button1.Enabled = False
'Attendre que la page soit complète
WebBrowser1.Document.GetElementById("mon nom").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.Forms(0).InvokeMember("submit")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
End If
Dim element As HtmlElementCollection = WebBrowser1.Document.All
For Each webpageelement As HtmlElement In element
'id button_compteur
If webpageelement.GetAttribute("button_compteur") = "onclick" Then
End If
webpageelement.InvokeMember("click")
Next
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = ProgressBar1.Maximum Then
ProgressBar1.Value = 0
Timer1.Stop()
Timer1.Enabled = False
Button1.Enabled = True
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Button1.Enabled = False
End Sub
End Class
Voila je suis sur un projet avec un WebBrowser
j'utilise
1 WebBrowser
2 texte box
1 bouton 1er validation
2 eme bouton confirmation action
je dois remplir deux texte box puis je dois validé avec le bouton validé ça j'y arrive,
le problème c'est que jai un compte a rebours qui bien sur n'apparait pas dans le WebBrowser mais je contourne ce problème en utilise un timer,
apres la validation du 1 er bouton je dois attendre 1 minute et je dois confirmer mon action avec le 2eme bouton
mais ce ci est du java voici le code pour ce bouton
<a href="index.php?page=mon nom " *="" onclick="javascript:teads.show();return false;" id="button_compteur">Je confirme mon message </a>
j'ai voulus utilisé le même principe que le 1er bouton mais jai une erreur
WebBrowser1.Document.Forms(0).InvokeMember("submit")
en remplacent "submit" pas "button_compteur" ou y metre -1 au lieu de 0 pour form
mais j'ai une erreur
je vous donne mon code
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Timer1.Enabled = True
Timer1.Start()
Timer1.Interval = 100 ' = 1min
TextBox1.Enabled = False
TextBox2.Enabled = False
Button1.Enabled = False
'Attendre que la page soit complète
WebBrowser1.Document.GetElementById("mon nom").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.Forms(0).InvokeMember("submit")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
End If
Dim element As HtmlElementCollection = WebBrowser1.Document.All
For Each webpageelement As HtmlElement In element
'id button_compteur
If webpageelement.GetAttribute("button_compteur") = "onclick" Then
End If
webpageelement.InvokeMember("click")
Next
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = ProgressBar1.Maximum Then
ProgressBar1.Value = 0
Timer1.Stop()
Timer1.Enabled = False
Button1.Enabled = True
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Button1.Enabled = False
End Sub
End Class