Problème de If/end if (Winform vb.net)

Fermé
Lapprentisvbcodeur - Modifié par Lapprentisvbcodeur le 14/08/2011 à 19:32
Nico# Messages postés 323 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 28 août 2013 - 15 août 2011 à 10:30
Bonjour, tous d'abord merci de lire mon problème.

Voilà j'ai un code en vb.net que j'ai fait.

J'explique ce qu'il fait (pas grand chose)

Il va sur chacun des sites et ce connecte en entrant l'identifiant (juste le passe) dans le champs "pass" (c'est juste pour tester pour que j'apprends)

Alors voilà, mon problème est si je fait un If / end if et que je demande uen boolean dans ce if, elle est faite, sauf si il y à une suite entre le end if et le "next" (de la listbox)

Je ne sais pas quoi faire j'ai déjà essayer des fonctions et pleins d'autres trucs ...



    Dim nom As String  
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
        Dim i As Integer = 0  

        For i = 0 To ListBox1.Items.Count - 1  
            nom = ListBox1.Items(i).ToString  

            WebBrowser1.Navigate("http://" & nom & ".fr")  

            'CHARGEMENT-------  
            Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete  
                Threading.Thread.Sleep(1)  
                Application.DoEvents()  
            Loop  
            'CHARGEMENT-------  

            If CheckBox1.Checked = True Then  
                WebBrowser1.Document.All("pass").SetAttribute("value", TextBox2.Text)  
                WebBrowser1.Document.Forms(0).InvokeMember("submit")  
            End If  
        Next  
    End Sub




Merci d'avance de votre aides.

1 réponse

Nico# Messages postés 323 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 28 août 2013 102
15 août 2011 à 10:30
Slt,

tu expliquer un peu mieux ton problème car je comprend pas ou il se situe
0

Discussions similaires