 Autor
|
Tema: Proyectos Joker & Bromas (Leído 12,965 veces)
|
z3r0 Bug
 Desconectado
Mensajes: 96
Solo el conocimiento nos hace libres
|
Hola, me e dado cuenta que en esta comunidad siempre es lo mismo winsock, crear un MSN, virus, troyanos, etc. Podríamos cambiar el estilo aunque sea en este nuevo tema, que tal si posteamos aquí nuestras bromas para Windows (en vb, claro), explicamos como hacer distintas bromas, publicamos nuestros proyectos, etc… pongo a su disposición esta pequeña broma. Para que empecemos a tener ideas creativas digo yo. Private Sub cmd1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmd1.Visible = False
cmd2.Visible = True
End Sub
Private Sub cmd2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmd1.Visible = True
cmd2.Visible = False
End Sub El programa muestra el cmd1 y oculta el cmd2, cuando se acerca el mouse al cmd1 este se oculta y aparece el cmd2 dando la impresión de que cambio su posición, así que el ciberpajero que quería ver imágenes gratis… cago. Es un buen ejemplo para empezar a hacer joker o bromas para PC, no es muy difícil de hacer, tiene poco código fuente y su diseño es muy simple.  Y FELIZ NAVIDAD
|
|
|
|
« Última modificación: 15 Diciembre 2005, 21:05 pm por z3r0 Bug »
|
En línea
|
Solo el conocimiento nos hace libres
Usuario Linux #475085 (counter.li.org)
|
|
|
|
Mad Antrax
|
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Call Sound1
End Sub
Private Sub Command2_Click()
Call Sound2
End Sub
Private Sub Command3_Click()
Call Sound3
End Sub
Public Function Sound1()
For i = 1 To 5
Beep 700 * i, 450
Next i
End Function
Public Function Sound2()
Beep 4000, 3000
End Function
Public Function Sound3()
For i = 1 To 40
Beep 75 * i, 60
Next i
End Function
Añadimos a nuestro formulario 3 Botones de comando (Command1, Command2 y Command3) y añadimos el siguiente código. Esto nos hará sonar el altavoz interno del PC, he jugado con los bucles y valores para conseguir escalas musicales, si alguien consigue hacer algun sonido más, k lo publike
|
|
|
|
|
En línea
|
No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
|
|
|
NYlOn
Desconectado
Mensajes: 842
OOOOHHHHHH, TARAGÜIIII xDDDDDD
|
Emmmm... Esto es PROGRAMACION VBAca lo q se hace (corriganme si no estoy en lo correcto) es compartir codigos INTERESANTES, pedir orientacion, aprender... No para hacer "JOKER & BROMAS CREATIVAS" No se si leiste el reglamento, pero ahora todos los proyectos de troyaons y lammeradas se postearan en el foro TROYANOS Y VIRUS, que para algo esta ahi. Para que empecemos a tener ideas creativas digo yo. Pero que originale eres xDD |
|
|
|
|
En línea
|
|
|
|
z3r0 Bug
Desconectado
Mensajes: 96
Solo el conocimiento nos hace libres
|
Emmmm... Esto es PROGRAMACION VBAca lo q se hace (corriganme si no estoy en lo correcto) es compartir codigos INTERESANTES, pedir orientacion, aprender... No para hacer "JOKER & BROMAS CREATIVAS" No se si leiste el reglamento, pero ahora todos los proyectos de troyaons y lammeradas se postearan en el foro TROYANOS Y VIRUS, que para algo esta ahi. Para que empecemos a tener ideas creativas digo yo. Pero que originale eres xDD
Mejor continuemos con el proyecto inicial y dejemos las discusiones de lado, ya que como dijiste la intención es compartir. FELIZ NAVIDAD Y PROSPERO AÑO NUEVO
|
|
|
|
|
En línea
|
Solo el conocimiento nos hace libres
Usuario Linux #475085 (counter.li.org)
|
|
|
Slasher-K
Desconectado
Mensajes: 1.477
|
Mientras no hagan nada dañino o destructivo no veo que sea molesto, vamos que la programación es para jugar también  . Se pueden hacer muchas cosas divertidas. Dejemos algo en claro: 1. NADA DE LAMERADAS 2. NADA DE TROYANOS/VIRUS Y DERIVADOS. 3. ESTO NO ES UN CHAT, POSTEAN CODES, EL QUE NO ENTIENDA SE COMUNICA POR IM CON EL CREADOR, O ARREGLAN PARA HABLAR POR IRC O MSN, DA IGUAL. 4. NO VOY A PERMITIR DISCUSIONES DE CHICOS DE 9 AÑOS DICIENDO: "EL MÍO ESTÁ MEJOR", "ESO NO SIRVE" Y COSAS SIMILARES. Por lo demás me parece buena idea  , no le veo nada de malo a jugar con la programación, que de hecho yo lo suelo hacer cuando estoy aburrido y tengo tiempo xDDD. En cuanto rompan las reglas de arriba cierro el tema, no voy a andar borrando 20 post por día en el que discuten un code, porque la idea original es otra. Saludos. |
|
|
|
|
En línea
|
 A la reina de las profundidades que cuida los pasos de una sombra en la noche :* |
|
|
DrakoX
Desconectado
Mensajes: 191
|
hola, aca les traigo lo ultimo, en bromas , este programa fue desarrollado por mi, es muy bueno, aqui esta el link de descarga:` ---------> Rompe Huevos v3.0 <--------- Instrucciones de uso: 1.Primero q todo, extraer del zip todo lo que hay en el, en el escritorio. 2.Dobl Click en el archivo Rompe Huevos.exe 3.Seleccionar lo q uno desee y poner "Generar Joda" 4.Escribir el nombre de la joda en el inputbox q saldra, Y la joda ya esta hecha. 5.Para pasarla x msn o mail, deberan zipiar el exe. Advertencia: Para q este programa funcione, el archivo, Creador.exe y el Rompè Huevos.exe, deberan estar siempre en la misma carpeta, de lo contrario la broma no se generara. Espero q disfruten de este prohgrama como lo hago yo. Digan me x favor q les parece. Es importante para mejorar. Salu2 |
|
|
|
« Última modificación: 17 Diciembre 2005, 01:53 am por Dark_Lord99 »
|
En línea
|
|
|
|
|
|
DrakoX
Desconectado
Mensajes: 191
|
ES un crea bromas, osea, no es una broma en si,
descargenla y miren lo que hace.
Salu2
|
|
|
|
|
En línea
|
|
|
|
z3r0 Bug
Desconectado
Mensajes: 96
Solo el conocimiento nos hace libres
|
Esta broma simula que esta transfiriendo datos importantes, se puede modificar. Ejemplo simular que esta eliminando datos, etc. Aquí esta el código Private Sub Timer1_Timer()
Label2.Caption = Label2.Caption + "|"
Label3.Caption = Val(Label3.Caption) + 1 & "%"
If Label3.Caption = "1" & "%" Then
Label1.Caption = "Transfiriendo passwords"
Beep
End If
If Label3.Caption = "32" & "%" Then
Label1.Caption = "Transfiriendo informacion de tarjetas de credito"
Beep
End If
If Label3.Caption = "68" & "%" Then
Label1.Caption = "Transfiriendo Historial de Archivos"
Beep
End If
If Label3.Caption = "85" & "%" Then
Label1.Caption = "Borrando DLLs"
Beep
End If
If Label3.Caption = "100" & "%" Then
Timer1.Enabled = False
Beep
Label1.Caption = "Esto era una bromita"
End If
End Sub Y aquí les dejo como tiene que ser el diseño: LO LOGRE |
|
|
|
« Última modificación: 17 Diciembre 2005, 05:43 am por z3r0 Bug »
|
En línea
|
Solo el conocimiento nos hace libres
Usuario Linux #475085 (counter.li.org)
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
Insultador v2.0 Le e añadido: - Nuevas frases
- Inicio al arrancar
- Se copia en System32
- No aparece en el administrador de tareas
- Codigo optimizado para k no repita frases y ocupe menos en memoria.
http://kizar.webcindario.com/programas/Insultador2.zipSi el moderador ve k es una lammerada lo borre sin problema. Salu2 |
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
El Duke no está para bromas
Noticias
|
wolfbcn
|
2
|
2,404
|
18 Junio 2011, 15:00 pm
por dato000
|
|
|
|
Retrato HiperRealista del Joker
Foro Libre
|
.:UND3R:.
|
8
|
5,532
|
17 Agosto 2011, 23:08 pm
por .:UND3R:.
|
|
|
|
Aun existen las bromas tipo masfresa.com?
Foro Libre
|
A2Corp
|
6
|
26,372
|
11 Febrero 2012, 21:09 pm
por A2Corp
|
|
|
|
Pedir bromas a Anda YA
Foro Libre
|
crazykenny
|
0
|
1,614
|
28 Octubre 2013, 19:37 pm
por crazykenny
|
|
|
|
problema con file joker
Software
|
naxo_valladolid
|
0
|
2,508
|
7 Diciembre 2021, 11:08 am
por naxo_valladolid
|
 |
