Como hacer aparecer un monton de MsgBox

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP)

Programación Visual Basic (Moderadores: LeandroA, seba123neo)

Como hacer aparecer un monton de MsgBox

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: Como hacer aparecer un monton de MsgBox (Leído 3,524 veces)

gulabyte

Desconectado

Mensajes: 97

Como hacer aparecer un monton de MsgBox

« en: 16 Diciembre 2009, 12:24 pm »

Wenas!
Me explico: lo que quiero hacer es hacer aparecer más de un MsgBox en la pantalla de la victima. Al ser el MsgBox un formulario "modal" (creo que va de eso) el servidor tiene que esperar a que se le de a aceptar en el MsgBox para proseguir con la ejecución del programa, por lo que al enviar más de un MsgBox, el primero salta pero luego los demás no aparecen. Por consecuencia los datos enviados desde el cliente al server de la victima se almacenan, y aparece el siguiente MsgBox (después de que yo le de a "Aceptar") con texto repetido en su interior.

¿Cómo hago para mostrar MsgBox no modales o independientes de la interacción de la victima?

Gracias de antemano

salu000000000010


	En línea

Seritx

Desconectado

Mensajes: 12

Re: Como hacer aparecer un monton de MsgBox

« Respuesta #1 en: 16 Diciembre 2009, 13:45 pm »

Aqui tienes:

Código:

Private Sub Form_Load()
For i = 1 To 100 'el numero 100 es cuantas veces tendras el msgbox
MsgBox "Hola"
Next i
End
End Sub

Salu2


	En línea

gulabyte

Desconectado

Mensajes: 97

Re: Como hacer aparecer un monton de MsgBox

« Respuesta #2 en: 16 Diciembre 2009, 13:56 pm »

No no me refería a eso.. quiero enviarlas una a una pero cuando envio la segunda no aparece, le doy al "Aceptar" del primero, le envio el tercer MsgBox y me aparece el texto de los dos ultimos en el tercer MsgBox. Yo lo que quiero es que me aparezcan los MsgBox según los mando aunque tengan mismo texto, diferente...

Una solución sería crear un form no-modal que tenga las caracteristicas del MsgBox y mostrar ese no? pero eso de mostrarlos uno detras de otro casi encima (desplazados diagonalmente un poco) como para que se vea el titulo del otro y tal... me niego a hacer todo eso por código para tal lamerada..nuse

Ayudenme!

salu0000000010


	En línea

Karcrack

Desconectado

Mensajes: 2.416

Se siente observado ¬¬'

Re: Como hacer aparecer un monton de MsgBox

« Respuesta #3 en: 16 Diciembre 2009, 14:24 pm »

A mi se me ocurre usar las APIs CreateWindowEx y MessageBox $:-\$

Si no puedes recurrir al truco del timer :rolleyes:

:
En un Form:

Código

Private Sub Form_Load()
    Call Start
End Sub

En un modulo:

Código

Option Explicit
'USER32
Private Declare Function KillTimer Lib "USER32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function SetTimer Lib "USER32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
 
Private lProc       As Long
 
Sub Start()
    lProc = GetAddr(AddressOf TimerProc)
    Call SetTimer(0, 0, 500, lProc)
End Sub
 
Private Function GetAddr(ByVal lAddr As Long) As Long
    GetAddr = lAddr
End Function
 
Public Function TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long) As Long
    Call SetTimer(0, idEvent + 1, 500, lProc)
    MsgBox "HOLA"
    Call KillTimer(0, idEvent)
End Function


	En línea

(PGP ID)

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	¿Usted es de Gmail o del montón? Noticias	wolfbcn	5	2,262	3 Abril 2014, 21:20 pm por NikNitro!
	¿Cómo hacer Strings que están a cero aparecer? « 1 2 » Ingeniería Inversa	02k0	16	14,291	16 Septiembre 2017, 02:02 am por 02k0