elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
28 Mayo 2012, 23:44  


Tema destacado: Grupo de Facebook de elhacker.net

+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo, raul338)
| | |-+  ayuda con for instantáneo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ayuda con for instantáneo  (Leído 188 veces)
soru13

Desconectado Desconectado

Mensajes: 211



Ver Perfil
ayuda con for instantáneo
« en: 22 Octubre 2011, 19:20 »

Hola amigos, tengo el siguiente código

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.


En línea
Elemental Code


Desconectado Desconectado

Mensajes: 499


Im beyond the system


Ver Perfil
Re: ayuda con for instantáneo
« Respuesta #1 en: 22 Octubre 2011, 20:46 »

me parece que es algun problema de threading? :S


En línea

BlackZeroX (Astaroth)
Wiki

Desconectado Desconectado

Mensajes: 2.831


I'Love...!¡.


Ver Perfil WWW
Re: ayuda con for instantáneo
« Respuesta #2 en: 23 Octubre 2011, 03:03 »

.
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!¡.
En línea

Web Principal-->[ Blog(VB6) | Host File (Public & Private) | Scan Port | (New)MyInfraPC (Descubre mi Contraseña venefi. $) ]



The Dark Shadow is my passion.
El infierno es mi Hogar, mi novia es Lilith y el metal mi
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ICQ el mensajero instantaneo con mas usuarios en el mundo...!
Chats; IRC y Messengers
sPeCtOR 7 878 Último mensaje 20 Febrero 2003, 06:34
por sPeCtOR
Netstat Instantáneo
Análisis y Diseño de Malware
h1t0k1r1 2 624 Último mensaje 2 Mayo 2004, 03:55
por h1t0k1r1
WorkSpot: el Linux instantáneo
Noticias
mousehack 0 353 Último mensaje 29 Septiembre 2005, 16:31
por mousehack
WHK-RV2 - Mensajero instantaneo de paquetes cifrados
Programación Visual Basic
WHK 3 434 Último mensaje 19 Junio 2007, 11:21
por cheatmaster
Política de rastreado instantaneo de ISP??
Redes
SINUS 0 251 Último mensaje 9 Agosto 2008, 18:01
por SINUS
Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines