Foro de elhacker.net

Hola amigos, tengo el siguiente 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.

me parece que es algun problema de threading? :S

.
Jamas te saldran al mismo tiempo eso lo sale cualquiera!¡, debido a distintos factores, por ejemplo:

1.- Un servidor web genera una cola de peticiones (Atendidas de manera paralela).
2.- VB6 asi como lo estas ocupando esta en un solo hilo, por ende sera imposible mandarlo en un rango de milisegundos dados, jamas se mandara extrictamente al mismo tiempo!¡.
3.- Deberas ocupar Hilos para esto. VB6 NO ES ESTABLE CON HILOS...
4.- Emplea un for each en lugar de un for simple...

P.D.: Si tienes alguna duda con lo que te he puesto sera bueno que investigues un poco mas en Google (con respecto a los hilos y for each) o que sues el buscador del foro.

Dulces Lunas!¡.