Hola, tengo un problema con un codigo de Visual Basic (estoy usando la vesión 2008)... De más está decir que soy novato en esto de la programación =P
pero espero explicarme bien asi me entienden...

Esta es la parte del codigo en cuestion:

Private Sub cmd_firmar
    _Click(ByVal sender As System.Object, ByVal e As
     System.EventArgs) Handles cmd_firmar.Click
    Dim contar As Integer = 0
    With CheckedListBox1
        For i = 1 To .CheckedItems.Count
            contar = contar + 1
        Next
        If contar <= 10 Then
            For navegar As Integer = 1 To .CheckedItems.Count
                Try
                    Label5.Text = .GetItemText(.CheckedItems.Item(navegar))
                    navegador2.Navigate(.GetItemText(.CheckedItems.Item(navegar)))
                    Wait(2)
                Catch

                End Try
            Next
        Else
            MsgBox("Se pueden seleccionar como máximo 10 metroflogs a firmar.")
        End If
        If contar = 0 Then
            MsgBox("Debes seleccionar al menos un metroflog a firmar")
        End If
    End With
End Sub

Private Sub navegador2
    _DocumentCompleted(ByVal sender As System.Object, ByVal e As
     System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles navegador2.DocumentCompleted
        navegador2.Document.GetElementById("mensaje").InnerText() = tb_mensaje.Text
        navegador2.Document.GetElementById("enviarmensaje").InvokeMember("click")
    End Sub

Private Sub Wait(ByVal nSec As Integer)
    'Esperar un número de segundos
    Dim t1 As Integer, t2 As Integer

    t1 = Second(Now)
    t2 = t1 + nSec
    Do
        'DoEvents()
    Loop While t2 > Second(Now)
End Sub

El problema esta en la parte del "Wait(2)", se pausa por dos segundos, pero antes que el bucle empieze , por lo que el webbrowser solo navega a el ultimo link seleccionado de la checkedlistbox...
alguien puede darme una mano ?


EDITO: Me falto decir que estoy intentando hacer "bot" que "devuelva" las firmas de metroflog xD
[Editado: marcelo_vm77, 06/03/2010 13:28:16]

pon:

Private vUrl As String = ""
Private vSwCompletadaWeb As Boolean = False

    Private Sub EsperaCargaWeb()
        Do Until vSwCompletadaWeb
            Windows.Forms.Application.DoEvents()
        Loop
        vSwCompletadaWeb = False
    End Sub

    Private Sub WebBrowser1
        _DocumentCompleted(ByVal sender As System.Object, ByVal e As
         System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If e.Url = New Uri(vUrl) Then
            vSwCompletadaWeb = True
        End If
     End Sub

el lo tuyo

Private Sub cmd_firmar
    _Click(ByVal sender As System.Object, ByVal e As
     System.EventArgs) Handles cmd_firmar.Click
    Dim contar As Integer = 0
    With CheckedListBox1
        For i = 1 To .CheckedItems.Count
            contar = contar + 1
        Next
        If contar <= 10 Then
            For navegar As Integer = 1 To .CheckedItems.Count
                Try
                    Label5.Text = .GetItemText(.CheckedItems.Item(navegar))
' pon aqui la url
vUrl=.GetItemText(.CheckedItems.Item(navegar))
' llama a navigate
                    navegador2.Navigate(New Uri(vUrl))
' espera
    EsperaCargaWeb()
' recoge resultados
navegador2.Document.GetElementById("mensaje").InnerText() = tb_mensaje.Text
    navegador2.Document.GetElementById("enviarmensaje").InvokeMember("click")



                Catch

                End Try
            Next
        Else
            MsgBox("Se pueden seleccionar como máximo 10 metroflogs a firmar.")
        End If
        If contar = 0 Then
            MsgBox("Debes seleccionar al menos un metroflog a firmar")
        End If
    End With
End Sub

El proceso es:
Poner la url de la pagina para comprobar que el evento DocumentCompleted corresponde a esa pagina porque puede ocurrir que sea de la anterior. Cuando el evento es el de la pagina (la misma url) pone el sw a true y el buche de espera termina

Espero que funcione porque aun asi, a veces .....

Saludos

[Editado: luis1952, 07/03/2010 00:59:26]
[luis1952, 07/03/2010 01:01:09]
[luis1952, 07/03/2010 01:03:01]

Muchisimas gracias !!!
con esto puedo terminar...