Buscar
 
 

Resultados por:
 


Rechercher Búsqueda avanzada

Últimos temas
» Enviar mail por visual basic 6.0
Vie 1 Jul - 3:57 por blacksoul899

» Modificacion del foro
Vie 5 Nov - 18:14 por Admin

» Controlar PC a travez de un programa
Vie 5 Nov - 17:53 por Admin

» Hack de PC's con puertos liberados
Mar 2 Nov - 12:35 por Admin

» Sacar contraseña a una cuenta de administrador
Mar 2 Nov - 12:34 por Admin

» Como rastrear una IP
Mar 2 Nov - 12:33 por Admin

» MS-DOS Pr0-Gramer
Dom 31 Oct - 19:55 por Admin

» Como crear un programa de acceso restringido
Dom 31 Oct - 19:55 por Admin

» MS-DOS Pach Basico
Dom 31 Oct - 19:54 por Admin


Como crear un programa para hacer SPAM en visual basic 6.0

Ver el tema anterior Ver el tema siguiente Ir abajo

Como crear un programa para hacer SPAM en visual basic 6.0

Mensaje por Admin el Sáb 16 Oct - 18:11

Hola amigos del foro de porteritoo, hoy les traigo mi segundo tutorial en este foro (que es el mejor del mundo para mi Very Happy ), explicando como poder crear un Flooder o Spam en visual basic 6
(Estos programas sirven para hacer spam) Spam: Denominacion que se le da a la accion de reenviar insistentemente lo mismo, para que otra persona vea lo que pongas y llame la atencion.
Bueno, primero, abrimos el Visual Basic 6.0, hacemos click en "Standart EXE" o en "EXE estandar" (depende del idioma que lo tengan) y agregamos 1 timer (En el menu de la izquierda, tiene el icono de un reloj, simplemente le hacemos click y arrastramos el click en el formulario y tendria que aparecer...)
Ahora agregamos 12 TextBox (En el menu de la izquierda tambien) y los ponemos uno arriva de otro en orden (solo si quieren para que no se confundan)
Ahora hacemos doble click en el formulario (el programa), y borramos lo que dice...
(normalmente solo dice: Private sub Form1_Load() y End Sub) bueno, borramos eso y cuando queda todo el lugar blanco para escribir, escribimos lo siguiente (copien y peguen):

Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

Private Sub Form_Load()
Timer1.Interval = "100"
msgbox("Flooder by [Tienes que estar registrado y conectado para ver este vínculo] y [Tienes que estar registrado y conectado para ver este vínculo]
End Sub

Private Sub Timer1_Timer()
If GetKeyPress(vbKeyF1) Then
SendKeys (Text1.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF2) Then
SendKeys (Text2.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF3) Then
SendKeys (Text3.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF4) Then
SendKeys (Text4.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF5) Then
SendKeys (Text5.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF6) Then
SendKeys (Text6.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF7) Then
SendKeys (Text7.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF8) Then
SendKeys (Text8.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF9) Then
SendKeys (Text9.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF10) Then
SendKeys (Text10.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF11) Then
SendKeys (Text11.Text) + ("{enter}")
End If
If GetKeyPress(vbKeyF12) Then
SendKeys (Text12.Text) + ("{enter}")
End If
End Sub

Y ahora le dan click en el boton del menu de arriva que tiene el dibujo de un triangulo azul apuntando hacia la derecha (Parecido al signo de Play) y se nos va a abir el programa... ahora, tendriamos que tener los 12 textbox's que agregamos, le hacemos click al primero, y escribimos lo que queramos, por ejemplo: "By porteritoo"
y ahora vamos a un block de notas, al msn, a alguna pagina (lo que quieran) y aprieten el F1 y se les tiene que aparecer el texto ahi, y si lo apretan muchas veces, se les aparecera eso, uno arriva de otro, les recomiendo provarlo en un block de notas, y tambien les recomiendo que lo agan con el 2do cuadrado, porque el F1 es el boton de "Ayuda".
Aqui les dejo las aclaraciones de como usarlo:

1er cuadrado: Escribimos lo que queramos, y para enviarlo presionamos F1
2do cuadrado: Escribimos lo que queramos, y para enviarlo presionamos F2
3er cuadrado: Escribimos lo que queramos, y para enviarlo presionamos F3
4to cuadrado: Escribimos lo que queramos, y para enviarlo presionamos F4
5to cuadrado: Escribimos lo que queramos, y para enviarlo presionamos F5
6to cuadrado: Escribimos lo que queramos, y para enviarlo presionamos F6
7mo cuadrado: Escribimos lo que queramos, y para enviarlo presionamos F7
8vo cuadrado: Escribimos lo que queramos, y para enviarlo presionamos F8
9no cuadrado: Escribimos lo que queramos, y para enviarlo presionamos F9
10 cuadrado: Escribimos lo que queramos, y para enviarlo presionamos F10
11 cuadrado: Escribimos lo que queramos, y para enviarlo presionamos F11
12 cuadrado: Escribimos lo que queramos, y para enviarlo presionamos F12

PD: Puede ser que algunas teclas (en algunos programas o lugares) no les funcionen, por ejemplo el F1 en el block de notas no funciona, porque al precionar F1 se activa la ventana de ayuda, asi que en estos casos, usen el F2.
Bueno amigos, eso fue todo por hoy, espero que les alla gustado y/o ayudado, me esforze mucho para hacerlo (como ya saven) y simplemente lo ago para ustedes, y para que no tengan que hacer trabajo... Bueno amigos, gracias por leer el post y buena suerte !

PD2: SI VAN A COPIAR Y PEGAR ESTO EN OTRO POST, POR FAVOR POR LO MENOS PONGAN LA FUENTE, YA QUE ME ESFUERZO MUCHO PARA HACER ESTAS COSAS Y LAS AGO POR AMOR AL ARTE, ASI QUE POR FAVOR POR LO MENOS DENME ALGO DE CREDITO Sad . AQUI LES DEJO LA FUENTE PARA QUE NO SE TENGAN QUE ESFORZAR:

Fuente: [Tienes que estar registrado y conectado para ver este vínculo] y [Tienes que estar registrado y conectado para ver este vínculo]

Admin
Admin

Mensajes : 37
Puntos : 2147486210
Reputación : 1
Fecha de inscripción : 16/10/2010
Edad : 21
Localización : Argentina, Buenos Aires, Olavarria

http://porteritoo.com.ar

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.