elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Desafio/Reto/Tiempo al Pedo] Konami Code
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Desafio/Reto/Tiempo al Pedo] Konami Code  (Leído 2,501 veces)
Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
[Desafio/Reto/Tiempo al Pedo] Konami Code
« en: 5 Diciembre 2010, 22:40 pm »

Hola :D
Al pedo se me ocurrio ver como seria la forma mas sencilla de hacer que un form reaccionase al konami code
(Mas info del Konami Code aca: http://es.wikipedia.org/wiki/C%C3%B3digo_Konami)


La onda seria que cuando la persona aprieta el codigo (↑ ↑ ↓ ↓ ← → ← → B A) abra un msgbox o cualquiercosa.

Lo lindo es que tiene que ser en ese orden, que sea detectado por las pulsaciones del teclado (Pueden usar hooks, GetAsyncState o Form_Press) y que si te tardas la vida en poner el comando que sigue no funcione.

Si no entendieron... se joden (naaa mentira, pregunten)

Saludos y suerte a todos.




En línea

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
agus0


Desconectado Desconectado

Mensajes: 360



Ver Perfil
Re: [Desafio/Reto/Tiempo al Pedo] Konami Code
« Respuesta #1 en: 18 Diciembre 2010, 23:49 pm »

Jaja que buena idea ahora me pongo a ver esto... ¿El Tuyo donde esta? jaja nadie le dio bola a este Reto :(


En línea

ignorantev1.1


Desconectado Desconectado

Mensajes: 617


/\ Así acabo cuando quiero programar...


Ver Perfil WWW
Re: [Desafio/Reto/Tiempo al Pedo] Konami Code
« Respuesta #2 en: 19 Diciembre 2010, 00:02 am »

Código
  1. Dim konami As Byte
  2.  
  3. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  4.    If ((konami = 0 Or konami = 1) And KeyCode = 38) Or _
  5.    ((konami = 2 Or konami = 3) And KeyCode = 40) Or _
  6.    ((konami = 4 Or konami = 6) And KeyCode = 37) Or _
  7.    ((konami = 5 Or konami = 7) And KeyCode = 39) Or _
  8.    (konami = 8 And KeyCode = 66) Or (konami = 9 And KeyCode = 65) Then
  9.        konami = konami + 1
  10.        If konami = 10 Then MsgBox "Has activado el konami code!": konami = 0
  11.    Else
  12.        konami = 0
  13.    End If
  14. End Sub
  15.  
En línea

agus0


Desconectado Desconectado

Mensajes: 360



Ver Perfil
Re: [Desafio/Reto/Tiempo al Pedo] Konami Code
« Respuesta #3 en: 19 Diciembre 2010, 00:18 am »

Código
  1. Dim konami As Byte
  2.  
  3. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  4.    If ((konami = 0 Or konami = 1) And KeyCode = 38) Or _
  5.    ((konami = 2 Or konami = 3) And KeyCode = 40) Or _
  6.    ((konami = 4 Or konami = 6) And KeyCode = 37) Or _
  7.    ((konami = 5 Or konami = 7) And KeyCode = 39) Or _
  8.    (konami = 8 And KeyCode = 66) Or (konami = 9 And KeyCode = 65) Then
  9.        konami = konami + 1
  10.        If konami = 10 Then MsgBox "Has activado el konami code!": konami = 0
  11.    Else
  12.        konami = 0
  13.    End If
  14. End Sub
  15.  

esta bien le faltaría que se anule si tardas mucho en apretar las teclas
En línea

Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: [Desafio/Reto/Tiempo al Pedo] Konami Code
« Respuesta #4 en: 19 Diciembre 2010, 02:31 am »

yo lo intente, pero tube el problema de que no lograba encontrar en el formpress cuales eran las teclas.
En línea

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: [Desafio/Reto/Tiempo al Pedo] Konami Code
« Respuesta #5 en: 19 Diciembre 2010, 03:11 am »

AHAHA TEMANME!!!

Lo logre :D
Código
  1. Dim Cur As Byte
  2. 'arriba 38
  3. 'abajo 40
  4. 'izq 37
  5. 'derech 39
  6. 'B 66
  7. 'A 65
  8.  
  9. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  10.    tmrPulso.Enabled = False
  11.    Select Case Cur
  12.    Case 0
  13.        If KeyCode = 38 Then Cur = Cur + 1 Else Cur = 0
  14.    Case 1
  15.        If KeyCode = 38 Then Cur = Cur + 1 Else Cur = 0
  16.    Case 2
  17.        If KeyCode = 40 Then Cur = Cur + 1 Else Cur = 0
  18.    Case 3
  19.        If KeyCode = 40 Then Cur = Cur + 1 Else Cur = 0
  20.    Case 4
  21.        If KeyCode = 37 Then Cur = Cur + 1 Else Cur = 0
  22.    Case 5
  23.        If KeyCode = 39 Then Cur = Cur + 1 Else Cur = 0
  24.    Case 6
  25.        If KeyCode = 37 Then Cur = Cur + 1 Else Cur = 0
  26.    Case 7
  27.        If KeyCode = 39 Then Cur = Cur + 1 Else Cur = 0
  28.    Case 8
  29.        If KeyCode = 66 Then Cur = Cur + 1 Else Cur = 0
  30.    Case 9
  31.        If KeyCode = 65 Then
  32.            MsgBox "KABIO EL KONAMI KODE"
  33.            Cur = 0
  34.        End If
  35.    End Select
  36.    tmrPulso.Enabled = True
  37. End Sub
  38.  
  39.  
  40. Private Sub tmrPulso_Timer()
  41. Cur = 0
  42. End Sub

Ponganle al timer el interval que quieran, yo probe con 2000 ms (2 segundos) y quedo pulenta ^.^
En línea

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: [Desafio/Reto/Tiempo al Pedo] Konami Code
« Respuesta #6 en: 19 Diciembre 2010, 06:15 am »

mmm

para que no se maten con los valores de las teclas escriban

Código
  1.  
  2. KeyCodeConstants.
  3.  
  4.  

De esta manera les dara el IDE una lista de las constantes de las teclas.

Temibles Lunas!¡.
En línea

The Dark Shadow is my passion.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Konami en el Corte-Ingle?
Juegos y Consolas
oldcap 0 1,057 Último mensaje 5 Julio 2005, 12:35 pm
por oldcap
Konami nos desvela cómo será la edición especial de Metal Gear Solid 4 - Guns of « 1 2 »
Juegos y Consolas
Castiblanco 14 3,726 Último mensaje 12 Junio 2008, 05:19 am
por pliskin007
Codigo al pedo :P « 1 2 »
Programación Visual Basic
Petro_Boca 10 2,691 Último mensaje 28 Agosto 2010, 05:24 am
por seba123neo
[Reto] Show My Source Code. « 1 2 3 4 5 »
Programación Visual Basic
BlackZeroX 43 15,136 Último mensaje 23 Febrero 2011, 12:47 pm
por 79137913
un reto, programa que encuentre todas las palabras en el menor tiempo
Programación C/C++
ralg98 4 2,280 Último mensaje 1 Junio 2013, 20:45 pm
por ralg98
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines