none
Repetir função como limite determinado RRS feed

  • Pergunta

  • tenho esta função  

        Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
            Me.lblstatus.Text = "Enviando"
            Me.lblstatus.Text = "Enviando..."
            lblstatus.ForeColor = Color.Blue
            Me.DataGridView2.CurrentRow.Selected = True
            Me.WebBrowser1.Document.GetElementById("to").SetAttribute("value", Conversions.ToString(Me.DataGridView2.CurrentRow.Cells(0).Value))
            If DataGridView2.SelectedRows.Count > 0 Then
                'Deleta 1 linha datagrid
                DataGridView2.Rows.Remove(DataGridView2.SelectedRows(0))
            Else
            End If
            WebBrowser1.Document.GetElementById("subject").SetAttribute("value", TextBox2.Text)
            WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox4.Text)
            Dim allelements As HtmlElementCollection = WebBrowser1.Document.All
            For Each webpageelement As HtmlElement In allelements
                If webpageelement.GetAttribute("value") = "Enviar" Then
                    webpageelement.InvokeMember("click")
    
                    lblcontador.Text = lblcontador.Text + 1
    
                End If
    
            Next
    
           
    
            Me.Timer4.Stop()
            Me.Timer1.Start()
    
    
    
    
        End Sub

    Gostaria de executar ela 10 vezes para poder passar para proxima função

    sexta-feira, 18 de janeiro de 2019 07:05

Todas as Respostas

  • Olá Rafael, bom dia.

    Você pode usar um For .. Next até 10 ..

    For i = 1 to 10 

         ' Executa a sua função ..

    Next  i

    Aguardo retorno

    Abs.

    sexta-feira, 18 de janeiro de 2019 12:46
  • Não entendi amigo você poderia fazer usando meu codigo obrigado.
    sexta-feira, 18 de janeiro de 2019 15:07
  • Olá.. 

    Veja se é isto o que vc. quer:

     Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick

         For i = 1 to 10

            Me.lblstatus.Text = "Enviando"
            Me.lblstatus.Text = "Enviando..."
            lblstatus.ForeColor = Color.Blue
            Me.DataGridView2.CurrentRow.Selected = True
            Me.WebBrowser1.Document.GetElementById("to").SetAttribute("value", Conversions.ToString(Me.DataGridView2.CurrentRow.Cells(0).Value))
            If DataGridView2.SelectedRows.Count > 0 Then
                'Deleta 1 linha datagrid
                DataGridView2.Rows.Remove(DataGridView2.SelectedRows(0))
            Else
            End If
            WebBrowser1.Document.GetElementById("subject").SetAttribute("value", TextBox2.Text)
            WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox4.Text)
            Dim allelements As HtmlElementCollection = WebBrowser1.Document.All
            For Each webpageelement As HtmlElement In allelements
                If webpageelement.GetAttribute("value") = "Enviar" Then
                    webpageelement.InvokeMember("click")

                    lblcontador.Text = lblcontador.Text + 1

                End If

            Next

           

            Me.Timer4.Stop()
            Me.Timer1.Start()


       Next i


    End Sub

    sexta-feira, 18 de janeiro de 2019 16:46
  • Nao é assim estou querendo que essa função se repita suponde ele loga no email envia 50 emails essa perte que mandei é a parte que envia

    sexta-feira, 18 de janeiro de 2019 18:10
  • Boa tarde, Rafael.

    Conseguiu algum avanço no teu caso? 

    Se ainda não, o que precisa?

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quinta-feira, 31 de janeiro de 2019 19:55
    Moderador