Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Elemental Code en 5 Diciembre 2010, 22:40 pm



Título: [Desafio/Reto/Tiempo al Pedo] Konami Code
Publicado por: Elemental 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.




Título: Re: [Desafio/Reto/Tiempo al Pedo] Konami Code
Publicado por: agus0 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 :(


Título: Re: [Desafio/Reto/Tiempo al Pedo] Konami Code
Publicado por: ignorantev1.1 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.  


Título: Re: [Desafio/Reto/Tiempo al Pedo] Konami Code
Publicado por: agus0 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


Título: Re: [Desafio/Reto/Tiempo al Pedo] Konami Code
Publicado por: Elemental Code 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.


Título: Re: [Desafio/Reto/Tiempo al Pedo] Konami Code
Publicado por: Elemental Code 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 ^.^


Título: Re: [Desafio/Reto/Tiempo al Pedo] Konami Code
Publicado por: BlackZeroX 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!¡.