Código
Private Sub Command1_Click() 'Este command crea un nuevo Form1 cada ves que lo presionamos ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Variable de tipo Form Dim Nuevo_Form As Form 'Creamos un nuevo objeto Form1 Set Nuevo_Form = New Form1 'Establecemos Algunas propiedades para este form '''''''''''''''''''''''''''''''''''''''''''''''''' 'Lo hacemos visible With Nuevo_Form .Visible = True .BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) .Caption = "Formulario: " & Forms.Count .WebBrowser1.Navigate (Form1.WebBrowser1.LocationURL) End With End Sub Private Sub Command4_Click() On Error Resume Next 'Realiza el ataque formularios2 = Forms.Count For atacar = 1 To formularios2 Forms(atacar).WebBrowser1.Document.Forms(0).submit Next atacar End Sub
El primer command lo que hace es generar en tiempo de ejecución otro formulario igual al que está abierto, el cual tiene un webbrowser que carga una página web que contiene un formulario, y el segundo botón se encarga de mandarlo. El problema es que necesito que si por ejemplo genero 10 formularios iguales, los cuales rellenan el formulario de distinta forma, necesito que con el Command4, me mande todos los formularios en el mismo instante,ya que es de vital importancia que llegen todos en el mismo segundo, ya que con el For, si por ejemplo pongo 20 formularios, no me llegan todos al mismo segundo, ya que primero manda el primero, luego el segundo, etc, aunque la diferencia sea alomejor de medio segundo, cuando ha mandado el formulario 10 esa diferencia alomejor ya es de 5 segundos y necesito que llegen todos en el mismo segundo.
¿A alguien se le ocurre como podría hacer esto? ¿Debería usar otro método que no sea el For? ¿Como cual?
Gracias y un saludo.